怎么实现在Excel表格中，用条形码扫描仪扫描后，不要直接换行 要在相邻的三个单元格内扫描后，再换行

发布网友 发布时间：2022-04-30 09:29

我来回答

共3个回答

热心网友 时间：2023-10-22 07:44

1、单击菜单上的“工具”——“选项”
2、单击“编辑”标签，把“按Enter键后移动方向”改为“向右”，“确定”
3、选择ABC三列，单击菜单上的“格式”——“单元格”
4、选择“保护”标签，去掉“锁定”前面的勾，“确定”
5、单击菜单上的“工具”——“保护”——“保护工作表”
6、去掉“选定锁定单元格”前面的勾，“确定”。
你再试试。

热心网友 时间：2023-10-22 07:45

按AIT+F11，把下面的VBA代码，粘到里面去。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 3 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub追问不行，一直提示错误，而且写进去后，还是自动换行，A1还是自动跳到B1

追答那我也不知道了

热心网友 时间：2023-10-22 07:45

为扫描仪添加回车後缀就OK了。如何添加回车後缀请参阅对应的扫描仪说明书。

热心网友 时间：2023-10-22 07:44

1、单击菜单上的“工具”——“选项”
2、单击“编辑”标签，把“按Enter键后移动方向”改为“向右”，“确定”
3、选择ABC三列，单击菜单上的“格式”——“单元格”
4、选择“保护”标签，去掉“锁定”前面的勾，“确定”
5、单击菜单上的“工具”——“保护”——“保护工作表”
6、去掉“选定锁定单元格”前面的勾，“确定”。
你再试试。

热心网友 时间：2023-10-22 07:45

按AIT+F11，把下面的VBA代码，粘到里面去。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 3 Then
Cells(Target.Row + 1, 1).Select
End If
End Sub追问不行，一直提示错误，而且写进去后，还是自动换行，A1还是自动跳到B1

追答那我也不知道了

热心网友 时间：2023-10-22 07:45

为扫描仪添加回车後缀就OK了。如何添加回车後缀请参阅对应的扫描仪说明书。