如何在VBA / VB.NET中摆脱无限循环

Question

一个愚蠢的问题，但我找不到任何答案。
可悲的是，我犯了一个非常可耻的错误，我在其中偶然创建了一个无限循环。

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

  

由于我想强制用户仅输入4位数字，因此显然不能   意识到无法关闭，我做了infinite-loop   MsgBox达到>4个字符后，它将继续创建   即使您关闭或确认弹出的MsgBox也可以使用新的MsgBox。

有没有一种方法可以取消它，而不必完全关闭Excel？可悲的是，鉴于{{1}}以模式形式打开，我什至都无法暂停代码，而且我也无法单击任何编辑器元素。

Answer 1

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

这会打断您的例程。

  

暂停/中断按钮通常位于大多数键盘上的 PageUp 按钮上方