Las declaraciones de condición más importantes utilizadas en Excel VBA son las declaraciones Si... Entonces и Seleccionar caso. Ambas expresiones prueban una o más condiciones y, dependiendo del resultado, realizan diferentes acciones. Hablaremos de estos dos operadores condicionales con más detalle a continuación.
Instrucción “If…Then” en Visual Basic
Operador Si... Entonces comprueba la condición y, si es verdadera (VERDADERO), se realiza el conjunto de acciones especificado. También puede definir un conjunto de acciones a realizar si la condición es FALSA.
Sintaxis del operador Si... Entonces Me gusta esto:
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
En esta expresión, los elementos De lo contrario и más El operador de condiciones se puede omitir si no se necesita.
A continuación se muestra un ejemplo en el que, utilizando el operador Si... Entonces El color de relleno de la celda activa cambia según el valor que contenga:
If activecell.value <5 entonces activecell.interior.color = 65280 'anceчейка орашиваетiante в зелёный цвет mseyiSif ActiveL.value <10 entonces activecell.interior.color = 49407' ч й й ый ж. окрашивается в красный цвет End If
Tenga en cuenta que tan pronto como la condición se vuelve verdadera, se aborta la ejecución de la instrucción condicional. Por tanto, si el valor de la variable Célula activa menos de 5, entonces la primera condición se vuelve verdadera y la celda se colorea de verde. Después de eso, la ejecución de la declaración Si... Entonces se interrumpe y las demás condiciones no se comprueban.
Más información sobre el uso del operador condicional en VBA Si... Entonces se puede encontrar en Microsoft Developer Network.
Declaración "Seleccionar caso" en Visual Basic
Operador Seleccionar caso similar al operador Si... Entonces en que también comprueba la veracidad de la condición y, en función del resultado, elige una de las opciones.
Sintaxis del operador Seleccionar caso Me gusta esto:
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
Element Caso Else no es necesario, pero se recomienda para manejar valores inesperados.
En el siguiente ejemplo, usando la construcción Seleccionar caso cambia el color de relleno de la celda actual según el valor que contiene:
Seleccione el caso ActiveCell.value Case es <= 5 activecell.interior.color = 65280 'ancerma чка орашиваетiante в зелёный цвет caso 6, 7, 8, 9 Activecell.interior.color = 49407' -A -aч. Color = 10 'anc.
El ejemplo anterior muestra cómo puede establecer un valor para un elemento de varias maneras. Funda En construcción Seleccionar caso. Estas son las formas:
| caso es <= 5 | Así, usando la palabra clave caso es puede verificar si el valor satisface Expresiones condición de la forma <= 5. |
| Funda 6, 7, 8, 9 | De esta manera puede comprobar si el valor coincide Expresiones con uno de los valores listados. Los valores enumerados están separados por comas. |
| Funda 10 | Esto comprueba si el valor coincide Expresiones con un valor dado. |
| Funda 11 Eso es 20 | Por lo tanto, puede escribir una expresión para verificar si el valor satisface Expresiones condición de la forma de 11 a 20 (equivalente a la desigualdad "11<=valor<=20"). |
| Caso Else | Así, usando la palabra clave más, las acciones se indican para el caso si el valor Expresiones no coincide con ninguna de las opciones enumeradas Funda. |
Tan pronto como se encuentra una de las condiciones, se realizan las acciones correspondientes y la estructura sale. Seleccionar caso. Es decir, en cualquier caso, solo se ejecutará una de las ramas enumeradas. Funda.
Más información sobre el funcionamiento de la sentencia VBA Seleccionar caso se puede encontrar en Microsoft Developer Network.