在excel中自动跳格

发布网友发布时间：2022-04-20 11:20

共1个回答

热心网友时间：2023-09-18 08:45

打开你的Excel文档，点击“工具”->宏->宏,输入auto_open点击创建进入代码编辑窗口,输入代码,然后保存退出,重新打开文档就生效:
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)其余数字键的设置你参考上面自已补充.这里仅抛砖引玉.

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com