发布网友 发布时间:2022-04-23 01:21
共1个回答
热心网友 时间:2023-10-09 23:26
可以设置两个按钮,一个是开始,一个是停止。
开始那个按钮的代码很简单,先设置A1单元格为start,然后就一直循环做Calculate,也就是相当于按F9,直到A1等于stop:
Sub mystart1()
mouseevents = False
Range("A1") = "start"
Do
Calculate
DoEvents
Loop Until Range("A1") = "stop"
End Sub
结束按钮就更简单,一点就是A1单元格等于stop:
Sub mystop1()