vba如何在将条形码扫描到文本框后自动插入表单

Question

目前我的代码是用户扫描条形码并按enter插入表单，但我想在将条形码扫描到文本框后将其更改为自动输入。

我更改了Private Sub类型，根据研究进行了一些更改，但不起作用。

Private Sub ID_AfterUpdate()
If ID.Value = "" Then
MsgBox "Please Insert ID!", vbExclamation, "Warning!"
ElseIf ID.Value <> "" Then
Dim iRow1 As Long
Dim WS As Worksheet
Set WS = Worksheets("sheet1")
iRow1 = WS.Cells.Find(What:="*", SearchOrder:=xlRows, _
SearchDirection:=xlPrevious, LookIn:=xlValues).Row + 1 
With WS
.Cells(iRow1, 1).Value = ID.Value
End With
Unload Me
On Error Resume Next
UserForm1.Show
On Error GoTo 0
End If
End Sub

Answer 1

根据您的情况：

您可以实现Private Sub Worksheet_Change(ByVal Target As Range(功能

https://support.microsoft.com/en-gb/help/213612/how-to-run-a-macro-when-certain-cells-change-in-excel

假设你的条形码阅读器"戳"到了单元格中的字符，它就会被触发。

您也可以将序列添加到basr代码的末尾，如中所示https://www.youtube.com/watch?v=O72BKIGLpnQ