VBA 防止在代码中使用“结束”关闭用户窗体

Question

在我的电子表格中，我有一个应该始终打开的用户窗体。

偶尔，我的代码会包含一个“End”，我会在其中根据某些 if 语句退出代码。

问题是这会关闭用户窗体，有没有办法防止这种情况发生？

编辑：

Sub Test1()
    'Random code       
    Call Test2(Variable)
    'Random code           
End Sub

Sub Test2(ByVal Variable as Double)
    If Variable = 0 then
        'Random code
    End If
    If Variable = 1 then
        Call Test3
        End 'Original placement of End 
    End If
End Sub

Sub Test3()
    'Random code
End Sub

这是如何构建代码的粗略示例（此时它相当长）。因此，根据“变量”，Test2 中会发生不同的事情。但是如果变量为 1，那么 Test1 中的“随机代码”就无法执行，所以我必须停止代码。我尝试用“Exit Sub”替换“End”，这只会使Test2中的代码停止运行，当它返回到Test1时它会给我一个错误。

编辑2： Test1() 实际上是四个不同的 subs（此时，将添加更多），它们都调用 Test2()。这就是为什么我选择将它分成这么多的潜艇并从潜艇内部调用它们。

Answer 1

不，如果您坚持使用End，则不会。这基本上与单击开发人员窗口中的“停止”按钮具有相同的效果。您应该（很可能）不使用End。我无法告诉你应该使用什么，因为我不知道你想要达到什么目的。

更新：

根据您的代码，我看不出有任何理由将Test3() 嵌套在Test2() 中，因为它运行要么随机代码或 @ 987654325@（从不两者兼有）。是否有什么阻止您将所有不同的案例拆分为不同的子，然后在主子中执行If 语句？

Sub Main()
    If Variable = 0 Then
        'Random code from before Test2()
        'Random code from Test2()
        'Random code from after Test2()

    ElseIf Variable = 1 Then
        Call Test3()

    Else
        MsgBox "Variable must be 0 or 1!"

End Sub

Answer 2

您需要以某种方式告诉 Test1 它需要停止。解决此问题的一种方法是将您的 subs 更改为函数并返回一个指示状态的值。这样的事情会起作用：

Function Test1() As Integer
    Dim i As Integer

    'Random code
    i = Test2(Variable)
    If i = 1 Then Exit Function
    'Random code
End Function

Function Test2(ByVal Variable As Double) As Integer
    Test2 = 0

    If Variable = 0 Then
        'Random code
    End If
    If Variable = 1 Then
        Call Test3
        Test2 = 1
        Exit Function
    End If
End Function

Function Test3() As Integer
    'Random code
End Function

Answer 3

End 关闭任何东西并杀死你拥有的所有变量和对象。

这可能是结束任何子的最糟糕的方式，而且很可能你不需要它。

What's the deference between "end" and "exit sub" in VBA?

https://msdn.microsoft.com/VBA/Language-Reference-VBA/articles/end-statement