在UserForm的InputBox中未正确扫描条形码

Question

我正在使用usb条形码扫描仪创建一个内部化学品库存应用程序来读取代码39编码的项目条形码。

请注意，如果没有任何代码，条形码会为房间号码正确插入数据，即：RM240。

MY porgram有一个UserFormScanScreen，其中有InputBox命令将条形码保存到一个名为RoomCode的变量，然后在进入下一个输入框之前显示在电子表格的单元格（2,13）中。

扫描仪读取正确的数据但是当它将它添加到单元格时，它只会从ie.M240上的第二个字符添加，并使R显示在InputBox中。

我正在学习所以不知道我做错了什么，谢谢你的帮助。 screen display inputbox

以下代码来自UserForm代码屏幕

Private Sub TextBoxRoom_Change()

RoomCode = InputBox("Scan or type product barcode...", "Room Barcode") '

Cells(2, 13).Value = RoomCode ' Puts RMScan value into cell M2 
Cells(2, 13).Interior.ColorIndex = 6

TextBoxShelf.SetFocus 'advances to next TextBox

End Sub

Answer 1

在Change事件中需要在值的末尾查找“enter”，并采取相应的行动

未测试：

<a href="https://google.com">https://google.com</a>

注意：对于您希望能够扫描条形码的任何文本框，您需要设置以下属性：

• EnterKeyBehavior：True
• Multiline：True

...为了检测从扫描仪终止“输入”