在excel中自动跳格
发布网友
发布时间：2022-04-20 11:20
共1个回答
热心网友
时间：2023-09-18 08:45
Sub
auto_open()
Application.OnKey
"0",
"a"
Application.OnKey
"1",
"b"
End
Sub
Sub
a()
ActiveCell.Value
=
0
SendKeys
"{Enter}"
End
Sub
Sub
b()
ActiveCell.Value
=
1
SendKeys
"{Enter}"
End
Sub
说明:
(1)Application.OnKey
"0",
"a"表示按下主键盘上的0(小键盘没效,如果你需要自已补充),就执行a过程.
(2)在Sub
a()和Sub
b()里是根据不同的按键输入不同的数值,再用SendKeys
"{Enter}"输入回车,你可以在"工具"->选项->编辑
里面设置Enter键的方向.
(3)其余数字键的设置你参考上面自已补充.这里仅抛砖引玉.
