Im Folgenden sehen wir uns ein Programm in an Excel VBA das teilt einen Geldbetrag in Scheine und Münzen.
Lage:
Erstellen Sie ein Arbeitsblattänderungsereignis. Code, der dem Arbeitsblattänderungsereignis hinzugefügt wird, wird von Excel VBA ausgeführt, wenn Sie eine Zelle in einem Arbeitsblatt ändern.
1. Öffnen Sie den Visual Basic-Editor.
2. Doppelklicken Sie im Projekt-Explorer auf Sheet1 (Sheet1).
3. Wählen Sie Arbeitsblatt aus der linken Dropdown-Liste. Wählen Sie Ändern aus der rechten Dropdown-Liste.
Fügen Sie dem Arbeitsblattänderungsereignis die folgenden Codezeilen hinzu:
4. Deklarieren Sie eine Variable namens "Anzahl" vom Typ Double und eine Variable i vom Typ Integer.
Dim-Betrag als Double, i als Integer
5. Das Worksheet Change Event hört auf alle Änderungen auf Sheet1. Wir möchten nur, dass Excel VBA etwas tut, wenn sich in Zelle B2 etwas ändert. Fügen Sie dazu die folgende Codezeile hinzu:
Wenn Target.Address = "$B$2" Then
6. Wir initialisieren den variablen Betrag mit dem Wert der Zelle B2.
Betrag = Range("B2").Value
7. Wir leeren den Bereich mit den Frequenzen.
Bereich("B5:B16").Wert = ""
8. Jetzt ist es an der Zeit, den eingegebenen Geldbetrag aufzuteilen. Wir starten eine For Next-Schleife.
Für i = 5 bis 16
9. Wir verwenden die Do While Loop-Struktur. Code zwischen diesen Wörtern wird solange wiederholt, wie der Teil nach Do While wahr ist. Wir möchten, dass Excel VBA die Codezeilen in Schritt 10 wiederholt, solange der Betrag größer oder gleich Cells(i,1).value ist.
Do While Menge >= Cells(i, 1).Value
Schleife
10. Fügen Sie der Do While-Schleife die folgenden Codezeilen hinzu.
Zellen(i, 2).Wert = Zellen(i, 2).Wert + 1
Betrag = Betrag - Zellen(i, 1).Wert
Erläuterung: Solange der Betrag größer oder gleich Cells(i,1).value ist, enthält der Betrag Banknoten/Münzen dieses Wertes. Als Ergebnis erhöht Excel VBA die Häufigkeit dieser Banknote/Münze (erste Zeile) und subtrahiert den Wert der Banknote/Münze vom Betrag (zweite Zeile). Dieser Vorgang wird wiederholt, bis der Betrag kleiner als Cells(i,1).value wird. Als nächstes erhöht Excel VBA i und geht zum nächsten Geldschein/Münze, um zu sehen, wie oft dieser Geldschein/Münze in den verbleibenden Betrag passt. Auf diese Weise wird der Geldbetrag in Scheine und Münzen aufgeteilt, bis kein Geld mehr zum Teilen übrig ist.
11. Schließen Sie die For Next-Schleife und vergessen Sie nicht, die if-Anweisung zu schließen (beide außerhalb der Do While-Schleife).
Als nächstes
Beenden, wenn
12. Testen Sie das Programm.
Ergebnis:
Hinweis: Der eingegebene Betrag beinhaltet natürlich nicht unbedingt jeden Schein/Münze. Wenn der Betrag keine bestimmte Banknote/Münze enthält, wird der Teil nach Do While für diese Banknote/Münze nie wahr und Excel VBA geht direkt zur nächsten Banknote/Münze.
