Invece di più istruzioni If Then in Excel VBA, è possibile utilizzare la struttura Select Case.

Situazione:

Select Case in Excel VBA

Posizionare un pulsante di comando nel foglio di lavoro e aggiungere le righe di codice che segue:

  1. In primo luogo, dichiarare due variabili. Una variabile di tipo Integer punteggio di nome e una variabile di tipo String denominata result.

Dim score As Integer, result As String

  1. inizializzare il punteggio variabile con il valore di cella A1.

score = Range("A1").Value

  1. Aggiungere la struttura Select Case.

Select Case score

Case Is >= 80

result = "very good"

Case Is >= 70

result = "good"

Case Is >= 60

result = "sufficient"

Case Else

result = "insufficient"

End Select

Spiegazione: Excel VBA utilizza il valore del punteggio variabile per testare ogni successiva istruzione Case per vedere se deve essere eseguito il codice sotto l’istruzione Case.

  1. Scrivere il valore del risultato variabile cella B1.

Range("B1").Value = result

  1. Verificare il programma.

Risultato quando si fa clic sul pulsante di comando sul foglio:

Select Case Result

Nota: Excel VBA esegue il codice sotto la seconda affermazione di caso per tutti i valori maggiori o uguali a 70 e minore di 80.