如何在VBA / VB.NET中逃避无限循环

问题描述 投票:0回答:1

有点愚蠢的问题,但我找不到任何答案。 可悲的是,我犯了一个非常可耻的错误,我偶然创造了一个无限循环。

Private Sub Textbox1_Change()
    Do While Len(Trim(Textbox1.Text)) > 4
       MsgBox "Please enter your birthyear in format of ####"
    Loop
End Sub

因为我想强制用户只输入4位数字,显然没有意识到我做了一个,因为一旦你达到MsgBox字符就不可能关闭>4,它会继续创建新的MsgBoxes甚至在你查询关闭/ OK之后弹出的那个。

enter image description here

有没有办法取消它,而不完全关闭Excel?可悲的是,我甚至不能暂停代码,因为MsgBox以模态形式打开,我无法点击任何编辑器元素。

enter image description here

excel vba debugging infinite-loop halting-problem
1个回答
3
投票

只需按Ctrl + Alt +暂停/中断即可。

这会打断你的日常生活。

“暂停/中断”按钮标准位于大多数键盘上的PageUp按钮上方

© www.soinside.com 2019 - 2024. All rights reserved.