扫描枪条码枪加excel(2)

扫描枪条码枪加excel

Next m

End If

Application.EnableEvents = True

End Sub

另，如果因为异常，导致宏不自动动作了，请关闭 Excel（不是这个文件，而是整个Excel）并重新打开，就能恢复自动了。 现在在一张空白EXCEL表格中，我想在A栏和D栏之间输入数据，例如A是产品代码，D是该产品的型号代码，如何在扫完A后记录下，光标自动跳到D栏，下个扫的型号代码就会自动输入D栏，然后下面又会跳到A2继续输入产品代码，扫完去D2输入型号代码。。如此循环下去 期待

与上面的方法一样，只是代码换成这样：

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column() = 1 Then

Cells(Target.Row(), 4).Select

ElseIf Target.Column() = 4 Then

Cells(Target.Row() + 1, 1).Select

End If

End Sub

扫描枪在EXCEL表扫描条码时录入数据，然后由这些数据再生成个新数据，然后通过标签打印机自动打印

扫描数据到数据自动录入到当前单元格应该是扫描枪程序做的，后续vba宏可以实现你的功能。

包括数据二次计算，调用打印，单元格重新定位等待下次扫描。

如果输入条码的列在1列 在sheet1下新建函数如下：

Private Sub Worksheet_Change(ByVal Target As Range)

If (Target.Column = 1) Then

Sheet1.Cells(Target.Row, 2) = Target + 100