如何用excel宏来实现输入后自动换单元格啊

Question

我需要在输入完一个数字后自动跳转到下一个单元格 请问如何编程啊 请高手帮忙... ...
DX您好 我的意思是输一个换一下 因为我输得数据类型比较特殊 只有一位数 我希望能不用按tab键自动换格 您的意思是在边缘时跳转

Answer 1

这个可以通过锁定表格，设置可编辑的表格。这样的话，你输入完数据，一回车，就到了下一个单元格了。中间不需要经过的单元格，设置成了不能选中的，所以就都一下跳过了。
这个是执行代码：
Sub lockall()
With Worksheets(1)
'Worksheets(1)是指第一个工作簿
.EnableSelection = xlUnlockedCells
.Protect Contents:=True, UserInterfaceOnly:=True
End With
'设置为工作簿锁定，仅允许单元格属性 锁定 为 否的可以编辑
Range(Cells(1, 1), Cells(1, 5)).Locked = False
设置第一个区域 单元格属性 锁定 为否。Cells(1, 5)中两个数字为单元格坐标。在这行命令之前最好加上Worksheets(1).Activate设置其为当前活动工作簿。
Range(Cells(2, 1), Cells(2, 5)).Locked = False
End Sub
参看我的博客有解说：http://hi.baidu.com/vain%5Fqu/blog/item/ab2059df1786a312495403a5.html

Answer 2

由于worksheet不支持键盘事件，所以只能添加窗体实现。运行宏的时候显示这个窗体（窗体有一个TextBox1)。
写一个TextBox1的KeyPress事件，如下面代码
If KeyAscii.Value >= 48 And KeyAscii.Value <= 57 Then
  Selection.Value = Chr(KeyAscii.Value)
  Selection.Next.Select
  TextBox1.Text = ""
End If

其中Selection.Next.Select也就是下一个单元格自己实现吧本回答被提问者采纳