Excel VBA – debugging程序在停止程序时崩溃Excel

我试图编码,以便能够在文本框中进行简单的math运算(用户types在5/8,.625出来)。 如果我遇到错误,debugging器就会告诉我这个错误,如果我点击结束button,另一个Excel窗口popup“Microsoft Excel停止工作”,然后excelclosures,然后重新打开。 当我在代码中放置断点并在断点处停止程序时,也会发生这种情况,excel只是崩溃,没有任何警告或解释。

这里是我正在debugging的代码的几行,也许这将有助于告诉你为什么,但我有这个项目的几个不同的模块,我以前从来没有这个问题,我已经能够debugging没有问题。

Sub TextboxMath(textbox As MSForms.textbox) Dim value As String value = textbox For i = 1 To Len(value) If Mid(value, i, 1) = "+" Then ElseIf Mid(value, i, 1) = "-" Then ElseIf Mid(value, i, 1) = "*" Then ElseIf Mid(value, i, 1) = "/" Then End If Next i End Sub 

还有运行子程序的代码

 Private Sub tbANTShankDiameter_AfterUpdate() If obSDIN.value = True Then Call TextboxMath(tbANTShankDiameter) End If End Sub 

这只会发生在我停止或重置错误后的debugging器和程序。 我会很感激任何build议,让我知道如果我需要提供更多的信息,可以帮助你给我一个更好的build议。 非常感谢您的阅读和帮助!

编辑:

我尝试将所有的用户表单,代码和数据传输到一个新的工作簿,但是我仍然没有运气,而且崩溃了。 但是,我注意到,它只是在代码中的AfterUpdate事件上崩溃,而不是其他任何事情。 当您停止或重置错误的debugging器时,或者停止断点处的代码进行testing时,它会崩溃。 这是我第一次使用这些事件,我的工作簿中没有其他地方,这就是为什么我从来没有遇到过这个问题。 任何新想法的人? 再次感谢!!

埃文