Nhờ Giúp Code VBA

[dangbacan0402]

Sub Test_Thu()
Dim CT As WorksheetFunction
Set CT = Application.WorksheetFunction

If CT.IsNA(CT.Match(uf_search.Txt_Masotim, Sheets("BasicData").Range("D"), 0)) = True Then

MsgBox "ok"

Else

MsgBox " Haizzz"

End If

End Sub

ý tưởng là nếu tìm giá trị cần tìm ( hàm match bị lỗi) thì trả về True or False. viết như vậy nhưng nó bị lỗi.

Anh em giúp mình với.

 

[giaiphap]

Sub Test_Thu()
Dim CT As WorksheetFunction
Set CT = Application.WorksheetFunction

If CT.IsNA(CT.Match(uf_search.Txt_Masotim, Sheets("BasicData").Range("D"), 0)) = True Then

MsgBox "ok"

Else

MsgBox " Haizzz"

End If

End Sub

ý tưởng là nếu tìm giá trị cần tìm ( hàm match bị lỗi) thì trả về True or False. viết như vậy nhưng nó bị lỗi.

Anh em giúp mình với.

Thử dùng code này xem.

Sub Test_Thu()
On Error GoTo Loi
    Dim CT As WorksheetFunction, kq
    Set CT = Application.WorksheetFunction
    kq = CT.Match(uf_search.Txt_Masotim, Sheets("BasicData").Range("D:D"), 0)
    MsgBox "Da tim thay roi"
    Exit Sub
Loi:
    MsgBox "Khong tim thay"
End Sub

 

[VetMini]

Vấn đề ra sao bạn không diễn tả vắn tắt lên được thành cái tiêu đề thì viết code làm chi cho hoài công.