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

如题所述

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呢

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/ch2fshh6xfcsth22xct.html