须长按F9开始滚动,松开停止。我想能不能用控件做按钮,鼠标点击控件实现长按F9开始滚动,松开停止的功能。
可以设置两个按钮,一个是开始,一个是停止。
开始那个按钮的代码很简单,先设置A1单元格为start,然后就一直循环做Calculate,也就是相当于按F9,直到A1等于stop:
Sub mystart1()mouseevents = FalseRange("A1") = "start"DoCalculateDoEventsLoop Until Range("A1") = "stop"End Sub
结束按钮就更简单,一点就是A1单元格等于stop: