Tìm Sheet và chọn Sheet trong File Excel chứa nhiều Sheet bằng VBA UserFrom

[Letamanh]

Xin chào mọi người!
- Hiện mình đang xây dựng một File dữ liệu Excel có 15 sheet. Trong quá trình tra cứu và nhập liệu gặp nhiều khó khăn khi phải Click chuột kéo đến Sheet.
- Trong quá trình tìm kiếm thì thấy được mã Code hướng dẫn làm mình đã làm giống như vậy nhưng nó cứ báo lỗi VBA hoài.
- Mình có đính kèm theo File dự kiến làm và có luôn mã Code và hình báo lỗi.........
Rất mong được sự giúp đõ của mọi người .........trước tiên xin cảm ơn mọi người đã dnhf chút tời gian đọc thông tin của mình đăng.......

 

[snow25]

Xin chào mọi người!
- Hiện mình đang xây dựng một File dữ liệu Excel có 15 sheet. Trong quá trình tra cứu và nhập liệu gặp nhiều khó khăn khi phải Click chuột kéo đến Sheet.
- Trong quá trình tìm kiếm thì thấy được mã Code hướng dẫn làm mình đã làm giống như vậy nhưng nó cứ báo lỗi VBA hoài.
- Mình có đính kèm theo File dự kiến làm và có luôn mã Code và hình báo lỗi.........
Rất mong được sự giúp đõ của mọi người .........trước tiên xin cảm ơn mọi người đã dnhf chút tời gian đọc thông tin của mình đăng.......

Sai cái dấu bằng thành dấu "-" bạn sửa lại như vậy.Mình không để ý thuật toán.

Private Sub TextBox1_Change()
    Me.ListBox1.Clear
    Dim a As Long, ws As Worksheet
    a = Len(Me.TextBox1.Text)
    For Each ws In ThisWorkbook.Worksheets
    If Left(ws.Name, a) = Left(Me.TextBox1.Text, a) Then
    Me.ListBox1.AddItem ws.Name
    End If
    Next ws
End Sub

 

[vanthinh3101]

Xin chào mọi người!
- Hiện mình đang xây dựng một File dữ liệu Excel có 15 sheet. Trong quá trình tra cứu và nhập liệu gặp nhiều khó khăn khi phải Click chuột kéo đến Sheet.
- Trong quá trình tìm kiếm thì thấy được mã Code hướng dẫn làm mình đã làm giống như vậy nhưng nó cứ báo lỗi VBA hoài.
- Mình có đính kèm theo File dự kiến làm và có luôn mã Code và hình báo lỗi.........
Rất mong được sự giúp đõ của mọi người .........trước tiên xin cảm ơn mọi người đã dnhf chút tời gian đọc thông tin của mình đăng.......

Bạn tham khảo file.
Tôi nghĩ làm theo hướng:
- Khi khởi tạo Userform thì cho hiện luôn toàn bộ danh sách tên các Sheets vào Listbox
- Bạn chọn tên nào ở Listbox xong thì khi click CommandButton thì chuyển đến Sheet đó và đóng Userform

 

[Letamanh]

Bạn tham khảo file.
Tôi nghĩ làm theo hướng:
- Khi khởi tạo Userform thì cho hiện luôn toàn bộ danh sách tên các Sheets vào Listbox
- Bạn chọn tên nào ở Listbox xong thì khi click CommandButton thì chuyển đến Sheet đó và đóng Userform

thank you

Bài đã được tự động gộp: 10/8/20

Sai cái dấu bằng thành dấu "-" bạn sửa lại như vậy.Mình không để ý thuật toán.

Private Sub TextBox1_Change()
    Me.ListBox1.Clear
    Dim a As Long, ws As Worksheet
    a = Len(Me.TextBox1.Text)
    For Each ws In ThisWorkbook.Worksheets
    If Left(ws.Name, a) = Left(Me.TextBox1.Text, a) Then
    Me.ListBox1.AddItem ws.Name
    End If
    Next ws
End Sub

Thank you!

 

[Letamanh]

Bạn tham khảo file.
Tôi nghĩ làm theo hướng:
- Khi khởi tạo Userform thì cho hiện luôn toàn bộ danh sách tên các Sheets vào Listbox
- Bạn chọn tên nào ở Listbox xong thì khi click CommandButton thì chuyển đến Sheet đó và đóng Userform

Cảm ơn bạn rất nhiều mình đã tải về và chạy thử rồi cũng rất tốt. Tuy nhiên, file mình làm nhiều sheet và mình có hướng suy nghĩ là làm kết hợp cả hai, nghĩ là: khi mình nhập tên vào textbox1 thì nó sẽ liệt kê ra những tên gần giống rồi đến tên giống ....rồi cuối cùng mình sẽ chọn tên cần tìm đó...nó sẽ đưa tới trang cần tìm và tắt luôn UserForm giống bạn giúp mình (mình sẽ chọn bằng cách nhấp đúp chuột vào tên trong listbox...mà khởi cần click CommandButton)...nhờ bạn xem
giúp mình.

 

[vanthinh3101]

Cảm ơn bạn rất nhiều mình đã tải về và chạy thử rồi cũng rất tốt. Tuy nhiên, file mình làm nhiều sheet và mình có hướng suy nghĩ là làm kết hợp cả hai, nghĩ là: khi mình nhập tên vào textbox1 thì nó sẽ liệt kê ra những tên gần giống rồi đến tên giống ....rồi cuối cùng mình sẽ chọn tên cần tìm đó...nó sẽ đưa tới trang cần tìm và tắt luôn UserForm giống bạn giúp mình (mình sẽ chọn bằng cách nhấp đúp chuột vào tên trong listbox...mà khởi cần click CommandButton)...nhờ bạn xem
giúp mình.View attachment 243267

Bạn tham khảo file đính kèm.