Im Folgenden sehen wir uns ein Programm in an Excel VBA wodurch ein Userform erstellt wird, das wandelt um beliebiger Betrag von eins Währung in eine andere.
Die Userform, die wir erstellen werden, sieht wie folgt aus:
Führen Sie die folgenden Schritte aus, um dieses Benutzerformular zu erstellen.
1. Öffnen Sie den Visual Basic-Editor. Wenn der Projekt-Explorer nicht sichtbar ist, klicken Sie auf Ansicht, Projekt-Explorer.
2. Klicken Sie auf Einfügen, Benutzerformular. Wenn die Toolbox nicht automatisch angezeigt wird, klicken Sie auf Ansicht, Toolbox. Ihr Bildschirm sollte wie folgt eingerichtet sein.
3. Fügen Sie die Beschriftungen, Listenfelder (erste links, die zweite rechts), Textfelder (erste links, die zweite rechts) und die Befehlsschaltfläche hinzu. Sobald dies abgeschlossen ist, sollte das Ergebnis mit dem zuvor gezeigten Bild des Benutzerformulars übereinstimmen. Erstellen Sie beispielsweise ein Listenfeld-Steuerelement, indem Sie in der Toolbox auf ListBox klicken. Als Nächstes können Sie ein Listenfeld auf das Benutzerformular ziehen.
4. Sie können die Namen und Beschriftungen der Steuerelemente ändern. Namen werden im Excel VBA-Code verwendet. Untertitel sind die, die auf Ihrem Bildschirm erscheinen. Es hat sich bewährt, die Namen der Steuerelemente zu ändern, aber dies ist hier nicht erforderlich, da wir in diesem Beispiel nur wenige Steuerelemente haben. Um die Beschriftung des Benutzerformulars, der Befehlsschaltfläche und der Beschriftungen zu ändern, klicken Sie auf Ansicht, Eigenschaftenfenster, und klicken Sie auf jedes Steuerelement.
5. Platzieren Sie in Ihrem Arbeitsblatt eine Befehlsschaltfläche, und fügen Sie die folgende Codezeile hinzu, um das Benutzerformular anzuzeigen:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Wir werden jetzt die Sub UserForm_Initialize erstellen. Wenn Sie die Show-Methode für das Userform verwenden, wird dieses Sub automatisch ausgeführt.
6. Öffnen Sie den Visual Basic-Editor.
7. Klicken Sie in dem Projekt-Explorer mit der rechten Maustaste auf UserForm1 und klicken Sie dann auf Code anzeigen.
8. Wählen Sie Benutzerformular aus der linken Dropdown-Liste. Wählen Sie Initialisieren aus der rechten Dropdown-Liste.
9. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub UserForm_Initialize()
Mit ListBox1
.Artikel "Euro" hinzufügen
.AddItem "US-Dollar"
.AddItem "Britisches Pfund"
Ende mit
Mit ListBox2
.Artikel "Euro" hinzufügen
.AddItem "US-Dollar"
.AddItem "Britisches Pfund"
Ende mit
ListBox1.ListIndex = 1
ListBox2.ListIndex = 0
TextBox1.Wert = 1
TextBox2.Wert = 0.722152
End Sub
Erläuterung: Zuerst werden die beiden Listenfelder gefüllt. Als nächstes wird im ersten Listenfeld die US-Dollar-Währung und im zweiten Listenfeld die EURO-Währung als Vorgabe eingestellt. Schließlich wird im ersten Textfeld der Wert 1 und im zweiten Textfeld der Wert 0.722152 eingetragen.
Wir haben nun den ersten Teil des Userform erstellt. Obwohl es schon ordentlich aussieht, passiert noch nichts, wenn wir auf den Go-Button klicken.
10. Doppelklicken Sie im Projekt-Explorer auf UserForm1.
11. Doppelklicken Sie auf die Schaltfläche Los.
12. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub CommandButton1_Click()
Dim Rates(0 bis 2, 0 bis 2) als Double, i als Integer, j als Integer
Raten(0, 0) = 1
Raten (0, 1) = 1,38475
Raten (0, 2) = 0,87452
Raten(1, 0) = 0,722152
Raten(1, 1) = 1
Raten(1, 2) = 0,63161
Raten(2, 0) = 1,143484
Raten(2, 1) = 1,583255
Raten(2, 2) = 1
Für i = 0 bis 2
Für j = 0 bis 2
Wenn ListBox1.ListIndex = i Und ListBox2.ListIndex = j Then TextBox2.Value = TextBox1.Value * Rates(i, j)
Nächstes j
Als nächstes
End Sub
Erläuterung: Zuerst deklarieren wir ein Array. Das Array hat zwei Dimensionen. Es besteht aus 3 Zeilen und 3 Spalten. Als nächstes initialisieren wir jedes Element des Arrays. Rates(1,0) ist beispielsweise der Währungskurs von US-Dollar in EURO. Als nächstes starten wir eine Doppelschleife. Abhängig von den ausgewählten Währungen in den Listenfeldern rechnet Excel VBA den im ersten Textfeld eingegebenen Betrag um und zeigt das Ergebnis im zweiten Textfeld an.
Beispiel: Wenn i = 2 und j = 1 und wir den Wert 2 in das erste Textfeld eingeben, setzt Excel VBA den Wert 2 * Rates(2,1) = 2 * 1.583255 = 3.16651 in das zweite Textfeld.
13. Testen Sie das Benutzerformular.
Ergebnis:
