Chỉnh code tìm kiếm trong form.

[Taiclub]

Anh chị cho em hỏi khi em click đúp vào ô màu vàng hiện bảng.Em nhập vào ô tìm kiếm thì giá trị như trong hình là Bánh chưng không ẩn đi . bấm vào chú khác nó vẫn vậy.Lúc nào cũng hiện ra như thế. Anh chị chỉnh code giúp em ạ.Em cảm ơn ạ.

 

[be_09]

Anh chị cho em hỏi khi em click đúp vào ô màu vàng hiện bảng.Em nhập vào ô tìm kiếm thì giá trị như trong hình là Bánh chưng không ẩn đi . bấm vào chú khác nó vẫn vậy.Lúc nào cũng hiện ra như thế. Anh chị chỉnh code giúp em ạ.Em cảm ơn ạ.View attachment 227959

Tạo danh mục làm gì mà không thêm cột đơn giá để chọn nhập liệu hàng mà tìm kiếm chi cho mất công.

 

[Taiclub]

Dạ tại em không cần giá cả anh ạ.Chỉ cần nhập vào ô là được rồi ạ.Em cảm ơn ạ.

 

[le_vis]

Anh chị cho em hỏi khi em click đúp vào ô màu vàng hiện bảng.Em nhập vào ô tìm kiếm thì giá trị như trong hình là Bánh chưng không ẩn đi . bấm vào chú khác nó vẫn vậy.Lúc nào cũng hiện ra như thế. Anh chị chỉnh code giúp em ạ.Em cảm ơn ạ.View attachment 227959

Bạn thử xem File một cách là dùng hàm; một cách dùng code

 

[AnhThu-1976]

Em nhập vào ô tìm kiếm thì giá trị như trong hình là Bánh chưng không ẩn đi . bấm vào chú khác nó vẫn vậy.Lúc nào cũng hiện ra như thế.

Không hiểu câu hỏi muốn gì?

 

[Taiclub]

Không hiểu câu hỏi muốn gì?

Dạ ý em là khi em nhập vào ô tìm kiếm khác chữ "Bánh Chưng" nhưng chữ Bánh Chưng vẫn hiện ra không ẩn đi ạ.Ví dụ như em nhập chữ thịt thì chỉ có từ thịt hiện ra thôi ạ.

 

[snow25]

Dạ ý em là khi em nhập vào ô tìm kiếm khác chữ "Bánh Chưng" nhưng chữ Bánh Chưng vẫn hiện ra không ẩn đi ạ.Ví dụ như em nhập chữ thịt thì chỉ có từ thịt hiện ra thôi ạ.

Thử thay cái này xem.

Private Sub TxtFind_Change()
    Call WaitFor(0.05)
    Dim kq, i, a As Long
        ReDim kq(1 To UBound(sArray), 1 To 2)
        For i = 1 To UBound(sArray)
            If InStr(1, UCase(sArray(i, 1)), UCase(TXTFIND.Value)) Then
               a = a + 1
               kq(a, 1) = sArray(i, 1)
               kq(a, 2) = sArray(i, 2)
            End If
        Next i
        If a Then LBDMHH.List = kq Else LBDMHH.Clear
End Sub

 

[AnhThu-1976]

Không biết File này bị lỗi code không mà em mở & thử code thì thường xuyên bị thông báo
Lỗi: "Microsoft Excel has stopped working"
Không biết chủ thớt có bị không?

 

[Taiclub]

Private Sub TxtFind_Change()
    Call WaitFor(0.05)
    Dim Arr, i
     If Len(Trim(TXTFIND.Value)) = 0 Then Me.LBDMHH.List() = sArray: Exit Sub
        Arr = FilterMCLArray(sArray, 2, TXTFIND.Text, False)
     If Not IsArray(Arr) Then
        Arr = Filter2DArray(sArray, 3, TXTFIND.Text, False)
     End If
    If Not IsArray(Arr) Then LBDMHH.Clear: Exit Sub
    LBDMHH.List() = IIf(Trim(TXTFIND.Text) = "", sArray, Arr)
    For i = 0 To Me.LBDMHH.ListCount - 1
        If Dic.exists(Me.LBDMHH.List(i, 1)) Then Me.LBDMHH.Selected(i) = True
    Next
End Sub

Em đã làm được ạ.Em đổi Giá trị True thành False thì Ok . thank anh chị giúp em ạ.
Arr = FilterMCLArray(sArray, 2, TXTFIND.Text, True)
Arr = FilterMCLArray(sArray, 2, TXTFIND.Text, False)