In VBA, puoi creare un Pulsante di opzione per consentire a un utente di scegliere tra diverse opzioni. Un pulsante Opzione viene spesso utilizzato nei moduli utente, ma può essere utilizzato anche in un foglio di lavoro. In questo tutorial imparerai come creare un pulsante Opzione, ottenere una scelta utente in VBA e utilizzarla nel codice.
Se vuoi imparare come creare una casella di controllo, fai clic qui: Casella di controllo VBA
Crea un pulsante di opzione
Per inserire un pulsante Opzione nel foglio di lavoro, è necessario accedere a Scheda Sviluppatore, clicca Inserire e in Controlli ActiveX scegli Pulsante di opzione:
Immagine 1. Inserisci un pulsante Opzione nel foglio di lavoro
Quando selezioni il pulsante Opzione che hai inserito, puoi fare clic su Proprietà sotto il Scheda Sviluppatore:
Immagine 2. Modifica le proprietà del pulsante Opzione
Qui puoi impostare diverse proprietà del pulsante Opzione. Per l'inizio, abbiamo cambiato l'attributo Nome a optOptionButton1. Ora possiamo usare il pulsante Opzione con questo nome nel codice VBA.
Inoltre, abbiamo modificato il testo che appare accanto al pulsante Opzione in Maschio. Per fare ciò, è necessario impostare l'attributo Didascalia.
Poiché vogliamo consentire a un utente di scegliere il genere, ripeteremo l'intero processo per un altro pulsante di opzione. Il secondo ha un nome optOptionButton2, mentre la didascalia è Femmina. Puoi anche creare un nuovo pulsante Opzione copiando quello esistente e modificando le proprietà. Ora il nostro foglio di lavoro ha due pulsanti di opzione:
Immagine 3. Inserisci il secondo pulsante Opzione
Ottieni un pulsante di opzione selezionato in VBA
Lo scopo di un pulsante di opzione è quello di ottenere una decisione degli utenti. Mostreremo nell'esempio come scrivere Maschio nella cella C3 se viene scelto il pulsante Opzione 1 o Femmina se si sceglie il secondo. Ogni pulsante di opzione ha il suo evento che si attiva quando viene scelto - Clic.
Pertanto, per il primo pulsante Opzione dobbiamo inserire il seguente codice nell'evento Clic dell'oggetto optOptionButon1:
| 123456789 | Privato Sub optOptionButton1_Click()Se Sheet1.optOptionButton1.Value = True alloraFoglio1.Range("C3") = "Maschio"Finisci seFine sottotitolo |
Allo stesso modo, inseriremo questo codice nell'evento Clic dell'oggetto optOptionButton2:
| 123456789 | Privato Sub optOptionButton2_Click()Se Sheet1.optOptionButton2.Value = True alloraFoglio1.Range("C3") = "Femmina"Finisci seFine sottotitolo |
Il valore del pulsante Opzione è nelValore attributo dell'oggetto optOptionButton1 o optOptionButton2. Il valore del pulsante Opzione può essere vero se viene scelto o falso se non viene scelto.
Immagine 3. Restituisci Maschio se viene scelto il primo pulsante Opzione
Come puoi vedere nell'immagine 3, abbiamo fatto clic sul primo pulsante Opzione. Pertanto, il valore di Foglio1.optOptionButton1.Value è vero, quindi il risultato in C3 è Maschio.
Immagine 4. Restituisci femmina se viene scelto il secondo pulsante di opzione
Analogamente all'esempio precedente, il valore di C3 viene modificato in Femmina, poiché abbiamo scelto il secondo pulsante Opzione. In questo caso, la procedura optOptionButton2_Click() E 'attivato.
Utilizzare un pulsante di opzione in un modulo utente
Come accennato, il pulsante Opzione è più spesso utilizzato in Userforms. Per spiegare come puoi farlo, inseriremo prima un Userform. Nell'editor VBA, fare clic con il pulsante destro del mouse su Nome modulo, fare clic su Inserire e scegli Modulo utente:
Immagine 5. Inserisci un modulo utente
Per visualizzare i controlli per l'inserimento, è necessario abilitare il Cassetta degli attrezzi. Per farlo, clicca suCassetta degli attrezzi icona nella barra degli strumenti. Successivamente, otterrai le finestre con tutti i controlli disponibili. Puoi fare clic suPulsante di opzione per crearlo nel form utente:
Immagine 6. Inserisci un pulsante di opzione nel modulo utente
Nella finestra delle proprietà, cambiamo il nome del pulsante Option in optOptionButton1 e la didascalia in Maschio. Allo stesso modo, abbiamo creato un altro pulsante Opzione per Femmina. Quando eseguiamo il form utente, otteniamo due pulsanti di opzione:
Immagine 7. Due pulsanti di opzione in Userform
Se vuoi ottenere un pulsante Opzione selezionato, devi utilizzare la stessa logica di un foglio di lavoro, che è spiegato in precedenza nell'articolo.
