Question

在Excel的A1和A2单元格输入数据后按回车直接跳到A4单元格，请问vba该怎样写呢？

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  '工作表选取单元格事件
If Target.Address = "$A$1" Or Target.Address = "$A$2" Then  '如果目标值是A1或A2
    Application.OnKey "~", "Sheet1.test" 'enter的快捷键变成Sheet1.test这个程序运行的启动热键
ElseIf Target.Address <> "$A$1" Or Target.Address <> "$A$2" Then '如果目标值是不是A1,A2
    Application.OnKey "~" '恢复功能
End If
End Sub

Sub test()
 Range("a4").Select
End Sub

追问

谢谢，请问在同一列中任意连续输入两个单元格数据后按回车跳到下两个单元格该怎样写vba呢