In VBA können Sie eine Optionsschaltfläche um einem Benutzer die Auswahl aus mehreren Optionen zu ermöglichen. Eine Optionsschaltfläche wird häufig in Userforms verwendet, kann aber auch in einem Arbeitsblatt verwendet werden. In diesem Tutorial erfahren Sie, wie Sie eine Optionsschaltfläche erstellen, eine Benutzerauswahl in VBA erhalten und diese im Code verwenden.
Wenn Sie erfahren möchten, wie Sie eine Checkbox erstellen, klicken Sie hier: VBA-Checkbox
Erstellen Sie eine Optionsschaltfläche
Um eine Optionsschaltfläche in das Arbeitsblatt einzufügen, müssen Sie zum Registerkarte "Entwickler", klicken Einfügung und unter ActiveX-Steuerelemente wählen Sie Optionsschaltfläche:
Bild 1. Fügen Sie eine Optionsschaltfläche in das Arbeitsblatt ein
Wenn Sie die von Ihnen eingefügte Optionsschaltfläche auswählen, können Sie auf klicken Eigenschaften unter dem Registerkarte "Entwickler":
Bild 2. Ändern Sie die Eigenschaften der Optionsschaltfläche
Hier können Sie verschiedene Eigenschaften der Optionsschaltfläche einstellen. Für den Anfang haben wir das Attribut geändert Name zu optOptionButton1. Jetzt können wir die Optionsschaltfläche mit diesem Namen im VBA-Code verwenden.
Außerdem haben wir den Text, der neben der Optionsschaltfläche angezeigt wird, geändert zu Männlich. Dazu müssen Sie das Attribut setzen Untertitel.
Da wir einem Benutzer die Wahl des Geschlechts ermöglichen möchten, wiederholen wir den gesamten Vorgang für eine weitere Optionsschaltfläche. Der zweite hat einen Namen optOptionButton2, während die Bildunterschrift ist Weiblich. Sie können auch eine neue Optionsschaltfläche erstellen, indem Sie die vorhandene kopieren und die Eigenschaften ändern. Jetzt hat unser Arbeitsblatt zwei Optionsfelder:
Bild 3. Fügen Sie die zweite Optionsschaltfläche ein
Holen Sie sich eine ausgewählte Optionsschaltfläche in VBA
Der Zweck einer Optionsschaltfläche besteht darin, eine Benutzerentscheidung zu treffen. Wir zeigen im Beispiel, wie man schreibt Männlich in Zelle C3, wenn die Optionsschaltfläche 1 gewählt ist oder Weiblich wenn der zweite gewählt wird. Jeder Optionsknopf hat ein Ereignis, das ausgelöst wird, wenn es ausgewählt wird - Klicken.
Daher müssen wir für die erste Optionsschaltfläche den folgenden Code in das Ereignis einfügen Klicken des Objekts optOptionButton1:
| 123456789 | Private Sub optOptionButton1_Click()Wenn Sheet1.optOptionButton1.Value = True ThenSheet1.Range("C3") = "Männlich"Ende WennEnd Sub |
Ebenso werden wir diesen Code in das Ereignis einfügen Klicken des Objekts optOptionButton2:
| 123456789 | Private Sub optOptionButton2_Click()Wenn Sheet1.optOptionButton2.Value = True ThenSheet1.Range("C3") = "Weiblich"Ende WennEnd Sub |
Der Wert der Optionsschaltfläche befindet sich imWert Attribut des Objekts optOptionButton1 oder optOptionButton2. Der Wert der Optionsschaltfläche kann true sein, wenn sie ausgewählt ist, oder false, wenn sie nicht ausgewählt ist.
Bild 3. Geben Sie männlich zurück, wenn die erste Optionsschaltfläche ausgewählt ist
Wie Sie in Bild 3 sehen können, haben wir auf die erste Optionsschaltfläche geklickt. Daher ist der Wert von Sheet1.optOptionButton1.Value ist wahr, also ist das Ergebnis in C3 Männlich.
Bild 4. Geben Sie Weiblich zurück, wenn die zweite Optionsschaltfläche ausgewählt ist
Ähnlich wie im vorherigen Beispiel wird der Wert von C3 in geändert Weiblich, da wir die zweite Optionsschaltfläche gewählt haben. In diesem Fall ist das Verfahren optOptionButton2_Click() ausgelöst wird.
Verwenden einer Optionsschaltfläche in einem Benutzerformular
Wie bereits erwähnt, wird die Optionsschaltfläche am häufigsten in Benutzerformularen verwendet. Um zu erklären, wie Sie dies tun können, fügen wir zunächst ein Benutzerformular ein. Klicken Sie im VBA-Editor mit der rechten Maustaste auf den Modulnamen, klicken Sie auf Einfügung und wähle Benutzerformular:
Bild 5. Ein Benutzerformular einfügen
Um Steuerelemente zum Einfügen anzuzeigen, müssen Sie die Werkzeugkasten. Klicken Sie dazu auf dasWerkzeugkasten Symbol in der Symbolleiste. Danach erhalten Sie die Fenster mit allen verfügbaren Bedienelementen. Sie können auf klickenOptionsschaltfläche um es im Userform zu erstellen:
Abbildung 6. Fügen Sie eine Optionsschaltfläche in das Benutzerformular ein
Im Eigenschaftenfenster ändern wir den Namen der Optionsschaltfläche in optOptionButton1 und die Beschriftung in Männlich. Ebenso haben wir eine weitere Optionsschaltfläche für weiblich erstellt. Wenn wir das Userform ausführen, erhalten wir zwei Optionsschaltflächen:
Abbildung 7. Zwei Optionsschaltflächen in der Userform
Wenn Sie eine ausgewählte Optionsschaltfläche erhalten möchten, müssen Sie dieselbe Logik wie für ein Arbeitsblatt verwenden, die zuvor im Artikel erläutert wurde.
