Excel VBA ha il costrutto IF Then Else che è possibile utilizzare per analizzare più condizioni ed eseguire codici basato su queste condizioni.
Un altro costrutto simile che ti consente di verificare più condizioni è l’istruzione SELECT CASE.
Seleziona caso è utile quando hai tre o più condizioni che desideri controllare. Puoi anche usarlo con due condizioni (ma ritengo che If Then Else sia più facile da usare in quei casi).
Un semplice esempio in cui l’istruzione Select Case è utile quando vuoi ottenere il voto di un studente in base ai voti che ha ottenuto (trattati come esempio più avanti in questo tutorial).
Nota: tutti i codici di esempio trattati in questo tutorial sono pensati per essere inseriti in un modulo in VBA.
Questo tutorial tratta:
Seleziona la sintassi del caso
Di seguito è riportata la sintassi di Seleziona caso in Excel VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression: questa è l’espressione il cui valore analizziamo utilizzando casi diversi (spiegati meglio con gli esempi seguenti).
- Condizione_1, Condizione_2,…: queste sono le condizioni su cui viene testata l’espressione di testo. Se soddisfa la condizione, viene eseguito il blocco di codice per la condizione specificata.
Per ogni istruzione Select Case che si utilizza, è necessario utilizzare l’istruzione End Select.
Nota: non appena viene soddisfatta una condizione, VBA esce dal costrutto select case. Quindi, se hai cinque condizioni e la seconda è soddisfatta, VBA uscirà da Seleziona caso e il resto delle condizioni non verrà testato.
Seleziona esempi di caso
Ora capire meglio come utilizzare l’istruzione Select Case in VBA, esaminiamo alcuni esempi.
Si noti che la maggior parte degli esempi in questo tutorial hanno lo scopo di spiegare il concetto. Questi possono o non possono essere il modo migliore per portare a termine il lavoro.
Cominciamo con un semplice esempio per vedere come Select Case ci permette di verificare le condizioni.
Esempio 1 – Controlla i numeri
Nell’esempio seguente, il codice chiede all’utente di inserire un numero qualsiasi compreso tra 1 e 5, quindi mostra una finestra di messaggio con il numero immesso dall’utente.
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more