Invece di più istruzioni If Then in Excel VBA, puoi usare il Seleziona la struttura del caso.
Situazione:
Posiziona un pulsante di comando sul foglio di lavoro e aggiungi le seguenti righe di codice:
1. Innanzitutto, dichiarare due variabili. Una variabile di tipo Integer denominata score e una variabile di tipo String denominata result.
Dim score As Integer, risultato As String
2. Inizializziamo il punteggio variabile con il valore della cella A1.
punteggio = Intervallo ("A1"). Valore
3. Aggiungere la struttura Seleziona caso.
Seleziona il punteggio del caso
Il caso è >= 80
risultato = "molto buono"
Il caso è >= 70
risultato = "buono"
Il caso è >= 60
risultato = "sufficiente"
Caso Altro
risultato = "insufficiente"
Fine selezione
Spiegazione: Excel VBA utilizza il valore del punteggio variabile per testare ogni successiva istruzione Case per vedere se il codice sotto l'istruzione Case deve essere eseguito.
4. Scrivere il valore del risultato della variabile nella cella B1.
Intervallo ("B1"). Valore = risultato
5. Testare il programma.
Risultato quando si fa clic sul pulsante di comando sul foglio:
Nota: Excel VBA esegue il codice nella seconda istruzione Case per tutti i valori maggiori o uguali a 70 e minori di 80.
