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

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 đỡ.

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 .

Bạn có thể tham khảo code dưới đây:

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

Khóa học SprinGO phù hợp

Khóa học Power PI – Ứng dung trong Nhân sự

TỔNG QUAN KHÓA HỌC: POWER BI CHO NGÀNH NHÂN SỰ Khóa học Power BI cho Nhân sự được thiết kế dành riêng cho các...

Xem khóa học