VBA Seleziona caso
VBA Select Case è una delle condizioni simili che utilizziamo per testare più condizioni invece della tradizionale condizione IF in VBA. Select Case funziona esattamente allo stesso modo in cui funziona la condizione IF.
Come il modo in cui testiamo più condizioni e disegniamo i risultati con la condizione IF in modo simile usando SELECT CASE testiamo la condizione e disegniamo i risultati. In questo articolo, ti illustrerò l'ideologia dell'istruzione SELECT CASE.
Formula di VBA Seleziona caso
Come utilizzare Excel VBA Select Case ?
Comprendiamo come utilizzare una funzione VBA Select Case Excel con alcuni esempi.
Puoi scaricare questo VBA Seleziona modello di funzione caso qui - VBA Seleziona modello di funzione casoVBA Select Case Function - Esempio n. 1
Supponiamo di avere un valore nella cella A1 e si desidera verificare se tale valore è maggiore di 100 o meno.
Se il valore è maggiore di 100, abbiamo bisogno del risultato come "Più di 100" nella cella B1 oppure abbiamo bisogno del risultato come "Meno di 100". Sotto il codice farà il lavoro per noi.
Sub SelectCase_Ex () Seleziona intervallo di casi ("A1"). Il valore del caso è> 100 intervallo ("B1"). Valore = "Più di 100" Intervallo altro caso ("B1"). Valore = "Meno di 100" Fine selezione End Sub
Esegui questo codice usando il tasto F5 o manualmente come mostrato per ottenere i risultati nella cella B1.
VBA Select Case Function - Esempio # 2
Ora esamineremo le dichiarazioni nidificate di Select Case. Supponiamo di avere una tabella per il recupero dei prestiti da gennaio a dicembre.
Nella sezione dello stato dei dati, dobbiamo ottenere il risultato come segue.
- Se il valore di recupero è superiore a 45000, il risultato dovrebbe essere "Eccellente"
- Se il valore di recupero è superiore a 40000, il risultato dovrebbe essere "Molto buono"
- Se il valore di recupero è superiore a 30000, il risultato dovrebbe essere "Buono"
- Se il valore di recupero è superiore a 20000, il risultato dovrebbe essere "Not Bad"
- Se tutti i risultati sono FALSI, il risultato dovrebbe essere "Cattivo"
Poiché è necessario testare più casi, è necessario utilizzare le istruzioni Select Case nidificate in modo molto simile alle istruzioni IF nidificate.
Sottotitoli IF_Results () Dim i come intero i = 2 Per i = 2 - 13 Seleziona celle maiuscole (i, 2). Il valore del caso è> 45000 celle (i, 3) .Valore = Il caso "eccellente" è> 40000 celle (i, 3) .Value = Caso "Molto buono"> 30000 Cell (i, 3) .Value = Caso "Buono" Is> 20000 Cell (i, 3) .Value = Caso "Not Bad" Altre celle (i, 3 ) .Value = "Bad" End Seleziona Next i End Sub
Copia questo codice e incollalo nel tuo modulo.
Ora esegui questo codice usando il tasto F5 o manualmente per ottenere i risultati desiderati nella colonna Stato.
VBA Select Case Function - Esempio # 3
Ora vedremo Select Case con il nostro valore di input. Vedremo come fornire valore a una casella di input e in base al valore di input fornito determineremo il risultato.
Sub SelectCase_InputBox () Dim MyValue As Integer MyValue = Application.InputBox ("Inserisci solo valore numerico", "Inserisci numero") Seleziona caso MyValue Il caso è> 1000 MsgBox "Il valore inserito è più di 1000" Il caso è> 500 MsgBox "Valore inserito è superiore a 500 Il valore inserito "Case Else MsgBox" è inferiore a 500 "End Select End Sub
Copia e incolla questo codice sul tuo modulo.
Passo 1: Dopo aver copiato il codice sul tuo modulo, esegui il codice che vedrai questa casella di input.
Passaggio 2: qui è necessario inserire solo valori numerici.
Passo 3: Ora fai clic su OK vedremo una finestra di messaggio che mostra il risultato del risultato dell'istruzione Select Case.
VBA Select Case Function - Esempio # 4
In questo esempio, vedremo come passare un intervallo di numeri come test per selezionare il caso e in base a ciò disegneremo i risultati.
Copia e incolla il codice qui sotto sul tuo modulo in modalità operativa.
Seleziona SelectCase () Dim Mynumber come intero Mynumber = Application.InputBox ("Immetti numero", "Immetti numeri da 100 a 200") Seleziona case Caso da 100 a 140 MsgBox "Il numero che hai inserito è inferiore a 140" Caso 141 A 180 MsgBox "Il numero che hai inserito è inferiore a 180" Caso Els MsgBox "Il numero che hai inserito è> 180 & <200" End Select End Sub
Passaggio 1: esegui questo codice, vedrai la casella di input .
Passaggio 2: come indicato dal prompt, è necessario inserire i numeri da 100 a 200. Quindi inserire i numeri tra 100 e 200.
Passaggio 3: fare clic su OK. Vedremo il risultato in base al risultato del test del caso selezionato.
Cose da ricordare
- A differenza del test delle condizioni IF, non verranno esaminate tutte le condizioni in Seleziona caso. Non appena la condizione è soddisfatta uscirà dalle altre condizioni.
- Come tutte le altre condizioni qui anche tutti i valori di testo dovrebbero essere tra virgolette.
- Funziona esattamente in modo simile all'istruzione IF in VBA. Questa è una specie di alternativa all'istruzione IF.
Articoli consigliati
Questa è stata una guida alla funzione Case Select di VBA. Qui abbiamo discusso VBA Select Case e come usare Excel VBA Select Case Function insieme ad alcuni esempi pratici e template Excel scaricabili. Puoi anche consultare i nostri altri articoli suggeriti:
- Guida ai loop VBA di Excel
- Come usare la funzione VBA in Excel?
- Come usare la funzione VBA VLOOKUP?
- Come creare una casella di riepilogo Excel?