Sub-Aufruf in VBA

Wir werden anhand eines Beispiels in VBA vorstellen, wie man ein Sub in einem anderen Sub aufruft.

Aufruf von Sub in VBA

Bei der Arbeit an mehreren Unterprozeduren kann es vorkommen, dass wir mehrere Unterprozeduren für dieselbe Funktion aufrufen müssen.

Einige Funktionen erfordern eine riesige Menge an Code, der geschrieben werden muss, und diesen Code leicht verständlich zu machen; wir müssen sie in mehreren Teilen machen. Und wir müssen diese Teile in einem einzigen Sub aufrufen, um sicherzustellen, dass der gesamte Prozess reibungslos funktioniert.

Dieses Tutorial wird uns beibringen, mehrere Subs in einem einzigen Sub anzurufen. Lassen Sie uns ein Beispiel durchgehen, in dem wir die Summe mehrerer Spalten erhalten und dann die Summe der mehreren Summen erhalten, wie unten gezeigt.

Sub sumOfA()
Dim result As Double
result = WorksheetFunction.Sum(Range("A2:A8"))
Range("A11") = "Sum Of A"
Range("A12") = result
End Sub
Sub sumOfB()
Dim result As Double
result = WorksheetFunction.Sum(Range("B2:B8"))
Range("B11") = "Sum Of B"
Range("B12") = result
End Sub
Sub totalSum()
Call sumOfA
Call sumOfB
Dim result As Double
result = WorksheetFunction.Sum(Range("A12:B12"))
Range("C11") = "Total Sum"
Range("C12") = result
End Sub

Ausgabe:

Wie wir im obigen Beispiel sehen können, wollten wir die Summe mehrerer Spalten erhalten, und danach wollten wir die Summe der Summen erhalten, die wir erhalten haben. Dazu haben wir den Code in drei verschiedene Subs zerlegt und die beiden Subs in unserem letzten Sub aufgerufen.

Das Aufteilen von Code in mehrere Funktionen ist eine gute Praxis, um sie einfach und leicht zu machen.