VBA Excel 코드 바코드 스캐닝

Question

이 스프레드 시트가 우수하며 바코드 스캐너를 사용하고 있습니다. 바코드 스캐너로 캡처 할 때마다 커서가 한 열을 건너 뜁니다. 커서가, C3로 이동합니다 C3에서 나는 또 다른 바코드를 캡처하고 커서가 등등 E3 및 이동 있도록

는 A3 세포에서 예를 들어 정보는 캡처입니다; 한 번 G3에, 다른 상자를 붙잡기 위하여 A4에 돌아가해야한다.

이

은 내가 가지고있는 코드 ..... 내가 수동으로 할 때

Private Sub Worksheet_Change(ByVal Target As Range) 
On Error GoTo Whoa 

Application.EnableEvents = False 
If Not Target.Cells.CountLarge > 1 Then 
    If Not Intersect(Target, Columns(1)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(4)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(5)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(6)) Is Nothing Then 
     Target.Offset(, 1).Select 
    ElseIf Not Intersect(Target, Columns(7)) Is Nothing Then 
     Target.Offset(1, -6).Select 
    End If 
End If 
Letscontinue: 
    Application.EnableEvents = True 
    Exit Sub 
Whoa: 
    MsgBox Err.Description 
    Resume Letscontinue 
End Sub 

그것은 (스캐너)없이 작동하지만이 열 B에 반환 바코드 스캐너를 사용하여입니다

예를 들어 G3에서 바코드로 날짜를 캡처 한 다음 A4로 이동하지 않고 B4로 이동하므로 두 번째 상자를 스캔 할 수 있습니다.

나는 내 작은 창고

Answer 1

에서 재고를 캡처 내 스캐너를 사용할 수 있습니다 아마도 바코드 스캐너 탭을 자동으로 삽입 또는 각 항목 후 키를 입력 할 수 있도록 올바른 코드를 개발하는 데 도움이 필요합니다. 어쩌면 마지막 줄은 Target.Offset(1, -7) 일 것입니다. 여섯 개 대신이 -7 개의 열을 선택하면 바코드 스캐너가 여분의 시간에 오른쪽으로 탭 이동하는 것을 보완 할 수 있습니다. 또는이 현재 행을 더한, 그리고 결정적으로 열 A 또는 1.