Gọi hàm từ sheet ra modules

[lllo]

Anh em cho mình hỏi làm sao có thể gọi được hàm này ở ngoài modules ạ, hàm này đang ở trong sheets. Em cảm ơn ạ

 

[giaiphap]

Anh em cho mình hỏi làm sao có thể gọi được hàm này ở ngoài modules ạ, hàm này đang ở trong sheets. Em cảm ơn ạ
View attachment 281254

Thử thế này. Tên Sheet1 là Sheet chứa đoạn code Worksheet_Change

Sub Test()
    Call Sheet1.Worksheet_Change(Sheet2.Range("A4:B5"))
End Sub

 

[Giahao2006]

Application.WorksheetFunction bạn muốn gọi hàm gì trong excel thì sử dụng cái này ví dụ như "sheet1.Range("D" & rw).Application.WorksheetFunction.Offset(-1,0).value"

 

[lllo]

Application.WorksheetFunction bạn muốn gọi hàm gì trong excel thì sử dụng cái này ví dụ như "sheet1.Range("D" & rw).Application.WorksheetFunction.Offset(-1,0).value"

có cần khai báo gì không ạ. em thử như trên không được ạ

Bài đã được tự động gộp: 23/9/22

Thử thế này. Tên Sheet1 là Sheet chứa đoạn code Worksheet_Change

Sub Test()
    Call Sheet1.Worksheet_Change(Sheet2.Range("A4:B5"))
End Sub

không được ạ

 

[VetMini]

Thử thế này. Tên Sheet1 là Sheet chứa đoạn code Worksheet_Change

Sub Test()
    Call Sheet1.Worksheet_Change(Sheet2.Range("A4:B5"))
End Sub

Target của người ta là cột 3. Bạn chỉ đưa đến cột A và B, Range("A4:B5").Column = 1. Bù trất.

 

[giaiphap]

Target của người ta là cột 3. Bạn chỉ đưa đến cột A và B, Range("A4:B5").Column = 1. Bù trất.

Em chỉ viết mẫu vậy thôi không quan tâm đến Taget là vùng nào và cũng chẳng quan tâm đến code phía trong cái Sub Worksheet_Change là gì, chỉ qiải quyết vấn đề gọi Sub trong Sheet từ Module cho nó chạy thôi, còn việc chạy đúng hay sai là tùy vào chủ thớt. Phải có file mẫu thì tôi viết trực tiếp trong file mẫu sẽ dễ hơn, còn chủ thới không gửi file mẫu thì em lại nghỉ chủ thớt đủ khả năng để xử lý dựa vào code của em. Cái này dễ dàng kiểm tra thử là cho đoạn code msgbox vào trong Worksheet_Change sẽ biết nó có hoạt động được hay không liền chứ gì.

 

[lllo]

Em chỉ viết mẫu vậy thôi không quan tâm đến Taget là vùng nào và cũng chẳng quan tâm đến code phía trong cái Sub Worksheet_Change là gì, chỉ qiải quyết vấn đề gọi Sub trong Sheet từ Module cho nó chạy thôi, còn việc chạy đúng hay sai là tùy vào chủ thớt. Phải có file mẫu thì tôi viết trực tiếp trong file mẫu sẽ dễ hơn, còn chủ thới không gửi file mẫu thì em lại nghỉ chủ thớt đủ khả năng để xử lý dựa vào code của em. Cái này dễ dàng kiểm tra thử là cho đoạn code msgbox vào trong Worksheet_Change sẽ biết nó có hoạt động được hay không liền chứ gì.

Dạ, em gửi file anh check giúp em ạ. em cảm ơn ạ

 

[giaiphap]

Dạ, em gửi file anh check giúp em ạ. em cảm ơn ạ

Dùng code này sẽ thấy nó tự chạy NGAY.

Sub Test()
    Sheet1.Range("C5").Value2 = (12 + 4) * 3
End Sub

 

[VetMini]

Em chỉ viết mẫu vậy thôi ...

Tôi cũng chỉ mách đại khái thôi chứ chẳng quan tâm giải mấy cái vấn đề "không được", "không chạy", "bị lỗi" mà không thêm chi tiết nào.
Nói chuyện với con nít chán lắm. Gặp đứa con nit khóc nhè, hỏi han cầu 5 phút mới biết nó bị lạc bố mẹ. Hỏi thêm 15 phút nữa mới biết nhà nó ở đâu. Gọi Công An cho người ta lo là khỏe.