при сканировании штрих-кода в текстовое поле вводится только первая цифра. Код активируется при любых изменениях в текстовом поле. 2-ая проблема заключается в том, что после завершения поиска фокусируется на текстовом поле, чтобы можно было выполнить следующее сканирование.
Private Sub Barcode_TxtBox_Change()
If Barcode_TxtBox.Value = "" Then
' set focus back to textbox
Barcode_TxtBox.Activate
Else
' If match found then populate the box next to the code found with X
If WorksheetFunction.CountIf(Sheets("Sheet1").Columns(2), Barcode_TxtBox.Value) = 1 Then
Set TargetCell = Sheets("Sheet1").Columns(2).Find(Barcode_TxtBox.Value, , xlValues, xlWhole).Offset(0, 1)
TargetCell.Value = "X"
Else
MsgBox "Code not found"
End If
' Clear textbox and set focus back to textbox for next scan
Barcode_TxtBox.Value = ""
Barcode_TxtBox.Activate
End If
End Sub
Когда сканирование завершено, в текстовое поле вводится первый символ штрих-кода, и совпадений не найдено, поэтому активируется MSGBox "Код не найден"