Question

我正在尝试编码以便能够在文本框中进行简单的数学运算（用户输入5/8，.625）。如果我遇到错误，调试器会告诉我错误，如果我点击结束按钮，会弹出另一个Excel窗口，说“Microsoft Excel已停止工作”并且excel关闭然后重新打开。当我在代码中放置断点并在断点处停止程序，excel只是崩溃，没有警告或解释时，也会发生这种情况。

以下是我正在调试的几行代码，也许这有助于告诉您原因，但我有几个不同的模块用于此项目，我之前从未遇到过这个问题，而且我能够在没有问题的情况下进行调试

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

只有当我在发生错误后停止或重置调试器和程序时才会发生这种情况。我很感激任何建议，如果我需要提供更多可以帮助您给我更好建议的信息，请告诉我。非常感谢阅读和帮助！

修改：

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

埃文

Excel VBA - 调试程序在停止程序时崩溃Excel

0 个答案: