Hàm dùng chung cho tất cả các File Excel (3 người xem)

[huy vu]

Em chào các anh chị trên GPE,
Em có xây dựng 1 hàm tự tạo như sau:

Function DiaChi(Str As Variant) As String


DiaChi = WorksheetFunction.VLookup(Str, Sheets("NOTE").Range("B2:C7"), 2, 0)


End Function

Để tìm kiếm địa chỉ theo Mã.
Em có save as file này thành 1 addins và add vào Excel, tuy nhiên khi dùng hàm tại các File thì đều báo lỗi.
Vậy cho em hỏi code phải sửa thế nào để khi em save thành addins thì hàm này dùng cho tất cả các File Excel.
Em xin cảm ơn!

 

[vanle33]

Em chào các anh chị trên GPE,
Em có xây dựng 1 hàm tự tạo như sau:

Function DiaChi(Str As Variant) As String


DiaChi = WorksheetFunction.VLookup(Str, Sheets("NOTE").Range("B2:C7"), 2, 0)


End Function

Để tìm kiếm địa chỉ theo Mã.
Em có save as file này thành 1 addins và add vào Excel, tuy nhiên khi dùng hàm tại các File thì đều báo lỗi.
Vậy cho em hỏi code phải sửa thế nào để khi em save thành addins thì hàm này dùng cho tất cả các File Excel.
Em xin cảm ơn!

Tôi không hiểu code nhưng nắm được nguyên tắc chung để save file có code ra Add-In là phải save thành file.xla hay .xlam

 

[huy vu]

Có thành viên nào hỗ trợ em với ạh?
Hay là phải đưa các mã này vào thư viện gì gì đó của excel?? để hàm có thể hiểu?

 

[giangleloi]

Có thành viên nào hỗ trợ em với ạh?
Hay là phải đưa các mã này vào thư viện gì gì đó của excel?? để hàm có thể hiểu?

Cứ để như vậy mà save lại bình thường thôi. Lỗi của bạn bị là lỗi gì???

 

[Hong.Van]

Em chào các anh chị trên GPE,
Em có xây dựng 1 hàm tự tạo như sau:

Function DiaChi(Str As Variant) As String


DiaChi = WorksheetFunction.VLookup(Str, Sheets("NOTE").Range("B2:C7"), 2, 0)


End Function

Để tìm kiếm địa chỉ theo Mã.
Em có save as file này thành 1 addins và add vào Excel, tuy nhiên khi dùng hàm tại các File thì đều báo lỗi.
Vậy cho em hỏi code phải sửa thế nào để khi em save thành addins thì hàm này dùng cho tất cả các File Excel.
Em xin cảm ơn!

Bạn thử đọc đề tài này
http://www.giaiphapexcel.com/forum/...o-nạp-và-sử-dụng-Add-Ins-trong-MS-Excel/page3

 

[HyperLink]

Em chào các anh chị trên GPE,
Em có xây dựng 1 hàm tự tạo như sau:

Function DiaChi(Str As Variant) As String
DiaChi = WorksheetFunction.VLookup(Str, [U][COLOR=#ff0000]Sheets("NOTE").Range("B2:C7")[/COLOR][/U], 2, 0)
End Function

Để tìm kiếm địa chỉ theo Mã.
Em có save as file này thành 1 addins và add vào Excel, tuy nhiên khi dùng hàm tại các File thì đều báo lỗi.
Vậy cho em hỏi code phải sửa thế nào để khi em save thành addins thì hàm này dùng cho tất cả các File Excel.
Em xin cảm ơn!

theo mình hiểu, bạn khai báo còn thiếu đường dẫn tên file (nguồn) thì mới dùng chung được cho nhiều file.
'---------
thông thường file nguồn (chứa mã) nên để cố định tại 1 địa chỉ + tên file, nếu ko sẽ dễ xảy ra lỗi đối với các file liên kết với nó.

 

[huy vu]

Cứ để như vậy mà save lại bình thường thôi. Lỗi của bạn bị là lỗi gì???

Cảm ơn bạn
Ý tôi là đã save thành addins dạng xlam rồi, sau đó add vào.
Khi dùng công thức Diachi() ở các file khác thì báo lỗi #value
Bạn xem hình đính kèm.

 

[ndu96081631]

Cảm ơn bạn
Ý tôi là đã save thành addins dạng xlam rồi, sau đó add vào.
Khi dùng công thức Diachi() ở các file khác thì báo lỗi #value
Bạn xem hình đính kèm.

Thử sửa thành vầy xem:

Function DiaChi(Str As Variant) As String

DiaChi = WorksheetFunction.VLookup(Str, [COLOR=#ff0000]ThisWorkbook[/COLOR].Sheets("NOTE").Range("B2:C7"), 2, 0)

End Function

 

[huy vu]

Thử sửa thành vầy xem:

Function DiaChi(Str As Variant) As String

DiaChi = WorksheetFunction.VLookup(Str, [COLOR=#ff0000]ThisWorkbook[/COLOR].Sheets("NOTE").Range("B2:C7"), 2, 0)

End Function

Ô hóa ra chỉ là vấn đề tham chiếu
Tuy nhiên nếu File có 1 sheet tên là NOTE thì có sao không ạ? Để em thử xem sao.

 

[ndu96081631]

Ô hóa ra chỉ là vấn đề tham chiếu
Tuy nhiên nếu File có 1 sheet tên là NOTE thì có sao không ạ? Để em thử xem sao.

Sao lại không sao chứ! Nếu không ghi Thisworkbook thì Excel sẽ hiểu là bạn đang tham chiếu đến Workbook hiện hành (ActiveWorkbook)