Excel VBA-如果文本框值不为'；不存在于射程内

我在userform上有一个文本框，可以从条形码扫描仪获取其值。
不幸的是，有时光标在扫描过程中跳过一半，只输入部分名称。
是否有方法验证完整扫描是否已完成

我可以在后台有一张表，上面有所有代码的完整列表，这样就可以根据这些代码进行验证，这样是否更容易

任何帮助都将不胜感激

谢谢

---

Al

您可以尝试以下方法：

Dim ScannedString As String
Scannedstring = Textbox1.Text

Dim StringFound as String

'Range of all Codes
Dim CodeRng as Range 'change this to whatever your list range is ofcourse
set CodeRng = ThisWorkbook.Sheets("Sheet1").Range("A1:A10") 

For each code in CodeRng
    If code = ScannedString Then
        StringFound = code
        Exit For
        'The scanned code is found in the list so nothing is wrong
    End If
Next code

If StringFound = "" Then
    MsgBox "The code you scanned does not exist on the list. Please Scan again."
End If