Excel表格如何自动跳格
Excel表格A列输入到20格后如何自动跳格到B列第一格,B列输入到20格后自动打印，然后清除这40格内容，并使默认输入格在A列的第一格。请问命令如何写。万分感谢。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2012-05-20
不需要命令吧
用有效性,或者设置输入区域,其他区域设置为不可选
这样就可以一直用回车循环控制了.
用有效性,或者设置输入区域,其他区域设置为不可选
这样就可以一直用回车循环控制了.
第2个回答 2019-07-02
你按(alt
f11)直接进入VBA双击sheet1进入VBA编辑区域将上述敕令直接拷贝进去。然后你再在Excel表格内行工输入尝尝。我试过了没问题。宏只能做反复的事没什么大年夜感化的。
f11)直接进入VBA双击sheet1进入VBA编辑区域将上述敕令直接拷贝进去。然后你再在Excel表格内行工输入尝尝。我试过了没问题。宏只能做反复的事没什么大年夜感化的。
第3个回答 2019-05-04
你按(alt
f11)直接进入VBA双击sheet1进入VBA编辑区域将上述敕令直接拷贝进去。然后你再在Excel表格内行工输入尝尝。我试过了没问题。宏只能做反复的事没什么大年夜感化的。
f11)直接进入VBA双击sheet1进入VBA编辑区域将上述敕令直接拷贝进去。然后你再在Excel表格内行工输入尝尝。我试过了没问题。宏只能做反复的事没什么大年夜感化的。
第4个回答 2012-05-20
在VBA中写：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$20" Then
Range("B1").Select
ElseIf Target.Address() = "$B$20" Then
ActiveSheet.PrintOut
Range("A1:B20").Clear
End If
End Sub追问
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$20" Then
Range("B1").Select
ElseIf Target.Address() = "$B$20" Then
ActiveSheet.PrintOut
Range("A1:B20").Clear
End If
End Sub追问
非常感谢你回答，我还在研究中，怕你等着急了就先回你了。因为VBA的命令复制进去后好像没效果，我是用来扫描条形码的，每格一行条形码，我需要从A8扫描到A27，一共20个，然后跳到B8，扫描到B27结束。试来试去命令好像不起作用，我是在：工具→宏→宏(alt+f8)这里创建的，请问有用吗？如果能用起来的话，那真太好了。每天都要扫描千把个条形码太累了。再次感谢。
追答你按(alt+f11)直接进入VBA，双击sheet1，进入VBA编辑区域，将上述命令直接拷贝进去。然后你再在Excel表格里手工输入试试。我试过了没问题。
宏只能做重复的事，没什么大作用的。
相似回答