Excel- und VBA-Zusammenfassungsfunktion

Das Erlernen der Verwendung der "Roundup"-Funktion von Excel über die integrierte Programmiersprache VBA oder Visual Basic for Applications hilft Ihnen, jede Excel-Funktion von VBA aus auszuführen. Diese Fertigkeit ist nützlich, da Excel über viele Funktionen verfügt, die VBA nicht bietet und die Sie möglicherweise über ein VBA-Programm anwenden müssen. Beachten Sie, dass die VBA-Funktion, mit der Sie auf die Funktion "Aufrunden" tippen können, Sie nicht auf eine falsche Syntax oder ein falsches Argument aufmerksam macht, wie dies bei der Verwendung der Standard-Arbeitsblattschnittstelle der Fall wäre.

Die Excel-Funktion "Aufrunden" rundet eine Zahl auf die von Ihnen angegebene Stellenzahl auf. Wenn Sie beispielsweise "Roundup (2.2, 0)" ausführen, wird Excel mitgeteilt, dass die Zahl 2.2 auf die nächste ganze Zahl aufgerundet werden soll. Die "0" im zweiten Argument teilt Excel mit, dass Sie keine Ziffern nach dem Komma haben möchten, was einer ganzzahligen Antwort entspricht.

VBA hat keine integrierte "Roundup"-Funktion. Die nächste Funktion, die es hat, ist die Funktion "Runden", die auf- oder abrundet, je nachdem, ob die Endziffer der Zahl, die Sie runden, größer oder kleiner als 5 ist. Wenn Sie beispielsweise "Runden (2.2, 0)" im VBA-Fenster "Sofort" eingeben, erhalten Sie eine 2 anstelle der 3, auf die die Excel-Funktion "Roundup" aufrunden würde.

Obwohl VBA keine eigene "Roundup"-Funktion hat, kann es die "Roundup"-Funktion von Excel verwenden. Um VBA dazu anzuweisen, setzen Sie die Eigenschaft "Formel" des virtuellen Objekts "Bereich" auf die Funktion "Aufrunden". Das folgende Beispiel zeigt Ihnen, wie das geht. Öffnen Sie die VBA-Entwicklungsumgebung, indem Sie in Excel gleichzeitig "Alt" und "F11" drücken. Klicken Sie mit der Maus in das Fenster "Sofort" und geben Sie die folgende Anweisung ein: "Bereich ("A1").Formula = "=Roundup (2.2, 0)"." Kehren Sie mit der soeben beschriebenen "Alt-F11"-Taste zu Excel zurück. Sie sehen das Ergebnis "3" in Zelle A1, was anzeigt, dass Ihre Anweisung die Excel-Funktion "Aufrunden" erfolgreich angewendet hat.

Sie können ein interaktives VBA-Programm erstellen, das von einem Benutzer die Argumente für die Funktion "Aufrunden" akzeptiert und das Ergebnis dieser Funktion anzeigt. Fügen Sie nach dem Öffnen der VBA-Entwicklungsumgebung das folgende Programm in das Fenster ein:

Public Sub roundUpANumber() Dim a1, a2, s a1 = CDbl (InputBox("Geben Sie die Zahl ein, die Sie runden möchten")) a2 = CInt (InputBox("Geben Sie die Anzahl der Dezimalstellen ein, auf die Sie möchten die gerade eingegebene Zahl runden.")) s = "=Roundup(" & a1 & "," & a2 & ")" Range("A1").Formula = s Range("A1") .MsgBox berechnen (Bereich("A1").Wert) Ende Sub

Führen Sie das Programm aus, indem Sie auf eine seiner Anweisungen klicken und dann auf den Befehl "Ausführen" des Menüs "Ausführen". Wenn Excel Sie zur Eingabe der Argumente der Funktion auffordert, geben Sie sie ein und drücken Sie die Eingabetaste. Ihr Programm zeigt das Ergebnis der Funktion "Aufrunden" für die eingegebenen Argumente an.