Se si dispone di più di un pulsante di opzione, solo uno dei pulsanti di opzione può essere selezionata. Per creare pulsanti di opzione in Excel VBA, eseguire le seguenti operazioni.

  1. Nella scheda Sviluppatore, fare clic su Inserisci.

  2. Nel gruppo Controlli ActiveX, fare clic sul pulsante Opzioni.

Create an option button in Excel VBA

  1. Trascinare due pulsanti di opzione sul foglio di lavoro.

  2. Fare clic destro il primo pulsante di opzione (Assicurarsi che sia selezionata la modalità Design).

  3. Fare clic su Visualizza codice.

View Code

Nota: è possibile modificare la didascalia e il nome di un controllo facendo clic destro sul comando (assicurarsi che sia selezionata la modalità Design) e facendo clic su Proprietà. Modificare le didascalie dei pulsanti di opzione a femmina e maschio. Per il momento, lasceremo OptionButton1 e OptionButton2 come i nomi dei pulsanti di opzione.

  1. Aggiungere il seguente riga di codice:

If OptionButton1.Value = True Then Range("D3").Value = 10

  1. Fare clic destro il secondo pulsante di opzione (Assicurarsi che sia selezionata la modalità Design).

  2. Fare clic su Visualizza codice.

  3. Aggiungere la seguente riga di codice:

If OptionButton2.Value = True Then Range("D3").Value = 20

  1. Fare clic sui pulsanti di opzione sul foglio (assicurarsi Design Mode è deselezionata).

Risultato:

Option Button 1 True

Option Button 2 True

Anche se in alcune situazioni può essere utile direttamente pulsanti di opzione immettono sul foglio di lavoro, pulsanti di opzione sono particolarmente utili quando sono immessi in un form utente.