Trợ giúp sửa code marco tìm kiếm (1 người xem)

[lexuantruong]

anh chị sửa giúp e cái marco tìm kiếm này với, e chẳng biết bị lỗi gì @@( xem trong file)

 

[Quang_Hải]

anh chị sửa giúp e cái marco tìm kiếm này với, e chẳng biết bị lỗi gì @@( xem trong file)

Viết vầy cho nhanh

Sub Rectangle1_Click()
On Error Resume Next
Dim search As String
search = Sheet1.TextBox1
Cells.Find(search, , , 1).Activate
End Sub

 

[be_09]

anh chị sửa giúp e cái marco tìm kiếm này với, e chẳng biết bị lỗi gì @@( xem trong file)

Bạn thử File tìm kiếm trên Form thử xem.

Lưu ý:
- Có thể tìm trên sheet mới thêm vào.

 

[lhthai]

anh chị sửa giúp e cái marco tìm kiếm này với, e chẳng biết bị lỗi gì @@( xem trong file)

Cái này trong office 2010 có chức năng tìm kiếm tất cả sheet
Ctrl F\Option\tại tab Within chọn Sheet hay Workbook
Xem hình sau.
View attachment 134164

 

[lexuantruong]

Thanks mọi người đã giúp đỡ, e làm dc rồi

 

[lexuantruong]

còn 1 vấn đề nhỏ nữa các anh giúp e luôn dc k ạ.
khi nhập dữ liệu trong ô textbox xong thì ấn Enter là tự động dò tìm luôn thay vì phải nhấn nút " tìm kiếm" thì e phải làm thế nào ạ.

 

[Quang_Hải]

còn 1 vấn đề nhỏ nữa các anh giúp e luôn dc k ạ.
khi nhập dữ liệu trong ô textbox xong thì ấn Enter là tự động dò tìm luôn thay vì phải nhấn nút " tìm kiếm" thì e phải làm thế nào ạ.

Cho code này vào trong sheet1

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   Rectangle1_Click
End If
End Sub

 

[lexuantruong]

Thanks a quanghai1969 nhiều