Nhờ giúp hàm dò tìm và trả kết quả dạng chuỗi

[mickeybh]

Chào các Anh/ Chị trên GPE!

Nhờ các Anh/ Chị giúp em hàm tự tạo dò tìm và trả kết quả bằng chuỗi. Trong file ví dụ em gửi lên:
Giá trị dò tìm F5, F6.. lấy các phần tử trong đó cách nhau bởi dấu ";" dò tìm trong vùng A2:A20 và lấy kết ở vùng B2:B20 tương ứng. Phần tử nào không có thì trả về kết quả là 0.
Em cảm ơn!

 

[Phuocam]

Thử:

Public Function MyVlookup(ByVal txt As String, rng As Range) As String
Dim v As Variant, result As Variant, temp As String
For Each v In Split(txt, ";")
    result = Application.VLookup(v, rng, 2, 0)
    temp = temp & "," & IIf(IsError(result), 0, result)
Next
MyVlookup = Mid(temp, 2)
End Function

Trong ô G5:

=MyVlookup(F5,$A$2:$B$20)

 

[mickeybh]

Thử:

Public Function MyVlookup(ByVal txt As String, rng As Range) As String
Dim v As Variant, result As Variant, temp As String
For Each v In Split(txt, ";")
    result = Application.VLookup(v, rng, 2, 0)
    temp = temp & "," & IIf(IsError(result), 0, result)
Next
MyVlookup = Mid(temp, 2)
End Function

Trong ô G5:

=MyVlookup(F5,$A$2:$B$20)

Cảm ơn bạn rất nhiều!