Khai báo biến dùng chung như thế nào

[salam]

Em làm một file báo cáo quỹ theo yêu cầu công việc em. Trong đó em có một ít code vba. nhưng em không làm sao khai báo biến toàn cục được. Trong file là biến Ten, Pwd. Khi muốn sử dụng nó em lại phải khai báo lại. (Pwd = 123)
Mong các Bác giúp em.

 

[PhanTuHuong]

Muốn khai báo biến dùng chung thì bạn thực hiện trong module chung, khai báo ở trên cùng module, ví dụ như sau:

Public Const Tieude = "Ch­¬ng tr×nh vÏ mÆt c¾t §CCT"
Public BematP() As Double
Public Const acRed = 1

Biến Tieude, BematP(), acRed được dùng chung trong VBA Project.

 

[salam]

Thầy Hướng ơi em muốn khai báo biến bằng một cell trong một sheet cơ
VD:
Conts ten = Sheet1.range("A1") nó báo lỗi.
như trong file của em. mỗi lần em dùng biến ten và pwd em lại phải Dim lại. (Em mới bập bẹ VBA mà)

 

[PhanTuHuong]

Bạn gán giá trị biến đó trong Sub Autpen hoặc sự kiện Private Sub Workbook_Open() để gán giá trị biến đó vào ngay từ khi khởi động. Sau đó làm việc bình thường với biến.