VBA-Aufrundungsfunktion zum Aufrunden von Zahlen in Excel

Excel VBA RoundUp-Funktion

Ähnlich wie bei der Arbeitsblattfunktion, bei der wir die Zahlen auf die nächsten Ganzzahlen aufrunden, haben wir in VBA eine RoundUp-Funktion, die den Dezimalpunkt für uns verringert, und die Syntax für die Verwendung der Aufrundungsfunktion lautet wie folgt: Aufrunden (Anzahl, Anzahl der Nachkommastellen) ) Diese beiden Argumente in der Funktion sind obligatorisch.

Wenn wir mit Zahlen und Berechnungen arbeiten, erhalten wir nach der ganzen Zahl Bruchzahlen, was im Geschäftsalltag durchaus üblich ist. Wir kümmern uns im Allgemeinen nicht um die Dezimalwerte, da dies keinen Einfluss auf unser Endergebnis hat. In solchen Situationen müssen wir die Zahlen auf die nächste ganze Zahl oder unmittelbare ganze Zahl aufrunden. Mit der RoundUp-Funktion können wir diese Aufgabe tatsächlich ausführen.

Wenn Sie in VBA nach der RoundUp-Funktion gesucht haben, müssen Sie sie nicht gefunden haben, da es sich um eine Arbeitsblattfunktion handelt. Um auf die RoundUp-Funktion zugreifen zu können, müssen wir die Funktionsklasse vba Worksheet verwenden.

Erinnern Sie sich vorher an die Syntax der RoundUp-Funktion.

Beispiele

Sie können diese VBA RoundUp Excel-Vorlage hier herunterladen - VBA RoundUp Excel-Vorlage

Führen wir die Aufgabe aus, die Zahl „288.5264“ aufzurunden. Wir werden alle Zahlen mit diesem Beispiel sehen.

Beispiel 1 - Wenn das zweite Argument Null ist

Schauen Sie sich den folgenden VBA-Code an.

Code:

 Sub RoundUp_Example1 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 0) MsgBox k End Sub

Wenn Sie den obigen Code ausführen, wird die angegebene Nummer, dh 288.5264, in die nächste ganze Zahl, dh 289, konvertiert

Beispiel 2 - Wenn das zweite Argument 1 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir einen als zweites Argument übergeben.

Code:

 Sub RoundUp_Example2 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 1) MsgBox k End Sub

Dieser Code konvertiert die angegebene Zahl in einen Dezimalpunkt, dh 288.6

Beispiel 3 - Wenn das zweite Argument 2 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir zwei als zweites Argument übergeben.

Code:

 Sub RoundUp_Example3 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 2) MsgBox k End Sub

Dieser Code konvertiert die angegebene Zahl in zwei Dezimalstellen, dh 288,53

Beispiel 4 - Wenn das zweite Argument 3 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir drei als zweites Argument übergeben.

Code:

 Sub RoundUp_Example4 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, 3) MsgBox k End Sub

Dieser Code konvertiert die angegebene Zahl in drei Dezimalstellen, dh 288.527

Beispiel 5 - Wenn das zweite Argument -1 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir als zweites Argument minus eins übergeben.

Code:

 Sub RoundUp_Example5 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -1) MsgBox k End Sub

Dieser Code konvertiert die angegebene Zahl in die nächsten zehn, dh 290.

Beispiel 6 - Wenn das zweite Argument -2 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir als zweites Argument minus zwei übergeben.

Code:

 Sub RoundUp_Example6 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -2) MsgBox k End Sub

Dieser Code konvertiert die angegebene Zahl in die nächsten hundert, dh 300.

Beispiel 7 - Wenn das zweite Argument -3 ist

Schauen Sie sich den folgenden Code an, um zu sehen, was passiert, wenn wir als zweites Argument minus drei übergeben.

Code:

 Sub RoundUp_Example7 () Dim k As Double k = WorksheetFunction.RoundUp (288.5264, -3) MsgBox k End Sub

Dieser Code konvertiert die Zahl in die nächste Tausend, dh 1000.

Auf diese Weise können wir die ROUNDUP-Funktion in VBA als Teil der Arbeitsblatt-Funktionsklasse verwenden, um die Zahlen basierend auf dem angegebenen zweiten Argument aufzurunden.