Help Khi viết Function (Gọi hàm trong Ô cel thì không chạy, dùng button_Click lại chạy)

[tasongan0909]

Mình có 1 function dùng để tìm kiếm dữ liệu từ 1 file nguồn dữ liệu (file dữ liệu đang đóng). Khi mình gán vào Button để gọi Function thì chạy được, mặt khác gọi Funtion từ ô Cel lại không chạy được. Tìm mãi ko ra nên đăng đàn hỏi và nhờ các bậc tiền bối sửa giúp !!

Function TINHNHANCONG1919(ByVal TUTIMKIEM As String, NHOMNHANCONG As Integer) As Long
    Dim RESULT As String
    Dim sheet As Worksheet
    Dim databook As Workbook
    Application.ScreenUpdating = False
    Set databook = Workbooks.Open(ThisWorkbook.Path & "\" & "DATA.xlsm")
    Set sheet = databook.Sheets("NC1919")
    If NHOMNHANCONG = 1 Then
        RESULT = Application.VLookup(TUTIMKIEM, sheet.Range("NHANCONGNHOM1"), 2, False)
        ElseIf NHOMNHANCONG = 2 Then
        RESULT = Application.VLookup(TUTIMKIEM, sheet.Range("NHANCONGNHOM2"), 2, False)
    End If
TINHNHANCONG1919 = RESULT
databook.Close
Application.ScreenUpdating = True
End Function

 

[VetMini]

Function dùng trên bảng tính phải chịu nhiều giới hạn. Một trong những giới hạn này là không mở/đóng file được.

Nếu vẫn muốn mở/đóng file thì phải đi đường vòng bằng cách cho code mở một object Excel.Application khác, và dùng đối tượng này để mở file. Cách này tương đối rắc rối.