Excel – Controllo scelta di un valore da una ComboBox (VBA)

Può capitare di dover utilizzare una combobox con Userform, tramite VBA, per consentire all'utente finale la scelta multipla tra diverse opzioni, ma se vogliamo rendere obbligatoria una scelta della stessa combobox possiamo adottare il seguente controllo condizionale, che non farà altro che verificare che sia stata selezionata un'opzione tra quelle disponibili (e quindi che il valore dell'index selezionato sia diverso da infinito, index corrispondente al non aver selezionato alcuna opzione) e, nel caso non se ne fosse selezionata alcuna, visualizzare un messaggio di errore.

If (ComboBox1.ListIndex <> -1) Then
    TxtOption = ComboBox1.List(ComboBox1.ListIndex)
Else
    MsgBox ("Scegliere un'opzione.")
    Exit Sub
End If

Per completezza, per definire opzioni di una combobox utilizzare il codice seguente:

Private Sub UserForm_Initialize()
ComboBox1.AddItem "OPTION 1", 0
End Sub