Aufrunden in VBA
![Aufrunden in VBA](/img/VBA/feature-image---round-up-in-vba.webp)
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:
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:
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:
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:
So können wir die Zahlen mit der Funktion RoundUp()
auf die grösstmögliche ganze Zahl runden.