vba как автоматически вставить лист после сканирования штрих-кода в текстовое поле

Question

в настоящее время мой код является штрих-кодом сканирования пользователя и нажмите ввод вставить в лист, но я хотел бы изменить его на автоматический ввод после сканирования штрих-кода в текстовое поле.

у меня было изменение 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