Chuyển macro có sẵn dữ liệu thành addin để tìm kiếm (1 người xem)

[mrbaloc]

Chào anh chị
- Bên cty em sử dụng 2 hệ thống song song nên mã NPP có khác đôi chút, nên khi thao tác trên excel phải chuyển mã NPP về đúng hệ thống nào đang sử dụng nhưng mỗi lần làm phải mở file để dò thì lâu quá. em thử tạo 1 macro như thế này để làm cho nhanh nhưng khi chuyển thành add-in thì không hoạt động được. Em làm sai chỗ nào hướng dẫn em với ạ

Public Function SuaMa(CH As String) As String
On Error Resume Next
SuaMa = Application.WorksheetFunction.VLookup(CH, Sheets("DS").Range("A:B"), 2, 0)
End Function

Em cám ơn ạ

 

[giaiphap]

Chào anh chị
- Bên cty em sử dụng 2 hệ thống song song nên mã NPP có khác đôi chút, nên khi thao tác trên excel phải chuyển mã NPP về đúng hệ thống nào đang sử dụng nhưng mỗi lần làm phải mở file để dò thì lâu quá. em thử tạo 1 macro như thế này để làm cho nhanh nhưng khi chuyển thành add-in thì không hoạt động được. Em làm sai chỗ nào hướng dẫn em với ạ


Em cám ơn ạ

Tôi chưa hiểu về câu hỏi của bạn, nhưng bạn thử sửa lại thế này xem sao.

Public Function Tim(CH As String) As String
On Error Resume Next
SuaMa = Application.WorksheetFunction.VLookup(CH, ThisWorkbook.Sheets("DS").Range("A:B"), 2, 0)
End Function

 

[mrbaloc]

Em diễn đạt ko được rõ cho lắm. với function trên em làm đã ok, em chuyển file có function và danh sách thành addin để khi cần sửa các file khác chỉ cần gọi hàm là sửa được, không cần phải mở thêm file để vlookup giá trị qua. nhưng khi chuyển qua thành addin rồi hàm đó lại không tìm thấy dữ liệu

 

[giaiphap]

Em diễn đạt ko được rõ cho lắm. với function trên em làm đã ok, em chuyển file có function và danh sách thành addin để khi cần sửa các file khác chỉ cần gọi hàm là sửa được, không cần phải mở thêm file để vlookup giá trị qua. nhưng khi chuyển qua thành addin rồi hàm đó lại không tìm thấy dữ liệu

Bạn phải nêu rõ là khi chuyển sang Add-Ins thì cái hàm này phải lấy dữ liệu ở file nào mới được chứ, nếu lấy từ file Add-ins thì khác, lấy dữ liệu từ file khác lại khác nửa. Nói túm lại bạn mô tả chưa rõ ràng vậy khó ai giúp được lắm, tôi thấy cái file bạn đưa lên viết code chưa đúng chổ, dữ liệu để test lại không có... Thua!

 

[mrbaloc]

lấy thẳng từ file addin luôn ạ. Em up lại. load addin vào file can sua ma và dùng hàm để sửa lại

 

[giaiphap]

lấy thẳng từ file addin luôn ạ. Em up lại. load addin vào file can sua ma và dùng hàm để sửa lại

Bạn sửa thế này nhé. Code trong Module sửa lại vầy.

Public RangeL As range
Public Function SuaMa(CH As Long) As String
On Error Resume Next
SuaMa = Application.WorksheetFunction.VLookup(CH, RangeL, 2, 0)
End Function

Code trong Thisworkbook sửa lại thế này.

Sub Workbook_Open()
Set RangeL = ThisWorkbook.Sheets("DS").range("A:B")
End Sub