Cách gọi sub or Function (1 người xem)

[AoiSora]

Các bác cho em hỏi có cách nào gọi sub or Function giữa 2 Module khác nhau không?
Vì nếu viết tất cả source trong 1 module thì nó rất là dài nên e định chia nhỏ ra thành các module common.
nhưng ko cách nào gọi các sub trong module khác được.

 

[hoanganhvo2612]

Các bác cho em hỏi có cách nào gọi sub or Function giữa 2 Module khác nhau không?
Vì nếu viết tất cả source trong 1 module thì nó rất là dài nên e định chia nhỏ ra thành các module common.
nhưng ko cách nào gọi các sub trong module khác được.

Mình đoán lag bạn dùng private sub. Trong trường hợp này bạn bỏ private đi là được.

 

[AoiSora]

Mình đoán lag bạn dùng private sub. Trong trường hợp này bạn bỏ private đi là được.

Mình không khai báo private.
Nhưng mình đọc ở đâu đó là từ module này thì sẽ không gọi được sub của module khác.
Mình không biết các cao thủ ở đây có cách j giải quyết dc trường hợp này không?

 

[hoanganhvo2612]

Mình không khai báo private.
Nhưng mình đọc ở đâu đó là từ module này thì sẽ không gọi được sub của module khác.
Mình không biết các cao thủ ở đây có cách j giải quyết dc trường hợp này không?

Sai. Gọi bình thường bạn nhé. Có thể bạn gọi sub không đúng, nếu sub có tham số thì phải truyền tham số.
Bạn đưa file của bạn nên coi.

 

[gaubungto]

Ban viết hàm theo cấu trúc này
Public Function Tong(a, b As Double) As Double
Tong = a + b
End Function
sau đó gọi ham từ module khác như sau:
dim a as double
a=tong(3,5)

 

[NguyenNgocThuHien]

Bạn gõ tên của modun chứa hàm cần gọi, sau đó gõ dấu chấm, nó sẽ hiện ra danh sách các hàm và thủ tục có thể sử dụng.

 

[Hoang2013]

Xin hỏi các bạn: Khi hàm được viết & gắn trên 1 trang tính thì làm sao gọi nó?

Ví dụ mình có hàm chuyển số liệu ngày tháng thành chuỗi;

Nhưng với lí do nào đó, mình gắn vô 1 trong 3 trang tính cần hàm này;

Vậy ở hai trang còn lại làm sao gọi hàm này, các bạn?

Rất cảm ơn các bạn!

 

[befaint]

Ví dụ mình có hàm chuyển số liệu ngày tháng thành chuỗi;

Nhưng với lí do nào đó, mình gắn vô 1 trong 3 trang tính cần hàm này;

Vậy ở hai trang còn lại làm sao gọi hàm này, các bạn?

Rất cảm ơn các bạn!

Trong Sheet1:

Sub Sub_Nay_Tai_Sheet1()
    MsgBox "Day la sub chay o sheet1"
End Sub

Trong Sheet2:

Sub Goi_Sub_Trong_Sheet1()
    Sheet1.Sub_Nay_Tai_Sheet1
End Sub

------------
Function thì:

Trong Sheet1:

Function Ham_Nay_Tai_Sheet1(txt As String)
    Ham_Nay_Tai_Sheet1 = txt
End Function

Trong Sheet2:

Sub Goi_Ham_Trong_Sheet1()
    Dim txt As String
    txt = "Day la sheet 2"
    MsgBox Sheet1.Ham_Nay_Tai_Sheet1(txt)
End Sub