Bài viết: Gọi một Private Sub

[kyo]

Gọi một Private Sub


Bạn là một người mới học VBA và bạn cần tìm cách để kích hoạt hay gọi một sub (thủ tục) khác từ sub hiện tại của bạn để thực thi một điều gì đó mà không cần phải viết lại (thậm chí trong nhiều trường hợp viết lại sẽ khó hơn là sử dụng sub có sẵn). Theo cách thông thường, bạn sẽ sử dụng lệnh Call (hoặc không) để gọi một Sub khác. Giả sử như tôi có code sau:

Và khi chạy code, tôi sẽ nhận được kết quả là 2 hộp thoại thông báo Msgbox hiện ra:

Bây giờ bạn chỉnh sửa lại chút xíu nhé, từ Sub Lienlac thành Private Sub Lienlac.

Và chắc chắn rồi, kết quả vẫn sẽ hiện như cũ. Tuy nhiên, tôi muốn bạn thay đổi chút, hãy chuyển Private Sub Lienlac sang Module2 (hoặc một module khác), và hãy chạy lại xem.

Và khi chạy lại, bạn sẽ gặp lỗi:

Tuy nhiên, nếu bạn bỏ chữ Private và chỉ giữ lại Sub Lienlac ở Module2, code vẫn chạy như thường.

Tới đây chắc bạn đã hiểu sự khác biệt giữa Sub và Private Sub rồi chứ? Private Sub là một thủ tục chỉ hoạt động cục bộ ngay tại module mà nó được khai báo, do đó, nếu nó ở Module1 thì Sub Hello_GPE sẽ gọi được, nhưng nếu nó chuyển qua Module2 thì sẽ gặp lỗi như trên.

Vậy cách khắc phục ở đây là gì? Đó là sử dụng Application.Run. Bạn hãy làm như sau:

Ứng dụng này có thể được áp dụng khá tốt nếu bạn muốn gọi một sự kiện, chẳng hạn Worksheet_Change. Vì nó rõ ràng là một Private Sub nên việc bạn gọi trực tiếp bằng Call là không thể.

Giả sử tôi muốn gọi sự kiện này của Sheet1, tôi liền áp dụng ngay Application.Run như sau:

Và kết quả y chang như kích hoạt sự kiện vậy.

Chúc bạn thành công!

Một số bài viết có liên quan:
1/ Xếp một trường theo một trật tự màu quy định trước
2/ Hàm để lấy chỉ số màu trong các ô đã Conditional Formatting
3/ Khai báo sử dụng các thành phần đối tượng của Excel
4/ Sử dụng Worksheet Function trong VBA
5/ Hiển thị tiếng việt cho hộp thông báo trong ACCESS & Excel
6/ Khai báo biến và đặt tên biến trong VBA
7/ Hướng dẫn truyền tham số trong VBA (ByVal & ByRef)
8/ UDF hữu ích: Xác định một vùng có tồn tại trong một vùng khác hay không
9/ UDF hữu ích: Một số hàm thông dụng cần thiết
10/ UDF hữu ích: Hàm tìm hàng cuối, cột cuối, ô cuối, ...