在user form中暂停

cjf1302

在在user form窗口下，按键执行某个代码，但是执行需要太长时间，esc无法暂停，

功能实现：
增加一个按钮，在执行代码过程中，如果点击按钮，马上暂停代码执行

大灰狼1976

如果执行很长时间的代码是一段循环体的话可以实现，看看你的。

cjf1302

大灰狼1976 发表于 2024-9-26 16:26
如果执行很长时间的代码是一段循环体的话可以实现，看看你的。

很长时间是for循环

小凡、、、

实现不了暂停时停到运行到那句这种效果，代码本身就很耗时的话，做循环+全局按钮变量控制暂停也不实际

DevilW

可以在循环中加入判断语句，比如运行时间到1分钟弹出 Inputbox 对话框，根据你输入的数值决定继续运行或中止

tdpzby

循环中可以加个doevents，这样可以响应其他操作

lss001

Dim cds As Boolean

Sub 开始() '开始按钮
    cds = 1 '初始化条件
    For i = 1 To 2 ^ 31
          Vba.DoEvents '转让控件权
         '符合结束条件则退出
          If cds = 0 Then Exit For
          '其它代码......
    Next
End Sub

Sub 结束() '结束按钮
    cds = 0 '指定结束条件
End Sub