Terminer la macro à partir de l'exécution suite à la validation

J'ai un method-A() qui est appelée à partir de plusieurs méthodes,

Sur une condition dans la méthode-Un, je dois mettre fin à la macro.

j'ai vu une option que Exit sub mais ce sera juste quitter la sub ie:method-A() et le reste du programme se poursuit.

comment gérer cela.

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

source d'informationauteur Naveen Babu

  1. 16

    Modifier après le commentaire:
    Utilisez simplement end où vous voulez mettre fin à TOUS les code.

    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

    Réponse originale à cette question: Tout ce que vous devez faire est de faire methodA une fonction et le retour de cette fonction FALSE si vous voulez quitter la principale méthode que par le code suivant:

    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