In der Programmiersprache VBA (Visual Basic for Applications), die in Excel verwendet wird, gibt es viele Funktionen zum Arbeiten mit Zahlen. Eine solche nützliche Funktion ist die Abrundungsfunktion.
Wenn Sie nach unten runden (oder einen Bruchteil abschneiden), wird eine Zahl auf den nächsten ganzzahligen Wert gebracht, der kleiner oder gleich der ursprünglichen Zahl ist. In VBA kann dies mit der Floor-Funktion erfolgen.
Die Floor-Funktion hat zwei Argumente: die Zahl, die abgerundet werden soll, und die Anzahl der Dezimalstellen. Die Anzahl der Dezimalstellen wird durch das zweite Argument angegeben und kann entweder positiv oder negativ sein. Wenn das zweite Argument negativ ist, wird die Rundung auf ganze Dezimalstellen ausgeführt.
Die Verwendung der Abrundungsfunktion kann beispielsweise bei der Arbeit mit Finanzinformationen nützlich sein, wenn ein Betrag auf einen kleineren Wert gerundet werden muss, oder bei mathematischen Operationen, bei denen die Genauigkeit der Berechnungen erforderlich ist.
VBA Excel: Grundlagen der Abrundungsfunktion
Verwenden Sie die Funktion, um die Abrundung in Excel VBA durchzuführen Application.WorksheetFunction.Floor. Diese Funktion akzeptiert zwei erforderliche Argumente: die Zahl, die abgerundet werden soll, und den Rundungswert.
Betrachten Sie zum Beispiel das folgende Beispiel. Wir haben eine Zahl von 6.9, die auf eine ganze Zahl gerundet werden muss. Im VBA-Code könnte dies folgendermaßen aussehen:
Dim number As Double Dim roundedNumber As Double number = 6.9 roundedNumber = Application.WorksheetFunction.Floor(number, 1) MsgBox "Gerundete Zahl: " & roundedNumber
In diesem Beispiel verwenden wir die Floor-Funktion, um die Zahl 6.9 auf einen ganzzahligen Wert zu runden. Der Rundungswert ist 1, daher lautet das Ergebnis 6.
Mit der Funktion "Nach unten runden" können Sie Zahlen auf die erforderliche Anzahl von Dezimalstellen sowie auf größere Werte wie Zehner, Hunderte oder Tausende runden.
Auf diese Weise macht es die Funktion zum Runden nach unten (Floor) in Excel VBA einfach, Zahlen auf den nächsten kleineren Wert zu identifizieren und zu runden. Es wird häufig in verschiedenen Berechnungen und Programmieralgorithmen zur Verarbeitung numerischer Daten verwendet.
Funktionsweise der Abrundungsfunktion in VBA Excel
In VBA Excel gibt es eine Funktion zur Abrundung, mit der eine Zahl auf die nächste untere ganze Zahl gerundet wird. Dies bedeutet, dass der Bruchteil der Zahl verworfen wird und nur der ganze Teil übrig bleibt.
Die Syntax der Abrundungsfunktion in Excel VBA lautet wie folgt:
| Funktion | Die Beschreibung |
| WorksheetFunction.Floor(x, Gitter) | Rundet die Zahl x auf den nächsten Rasterwert ab |
- x ist die Zahl, die nach unten gerundet werden soll
- das Raster ist ein optionaler Parameter, der den Wert angibt, auf den die Zahl gerundet werden soll.
Wenn Sie keinen Wert für den Parameter Raster angeben, wird durch die Funktion "Abrundung" einfach der Bruchteil der Zahl verworfen und die nächste untere Ganzzahl zurückgegeben.
Andernfalls rundet die Funktion nach unten die Zahl auf den nächsten Wert auf, der kleiner oder gleich dem Wert von Raster ist.
Wenn wir zum Beispiel die Zahl 4.7 haben und die Funktion zum Abrunden verwenden, ohne den Parameter Raster anzugeben, ist das Ergebnis die Zahl 4, da dies die nächste untere Ganzzahl ist.
Wenn wir jedoch die Funktion "Abrundung" mit dem Raster-Parameter 0.5 verwenden, wird das Ergebnis in diesem Fall 4.5 sein, da dies der nächste Wert ist, der kleiner oder gleich 4.7 ist.
Daher ermöglicht es uns, mit der Funktion nach unten zu runden, genauere Werte von Zahlen unter Berücksichtigung des Bruchteils und des angegebenen Rasterparameters zu erhalten.
Beispiel für die Verwendung der Abrundungsfunktion in Excel VBA
In Excel VBA wird die Funktion verwendet, um Zahlen nach unten zu runden Application.Floor. Es nimmt zwei Argumente an: der Wert, der abgerundet werden soll, und der Rundungswert.
Hier ist ein Beispiel für die Verwendung dieser Funktion:
Sub RoundDownExample()Dim num As DoubleDim rounding As Doublenum = 10.9rounding = 1MsgBox "Исходное число: " & numMsgBox "Величина округления: " & roundingMsgBox "Результат округления: " & Application.Floor(num, rounding)End SubIn diesem Beispiel wird die Zahl 10.9 verwendet, die auf die nächste ganze Zahl, ein Vielfaches von 1, gerundet werden muss. Als Ergebnis der Abrundungsfunktion erhalten wir die Zahl 10.
Funktion Application.Floor rundet die Zahlen auf die nächste ganze Zahl ab, die ein Vielfaches des angegebenen Rundungswertes beträgt. Wenn der Rundungswert positiv ist, erfolgt die Rundung nach unten, und wenn der Rundungswert negativ ist, erfolgt die Rundung nach oben.
Es ist auch erwähnenswert, dass die Abrundungsfunktion nicht immer eine ganze Zahl zurückgibt. Wenn der Rundungswert Dezimalstellen enthält, ist das Ergebnis der Rundung eine Zahl mit der gleichen Anzahl von Dezimalstellen, jedoch mit einem niedrigeren Wert.
Als Ergebnis der Abrundungsfunktion erhalten wir genauere Ergebnisse im Vergleich zur normalen Rundung auf die nächste ganze Zahl.
