Lọc dữ liệu theo từng ký tự gõ.

[phuyen89]

Chào Anh chị GPE.
Em có một danh sách, Tên Khách hàng rất nhiều.Mỗi lần tìm kiếm thường dùng tính năng Ctrl+F hoặc Contain của Filter.
Cho nên Em mong muốn, khi gõ 01 ký tự vào Cell D5 của Sheet Kho0611, thì Dữ liệu trong vùng sẽ tự động lọc theo ký tự đó.
Mong Anh Chị làm giúp.
Em cảm ơn!!

 

[hophoang]

Trước tiên bạn muốn làm điều đó được thì bạn phải tạo một sheet danh mục khách hàng.Xem thử nha

 

[phuyen89]

Trước tiên bạn muốn làm điều đó được thì bạn phải tạo một sheet danh mục khách hàng.Xem thử nha

Rất cảm ơn Bạn, nhưng bạn đã hiểu nhầm ý của mình rồi.
Lúc trước mình có đọc 01 bài của Thầy ndu, phải viết bằng VBA, khi gõ vào Cell D5, thì danh sách tự động Lọc luôn, Chứ không phải tham chiếu và kết hợp Validation như File này.

 

[hophoang]

vậy những danh sách đó ở đâu ra mà nó tự động lọc.Mà gõ cái gì vào cell D5

 

[Quang_Hải]

Chào Anh chị GPE.
Em có một danh sách, Tên Khách hàng rất nhiều.Mỗi lần tìm kiếm thường dùng tính năng Ctrl+F hoặc Contain của Filter.
Cho nên Em mong muốn, khi gõ 01 ký tự vào Cell D5 của Sheet Kho0611, thì Dữ liệu trong vùng sẽ tự động lọc theo ký tự đó.
Mong Anh Chị làm giúp.
Em cảm ơn!!

Mấy vụ này trên diễn đàn chắc trên 1000 bài rồi, tại bạn không chịu tìm đọc
Copy code này vào sheet kho0611

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D5]) Is Nothing Then
   [D1] = [D8]: [D2] = "*" & [D5] & "*"
   Range([D8], [D1000].End(3)).AdvancedFilter 1, [D1:D2]
End If
End Sub

 

[phuyen89]

Mấy vụ này trên diễn đàn chắc trên 1000 bài rồi, tại bạn không chịu tìm đọc
Copy code này vào sheet kho0611

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D5]) Is Nothing Then
   [D1] = [D8]: [D2] = "*" & [D5] & "*"
   Range([D8], [D1000].End(3)).AdvancedFilter 1, [D1:D2]
End If
End Sub

Bị Lỗi như hình sau Anh ơi.
Cái em mong muốn không phải giống như này, nó cho phép khi gõ 1 ký tự nào đó, chưa nhấn Enter, nhưng danh sách phần bên dưới là đã lọc rồi.Khi gõ thêm 01 ký tự nữa, nó sẽ lọc theo 2 ký tự và danh sách được lọc rút gọn lại tiếp.

 

[Quang_Hải]

Bị Lỗi như hình sau Anh ơi.
Cái em mong muốn không phải giống như này, nó cho phép khi gõ 1 ký tự nào đó, chưa nhấn Enter, nhưng danh sách phần bên dưới là đã lọc rồi.Khi gõ thêm 01 ký tự nữa, nó sẽ lọc theo 2 ký tự và danh sách được lọc rút gọn lại tiếp.

Với dạng code này luôn phải có dòng này On Error Resume Next

 

[phuyen89]

Với dạng code này luôn phải có dòng này On Error Resume Next

Code hay quá. Nhưng muốn thoát ra khỏi Cell D5 để thao tác vào dữ liệu đã lọc được.Chưa dùng phím Enter hay Tab mà phải dùng chuột dời sang
Có cách nào khắc phục điều này không Anh QuangHai.

 

[Quang_Hải]

Code hay quá. Nhưng muốn thoát ra khỏi Cell D5 để thao tác vào dữ liệu đã lọc được.Chưa dùng phím Enter hay Tab mà phải dùng chuột dời sang
Có cách nào khắc phục điều này không Anh QuangHai.

Thêm cái mớ này vào chung với sheet đó. Khi ENTER sẽ thoát ra cái ô đó.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   ActiveSheet.TextBox1.Visible = False
   ActiveCell.Offset(3).Select
End If
End Sub

 

[namte318]

Thêm cái mớ này vào chung với sheet đó. Khi ENTER sẽ thoát ra cái ô đó.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
   ActiveSheet.TextBox1.Visible = False
   ActiveCell.Offset(3).Select
End If
End Sub

Các bác cho em hỏi muốn làm 2 ô tìm kiếm, ví dụ như D5 & E5 cùng lúc thì có được không ạ, và làm như thế nào ạ ?
Cám ơn các bác

 

[Quang_Hải]

Các bác cho em hỏi muốn làm 2 ô tìm kiếm, ví dụ như D5 & E5 cùng lúc thì có được không ạ, và làm như thế nào ạ ?
Cám ơn các bác

Làm được. Vẽ thêm cái textbox nữa cho ô E5 và viết code giống như cho D5.

 

[namte318]

Làm được. Vẽ thêm cái textbox nữa cho ô E5 và viết code giống như cho D5.

Em copy thêm để làm cho ô E5 mà không được.
Các bác chỉ giáo giúp được không ạ, môn này em hơi kém.
Em có đính kèm file đây ạ.

 

[namte318]

bác quanghai1969 giúp em với ạh, em đang cần quá
hoặc bác cho em keyword để em tìm thêm với ạh

 

[Quang_Hải]

bác quanghai1969 giúp em với ạh, em đang cần quá
hoặc bác cho em keyword để em tìm thêm với ạh

Muốn nhanh thì phải từ từ
Có code sẵn đó không chịu nghiên cứu mà đòi keyword gì nữa