Dichiarazioni di condizioni in VBA

Le istruzioni di condizione più importanti utilizzate in Excel VBA sono le istruzioni Se poi и Seleziona Case. Entrambe queste espressioni testano una o più condizioni e, a seconda del risultato, eseguono azioni diverse. Parleremo di questi due operatori condizionali in modo più dettagliato in seguito.

Istruzione "If...Then" in Visual Basic

Operatore Se poi controlla la condizione e, se è vera (TRUE), viene eseguita la serie di azioni specificata. Può anche definire un insieme di azioni da eseguire se la condizione è FALSE.

Sintassi dell'operatore Se poi come questo:

If Условие1 Then

   Действия в случае, если выполняется Условие1

ElseIf Условие2 Then

   Действия в случае, если выполняется Условие2

Else

   Действия в случае, если не выполнено ни одно из Условий

End If

In questa espressione, gli elementi AltroSe и altro l'operatore delle condizioni può essere omesso se non sono necessarie.

Di seguito è riportato un esempio in cui, utilizzando l'operatore Se poi Il colore di riempimento della cella attiva cambia in base al valore in essa contenuto:

Se attivacell.value <5 quindi AcTageCell.interior.Color = 65280 'чччйй окрашиваетtria я в зелёный ц altro. окрашивается в красный цвет End If

Si noti che non appena la condizione diventa vera, l'esecuzione dell'istruzione condizionale viene interrotta. Pertanto, se il valore della variabile Cellula attiva minore di 5, allora la prima condizione diventa vera e la cella si colora di verde. Successivamente, l'esecuzione della dichiarazione Se poi viene interrotto e le altre condizioni non vengono verificate.

Ulteriori informazioni sull'utilizzo dell'operatore condizionale in VBA Se poi può essere trovato su Microsoft Developer Network.

Istruzione "Seleziona caso" in Visual Basic

Operatore Seleziona Case simile all'operatore Se poi in quanto verifica anche la verità della condizione e, a seconda del risultato, sceglie una delle opzioni.

Sintassi dell'operatore Seleziona Case come questo:

Select Case Выражение

Case Значение1

   Действия в случае, если результат Выражения соответствует Значению1

Case Значение2

   Действия в случае, если результат Выражения соответствует Значению2

...

Case Else

   Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения

End Select

elemento Case Else non è obbligatorio, ma è consigliato per la gestione di valori imprevisti.

Nell'esempio seguente, usando il costrutto Seleziona Case cambia il colore di riempimento della cella corrente a seconda del valore in essa contenuto:

Selezionare Caso ActiveCell.Value Case è <= 5 ActiveCell.Interior.Color = 65280 'ячейка окрашиваетtria all'eccezione Color = 6 'Ячейка окрашивается в жёлтый цвет Case 7 To 8 ActiveCell.Interior.Color = 9 'Ячейка окрашивается в лиловый цвет Case Else ActiveCell.Interior.Color = 49407 'Ячейка окрашивается в красный цвет End Select

L'esempio sopra mostra come impostare un valore per un elemento in vari modi. Caso In costruzione Seleziona Case. Questi sono i modi:

Il caso è <= 5Quindi, usando la parola chiave Il caso è puoi verificare se il valore soddisfa Espressioni condizione della forma <= 5.
Caso 6, 7, 8, 9In questo modo puoi verificare se il valore corrisponde Espressioni con uno dei valori elencati. I valori elencati sono separati da virgole.
Caso 10Questo controlla se il valore corrisponde Espressioni con un dato valore.
Caso 11 Questo è tutto 20Pertanto, puoi scrivere un'espressione per verificare se il valore soddisfa Espressioni condizione della forma da 11 a 20 (equivalente alla disuguaglianza "11<=valore<=20").
Case ElseIn questo modo, usando la parola chiave altro, le azioni sono indicate per il caso se il valore Espressioni non corrisponde a nessuna delle opzioni elencate Caso.

Non appena viene trovata una delle condizioni, vengono eseguite le azioni corrispondenti e la struttura esce. Seleziona Case. Cioè, in ogni caso, verrà eseguito solo uno dei rami elencati. Caso.

Ulteriori informazioni sul funzionamento dell'istruzione VBA Seleziona Case può essere trovato su Microsoft Developer Network.

Lascia un Commento