- ·上一篇:excel表格统计图怎么改变大小
- ·下一篇:平均误差用excel表格值怎么算
excel表格怎么跳格选定
1.大家好,请问EXCEL表格自动跳格的命令如何写
把以下代码复制到对应页面的VBA窗口即可。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Row = 28 And Target.Column = 3 Then
Range("F8").Select
ElseIf Target.Row = 28 And Target.Column = 6 Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
Range("C8:C27") = ""
Range("F8:F27") = ""
Range("C8").Select
End If
End Sub
关于扫描条形码就切换页面的功能,本人认为不宜使用。原因是:扫描条码是一个输入动作,与按下键盘上的字母键或数字键的功能是一样的,扫描动作之后,是向当前选中的Excel单元格内写入字符,而不是击发切换页面命令,实际会产生并不是想要的结果。
2.Excel中怎样实现部分表格自动跳格
打开你的Excel文档,点击“工具”->宏->宏,输入auto_open点击创建进入代码编辑窗口,输入代码,然后保存退出,重新打开文档就生效:
Sub auto_open()
Application.OnKey "0", "a"
Application.OnKey "1", "b"
Application.OnKey "2", "c"
Application.OnKey "3", "d"
Application.OnKey "4", "e"
End Sub
Sub a()
ActiveCell.Value = 0
SendKeys "{Enter}"
End Sub
Sub b()
ActiveCell.Value = 1
SendKeys "{Enter}"
End Sub
Sub c()
ActiveCell.Value = 2
SendKeys "{Enter}"
End Sub
Sub d()
ActiveCell.Value = 3
SendKeys "{Enter}"
End Sub
Sub e()
ActiveCell.Value = 4
SendKeys "{Enter}"
End Sub
说明:
(1)Application.OnKey "0", "a"表示按下主键盘上的0(小键盘没效,如果你需要自已补充),就执行a过程.
(2)在Sub a()和Sub b()里是根据不同的按键输入不同的数值,再用SendKeys "{Enter}"输入回车,你可以在"工具"->选项->编辑 里面设置Enter键的方向.