Lọc dữ liệu trên excel bằng máy quét mã QR

[sevenam900]

Xin chào
Hiện mình đang có 1 file excel đầy đủ các thông tin của nhân viên, và cấp cho mỗi nhân viên1 mã QR, khi dùng máy quét QR sẽ so sánh thông tin trên file data excel đó nếu có thông tin khớp sẽ hiện thị ra, ngược lại sẽ thông báo ko có dữ liệu.
Mong được giúp đỡ.

 

[tuhocvba]

1. Dùng userform trên đó có ô textbox để nhập thông tin .
Khi con trỏ nằm trong ô textbox này thì thực hiện quét QR .
Mã QR đọc được sẽ ghi vô ô textbox này .
2. Sử dụng sự kiện change cho ô textbox để gọi thủ tục tìm kiếm .
Kết quả tìm kiếm thể hiện trên listbox hay textbox khác .

 

[CRV]

@sevenam900 , tham khảo code :

Option Explicit

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim dic As New Scripting.Dictionary
    Dim DanhSach As Variant, sNhanVien As String, i As Long
    
    '// KHONG PHAN BIET CHU HOA CHU THUONG
    dic.CompareMode = TextCompare
    
    '// DANH SACH NHAN VIEN
    DanhSach = Sheet1.Range("D1").CurrentRegion.Value
    For i = LBound(DanhSach, 1) To UBound(DanhSach, 1)
        sNhanVien = DanhSach(i, 1)
        If Not dic.Exists(sNhanVien) Then dic.Item(sNhanVien) = i
    Next i
    
    '// SCAN MA NHAN VIEN
    sNhanVien = TextBox1.Value
    If KeyCode = vbKeyReturn Then
        If dic.Exists(sNhanVien) Then '// NEU CO TRONG DANH SACH
            '// DUA XUONG COT A
            ActiveCell.Offset(1).Select
            ActiveCell.Value = sNhanVien
        Else
            MsgBox "Khong ton tai: " & sNhanVien & " trong danh sach!", vbCritical + vbOKOnly, "tuhocvba.net"
        End If
        TextBox1.Value = ""
        TextBox1.SetFocus
        KeyCode = 0
    End If
    
End Sub

Private Sub UserForm_Initialize()
    Dim rng As Range
    Set rng = Sheet1.Range("A1")
    rng.Value = "THÔNG TIN BARCODE"
    rng.Activate
End Sub

Bạn cần đăng nhập để thấy link