Chấm dứt Macro Từ thực hiện sâu hơn về xác nhận

Question

Tôi có một method-A() đó được gọi là từ nhiều phương pháp,

Trên một điều kiện trong phương pháp-A, tôi phải chấm dứt chương trình macro.

tôi thấy một tùy chọn là Exit sub nhưng điều này sẽ chỉ thoát khỏi sub ie:method-A() hiện tại và chương trình còn lại tiếp tục.

cách xử lý việc này.

Sub mainMethod() 
    method-A() 
end Sub 

Sub method-A() 
    if (true) Then 
     'Terminate the macro. that is exit method-A() and also mainMethod() 
end Sub 

Answer 1

Chỉnh sửa sau khi bình luận: Chỉ cần sử dụng end nơi bạn muốn chấm dứt tất cả các mã.

Sub mainMethod() 
    method_A() 
end Sub 

Sub method-A() 
    if (true) Then End 
     'Terminate the macro. that is exit method-A() and also mainMethod() 
end Sub 

gốc trả lời: Tất cả bạn cần làm là làm cho methodA một chức năng và trở về chức năng này như FALSE nếu bạn muốn thoát khỏi phương pháp chính theo đoạn mã sau:

Sub mainMethod() 

    'Run the custom function and if it returns false exit the main method 
    If Not method_A Then Exit Sub 

    'If method_A returns TRUE then the code keeps going 
    MsgBox "Method_A was TRUE!" 

End Sub 

Function method_A() As Boolean 
    Dim bSomeBool As Boolean 

    'Code does stuff 
    bSomeBool = True 

    'Check your condition 
    If bSomeBool Then 
     'Set this function as false and exit 
     method_A = False 
     Exit Function 
    End If 

    'If bSomeBool = False then keep going 
End Function