northwolves[狼行天下] 的专栏

无知无惧,无欲无敌。

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
阅读更多
文章标签: integer
个人分类: VBA
上一篇已知三角形三个边的长度值,求三个角的大小
下一篇设置文本框的九种对齐方式(左上,中上,右上,左中,中中,右中,左下,中下,右下)
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭