Question

我写了这个简单的VBA代码来包含开始和停止按钮。单击On按钮启动Do循环后，excel保持忙碌状态，我无法单击Off按钮停止循环。你能帮忙吗？

Public ONOFF As Boolean

Sub ON_Button()
    ONOFF = True
    Do While ONOFF
        Matha
    Loop
    MsgBox ("Exit Matha sub")
End Sub

Sub OFF_Button()
     ONOFF = False
End Sub

Sub Matha()
Dim X, Y, Z
    X = 1
    Y = 2
    Z = 5
    Z = X * Y + Z
End Sub

Answer 1

您是否将Off_Button指定为“开启”按钮？添加带有文本的debug.print以确保其正常工作如果这不是问题，请尝试在循环中添加DoEvents以允许Excel处理您的点击。

构建这样的循环将耗费您所有的处理器时间（至少是专用于Excel的核心）。要获得更好的解决方案，请查看：How To Create a Timer Event Using the Windows API Functions。

在VBA中启动停止按钮

1 个答案: