Tìm mã khách nhanh thông qua việc gõ từ khóa vào textbook??? (1 người xem)

[minhcong.tckt]

Em gửi file đính kèm, mong các huynh tỷ giúp em sửa code để có thể tìm mã khách nhanh tại sheet "Nhan Ma" khi chuột phải form hiện lên:
Chỉ cần đánh đúng tên người thì listbook sẽ di chuyển đến mã khách tương ứng. Giống như việc mình dùng Ctrl + F để tìm kiếm vậy.

Chân thành cảm ơn!!!

 

[sealand]

Bạn sửa code như sau:

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim Ds
Ds = Array("Nhan Ma", "Sheet1")
On Error GoTo Thoat
If WorksheetFunction.Match(Sh.Name, Ds, 0) > 0 Then
   dm.Show 1
   Cancel = True
 End If
Thoat:
End Sub

Vậy là bạn muốn áp dụng ở sheet nào thì thêm vào cái mảng Ds

 

[minhcong.tckt]

Cảm ơn anh nhiều, đúng ý của em rồi ạ.