excel输入一个数字后自动跳往后面的单元格

    Excel中关于数字或字符的长度限制，可能通过“有效性”验证来实现，

http://s13/mw690/818b22e5td55711b593bc&690

    若输入一个数字当前光标向后跳一列，要通过一定的程序来实现，例如在VB中：

Option Explicit

Private Sub TextBox1_Change()
If Len(TextBox1.Text) = 1 Then
   ActiveCell = TextBox1.Text
   ActiveCell.Borders.LineStyle = False
   If ActiveCell.Column <> 8 Then
      ActiveCell.Offset(, 1).Select
   Else
      ActiveCell.Offset(1, -5).Select
   End If
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [c2:h10]) Is Nothing Then
   TextBox1.Activate
   TextBox1.Value = ""
   ActiveCell.BorderAround , 2, 1
Else
   TextBox1.Visible = False
   ActiveSheet.Cells.Borders.LineStyle = False
End If
End Sub