另一种方式。
- 如果您在 Col A 的任何位置键入,选择将移至 Col B。
- 如果您在 Col B 的任何位置键入,则选择将移至 Col C。
- 如果您在 Col C 中的任何位置键入,选择将移回 Col A(下一行)。
代码:这在相关的工作表代码区域中。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Whoa
Application.EnableEvents = False
If Not Target.Cells.CountLarge > 1 Then
If Not Intersect(Target, Columns(1)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(2)) Is Nothing Then
Target.Offset(, 1).Select
ElseIf Not Intersect(Target, Columns(3)) Is Nothing Then
Target.Offset(1, -2).Select
End If
End If
Letscontinue:
Application.EnableEvents = True
Exit Sub
Whoa:
MsgBox Err.Description
Resume Letscontinue
End Sub
截屏