So runden sie werte in vba (mit beispielen)

Sie können die RoundDown- Methode in VBA verwenden, um Werte zu runden.

Diese Funktion verwendet die folgende grundlegende Syntax:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

In diesem speziellen Beispiel wird der Wert in Zelle A1 auf die nächste ganze Zahl gerundet und das Ergebnis in Zelle B1 angezeigt.

Beachten Sie, dass das zweite Argument der RoundDown- Methode die Anzahl der zu rundenden Ziffern angibt. Dabei gilt:

• -3 rundet auf den nächsten Tausender ab
• -2 rundet auf den nächsten Hundert ab
• -1 rundet auf die nächste Zehn ab
• 0 rundet auf die nächste ganze Zahl ab
• 1 rundet auf das nächste Zehntel (eine Dezimalstelle) ab
• 2 Abrundungen auf das nächste Hundertstel (zwei Dezimalstellen)
• 3 Abgerundet auf das nächste Tausendstel (drei Dezimalstellen)

Und so weiter.

Die folgenden Beispiele zeigen, wie Sie die RoundDown- Methode in der Praxis anwenden können.

Verwandte Themen: So runden Sie Werte in VBA

Beispiel 1: Runden Sie in VBA auf die nächste ganze Zahl

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf die nächste ganze Zahl zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 0)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf die nächste ganze Zahl von 1432 in Zelle B1 gerundet wurde.

Beispiel 2: Runden Sie in VBA auf den nächsten Hundert

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf den nächsten Hundert zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), -2)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf den nächsten Hundert von 1400 in Zelle B1 gerundet wurde.

Beispiel 3: Runden Sie in VBA auf das nächste Zehntel

Wir können das folgende Makro erstellen, um den Wert in Zelle A1 auf das nächste Zehntel (also eine Dezimalstelle) zu runden und das Ergebnis in Zelle B1 anzuzeigen:

 Sub RoundDownValue()
    Range(" B1 ") = WorksheetFunction.RoundDown(Range(" A1 "), 1)
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Beachten Sie, dass der Wert 1432,78 in Zelle A1 auf das nächste Zehntel von 1432,7 in Zelle B1 abgerundet wurde.

Hinweis : Die vollständige Dokumentation zur VBA- RoundDown -Methode finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So schreiben Sie SUMIF- und SUMIFS-Funktionen
VBA: So schreiben Sie COUNTIF- und COUNTIFS-Funktionen
VBA: So schreiben Sie die Funktionen AVERAGEIF und AVERAGEIFS