Excel中怎样实现部分表格自动跳格

来源:百度知道 编辑:UC知道 时间:2024/09/20 03:37:47
我有比较多数据需要输入,除姓名和学校外,其余的都只输入一个数字(0、1、2、3、4)。请问有什么好方法可以实现在Excel中输入一个数字时自动跳格向右?

PS:我用的Office 2007 ,我的Enter键已设成向右跳转。

据我所知可以用“Excel录制宏”或者“用MS Visual Basic编写代码”,但苦于才疏学浅,恳请赐教!谢谢!
先谢谢lovejason521仔细的回答,但再请问下“Application.OnKey '0', 'a'表示按下主键盘上的0(小键盘没效,如果你需要自已补充)”,如果用小键盘该写什么代码呢?非常感谢!

打开你的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