Aufrunden in VBA

Iqra Hasnain 12 Juli 2022
Aufrunden in VBA

Anhand von Beispielen stellen wir Ihnen die Funktionen Round() und RoundUp() in VBA vor.

Verwenden Sie die Funktionen Round() oder RoundUp() in VBA

Bei der Arbeit mit Excel-Tabellen, die Zahlen und Berechnungen enthalten, erhalten wir Ergebnisse in Brüchen. Manchmal müssen wir diese Dezimalzahlen in ganze Zahlen umwandeln.

VBA bietet drei verschiedene Funktionen, mit denen Dezimalzahlen in ganze Zahlen umgewandelt werden können. Wir werden in diesem Artikel zwei Funktionen besprechen.

Das Round() rundet die Dezimalzahl auf die nächste ganze Zahl. Wir speichern zum Beispiel eine Dezimalzahl und verwenden dann die Funktion Round().

Beispielcode:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num)
End Sub

Ausgabe:

Runde Funktion in VBA

Wir können sogar die Anzahl der Dezimalstellen angeben, bis wir die Dezimalzahl runden wollen. Lassen Sie uns versuchen, dieselbe Zahl auf eine Dezimalstelle zu runden.

Beispielcode:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.79
MsgBox Round(num, 1)
End Sub

Ausgabe:

Rundungsfunktion bis auf eine Dezimalstelle in VBA

Aus dem obigen Ergebnis können wir die Dezimalzahl leicht auf 1 Dezimalstelle runden. Wir können diese Funktion auch verwenden, um den Wert aus der Zelle in der Excel-Tabelle zu runden.

Lassen Sie uns versuchen, die Zahl in der Excel-Tabelle mit der Bereichsmethode zu runden.

Beispielcode:

# VBA
Sub roundFunc()
Range("A1").Value = Round(Range("A1").Value, 1)
End Sub

Ausgabe:

Rundung einer Zahl aus Excel-Tabelle in VBA

Lassen Sie uns eine andere Funktion besprechen, die die Dezimalzahl aufrunden kann, selbst wenn die Zahl in der Nähe der kleineren ganzen Zahl liegt. Es kann viele Situationen geben, in denen wir die Dezimalzahl immer auf die ganze Zahl runden müssen, die größer als die Dezimalzahl ist.

Syntax:

# VBA
Application.WorksheetFunction.RoundUp(num, 1)

Lassen Sie uns ein Beispiel haben und versuchen, die Funktion RoundUp() zu verwenden.

Beispielcode:

# VBA
Sub roundFunc()
Dim num As Double
num = 5.468
MsgBox Application.WorksheetFunction.RoundUp(num, 1)
End Sub

Ausgabe:

Aufrundungsfunktion in VBA

So können wir die Zahlen mit der Funktion RoundUp() auf die grösstmögliche ganze Zahl runden.