扫描枪扫描商品，商品需要两列值，如何在EXECEL中自动跳转

龙淘宝

爱疯

我不知道扫到工作表里后，会不会引发工作表的值改变事件？
如果不会，没效果
如果会，把代码贴到在你附件的sheet1的代码区里。
没扫描枪测，楼主自己试下吧





Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r, c
    r = Target.Row
    c = Target.Column

    If c = 1 Then Cells(r, 2).Activate
    If c = 2 Then Cells(r + 1, 1).Activate
End Sub
1.rar (11.96 KB, 下载次数: 2)

2019-7-10 10:55 上传

点击文件名下载附件