Vba: so runden sie werte auf 2 dezimalstellen
Sie können die folgenden Methoden verwenden, um Werte mithilfe von VBA auf zwei Dezimalstellen zu runden:
Methode 1: Runden Sie einen Wert auf zwei Dezimalstellen
Sub RoundTwoDecimals()
Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub
In diesem speziellen Beispiel wird der Wert in Zelle A2 auf zwei Dezimalstellen gerundet und der gerundete Wert in Zelle B2 angezeigt.
Methode 2: Runden Sie alle Werte im Bereich auf 2 Dezimalstellen
Sub RoundTwoDecimals()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
Next i
End Sub
In diesem speziellen Beispiel wird jeder Wert im Bereich A2:A9 auf zwei Dezimalstellen gerundet und die gerundeten Werte im Bereich B2:B9 angezeigt.
Die folgenden Beispiele zeigen, wie die einzelnen Methoden in der Praxis angewendet werden.
Beispiel 1: Runden Sie einen Wert auf zwei Dezimalstellen
Wir können das folgende Makro erstellen, um den Wert in Zelle A2 auf zwei Dezimalstellen zu runden und das Ergebnis in Zelle B2 anzuzeigen:
Sub RoundTwoDecimals()
Range(" B2 ") = WorksheetFunction.Round(Range(" A2 "), 2)
End Sub
Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:
Beachten Sie, dass der Wert 15,248 in Zelle A2 in Zelle B2 auf zwei Dezimalstellen (15,25) gerundet wurde.
Beispiel 2: Runden Sie alle Werte im Bereich auf 2 Dezimalstellen
Wir können das folgende Makro erstellen, um jeden Wert im Bereich A2:A9 auf zwei Dezimalstellen zu runden und die gerundeten Werte im Bereich B2:B9 anzuzeigen:
Sub RoundTwoDecimals()
Dim i As Integer
For i = 2 To 9
Range(" B " & i) = WorksheetFunction.Round(Range(" A " & i), 2)
Next i
End Sub
Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:
Beachten Sie, dass jeder Wert im Bereich A2:A9 auf zwei Dezimalstellen gerundet wurde und die gerundeten Werte im Bereich B2:B9 angezeigt werden.
Hinweis : Die vollständige Dokumentation zur VBA- Round- Methode finden Sie hier .
Zusätzliche Ressourcen
In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen: