EXCELSHEET 中"输入”或“编辑”状态与“就绪”状态的切换

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Macro1()
Dim i As Integer
For i = 1 To 5
   Sheet1.Range("D10").Select
    ActiveCell.Activate
    SendKeys " "
    Sleep 1000
    DoEvents
    SendKeys "{enter}"
    Sleep 1000 '可以看到动态改变的效果
     DoEvents
   Next
End Sub