excel - 有没有办法在指定的时间后自动离开活动单元格？

Question

这是我目前拥有的代码，但它仅在您只需单击单元格一次时才有效。如果您实际上在单元格中，则计时器仍然会倒计时，但在您关闭活动单元格之前它不会重新回到 A1。有没有办法解决这个问题？

Private Sub Worksheet_Change(ByVal Target As Range)
       
    'Restart timer
    
    StopTimer
    StartTimer
    
End Sub

Private Sub StartTimer()
    RunWhen = Now + TimeSerial(0, 0, 10)
    Application.OnTime EarliestTime:=RunWhen, Procedure:=Me.CodeName & ".SelectCell", Schedule:=True
End Sub

Private Sub StopTimer()
    On Error Resume Next
    Application.OnTime EarliestTime:=RunWhen, Procedure:=Me.CodeName & ".SelectCell", Schedule:=False
End Sub

Private Sub SelectCell()

    'Select last non-blank cell in column A
    
    Range("A1").Select
    'MsgBox "test2"
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    'Call StopTimer
    Call StartTimer
    'Call SelectCell
    'MsgBox "test"
    
End Sub