Questo articolo dimostrerà come utilizzare l'istruzione Switch VBA.
L'istruzione VBA Switch viene utilizzata in modo simile all'istruzione VBA Select Case.
La sintassi dell'istruzione Switch
L'istruzione switch valuta un elenco di espressioni per vedere se sono vere o false e restituisce il valore delle prime espressioni valutate come vere. L'elenco degli argomenti è composto da coppie: un'espressione e un valore che viene restituito se l'espressione viene valutata come vera.
Interruttore(espr-1, valore-1, [ espr-2, valore-2… , [ expr-n, valore-n ]])
Utilizzo dell'istruzione Switch in una procedura VBA
Per utilizzarlo in una macro potrebbe essere simile a questo esempio di seguito:
| 1234567 | Sub Test Switch()Dim strCompany As StringDim CompanyID As IntegerID azienda = 2strCompany = Switch(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesFine sottotitolo |
Dichiariamo una variabile intera per contenere i valori delle espressioni all'interno dell'istruzione switch. Quindi dichiariamo un'altra variabile stringa per restituire il valore contenuto in quell'espressione.
Utilizzo dell'istruzione Switch con un intervallo
Invece di codificare il valore che lo switch valuterà nel codice, possiamo usare un valore che abbiamo memorizzato in una cella di Excel per restituire la stringa richiesta.
| 1234567 | Sub Test Switch()Dim strCompany As StringDim CompanyID As IntegerCompanyID = Range("A2")strCompany = Switch(CompanyID = 1, "Apple", CompanyID = 2, "IBM", CompanyID = 3, "Samsung")MsgBox strCompaniesFine sottotitolo |
Per utilizzare questa procedura, dovremmo avere un numero nella cella A2 nel foglio di lavoro. Possiamo quindi eseguire la macro per ottenere il nome dell'azienda (cioè Samsung).
Se non abbiamo un numero nella cella A3 ed eseguiamo il codice, verrà restituito un errore di mancata corrispondenza del tipo.
Creazione di una funzione personalizzata con VBA Switch
Possiamo anche creare una funzione personalizzata utilizzando l'interruttore VBA e utilizzarla all'interno della nostra cartella di lavoro.
| 123 | Funzione SwitchStatement (i As Integer) As StringSwitchStatement = Switch(i= 1, "Apple", i= 2, "IBM", i= 3, "Samsung")Fine funzione |
Per utilizzarlo all'interno della nostra cartella di lavoro, possiamo utilizzare la finestra di dialogo Inserisci funzione.
Fare clic nella cella A3, quindi fare clic su Inserisci funzione nella barra delle funzioni.
Dalla finestra di dialogo Inserisci funzione, selezionare Definito dall'utente dal Seleziona l'elenco a discesa Categoria, quindi selezionare SwitchStatement.
Clic OK, e poi clicca su cella A2.
Il nome dell'azienda, come memorizzato nell'istruzione Switch, verrà restituito al nostro foglio di lavoro.
