Question

我有一个用于问责制的代码。它读取每个会员身份证独有的条形码39。大约有500人需要扫描，需要近20分钟。扫描仪读取，输入它读取的代码并点击返回提示运行责任代码，但扫描仪输入代码并输入大约需要1秒钟。我想让多个扫描仪进入同一个文本框或单独的文本框。虽然准确而不是通过错误来使系统更快。

这是我目前的代码

Private Sub txtCode_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByValShift As Integer)
If KeyCode = vbKeyReturn Then

Set FndCode = sheet1.Columns("B:B").Find(What:=Accountability.txtCode.Value, LookIn:=xlValues, LookAt:=xlPart, _
            SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)

' Finding the Name that the Code is registered too.

If Not FndCode Is Nothing Then 'successful find
txtName = FndCode.Offset(0, 1)
txtPhase = FndCode.Offset(0, 5)
txtDorm = FndCode.Offset(0, 4)
txtStatus = FndCode.Offset(0, 7)
txtStatusBar = "Accounted For"
txtMemberCom = FndCode.Offset(0, 11)
FndCode.Offset(0, -1) = "Present"
FndCode.Offset(0, -1).Interior.ColorIndex = 4


txtCode.Value = ""

Else
MsgBox "Code Code not found. The Code Code is either not registered or not on the current roster.", , "Error: Unregistered Code"
txtName.Value = "**UnRegistered Member**"
txtStatusBar.Value = "**NOTICE: Not Accounted For**"



txtCode.Value = ""

End If
End If
End Sub

所以我有一个文本框＆＃34; txtCode＆＃34;这是唯一可以输入的txtbox，因此当扫描卡时它只是为下一次扫描做好准备，条形码扫描器读取一个cade并输入字符，就像我输入它们然后按回车一样，所以当两个扫描仪同时扫描它们同时键入它们的代码，并且输入的代码是两个代码的不可用的奇怪组合。有什么办法我可以重做这段代码，等待其他扫描仪扫描，输入和输入，然后下一次扫描才能工作？或者有没有办法制作多个输入文本框并让每个扫描仪链接到每个文本框，这样就不会重叠？

谢谢你，祝你有个美好的一天！

如何将多个扫描仪输入到Excel表单中

0 个答案: