Excel VBA-如果文本框值在范围内不存在，则显示错误消息

Question

我在用户窗体上有一个文本框，该文本框从条形码扫描仪获取其值。
不幸的是，有时光标会跳过扫描的一半而仅输入名称的一部分。
有没有一种方法可以验证完整扫描是否已完成。

我可以在后台有一张包含所有代码的完整列表的工作表，以便可以验证是否更容易？

任何帮助，将不胜感激。

谢谢Al

Answer 1

您可以尝试这样的事情：

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