As declaraciĆ³ns de condiciĆ³n mĆ”is importantes utilizadas en Excel VBA son as declaraciĆ³ns Se... EntĆ³n Šø Seleccione Caso. Ambas as dĆŗas expresiĆ³ns proban unha ou varias condiciĆ³ns e, dependendo do resultado, realizan acciĆ³ns diferentes. A continuaciĆ³n falaremos destes dous operadores condicionais con mĆ”is detalle.
DeclaraciĆ³n "Se... EntĆ³n" en Visual Basic
Operador Se... EntĆ³n comproba a condiciĆ³n e, se Ć© verdadeira (VERDADEIRO), realĆzase o conxunto especificado de acciĆ³ns. TamĆ©n pode definir un conxunto de acciĆ³ns a realizar se a condiciĆ³n Ć© FALSA.
Sintaxe do operador Se... EntĆ³n como isto:
If Š£ŃŠ»Š¾Š²ŠøŠµ1 Then
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø Š²ŃŠæŠ¾Š»Š½ŃŠµŃŃŃ Š£ŃŠ»Š¾Š²ŠøŠµ1
ElseIf Š£ŃŠ»Š¾Š²ŠøŠµ2 Then
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø Š²ŃŠæŠ¾Š»Š½ŃŠµŃŃŃ Š£ŃŠ»Š¾Š²ŠøŠµ2
Else
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø Š½Šµ Š²ŃŠæŠ¾Š»Š½ŠµŠ½Š¾ Š½Šø Š¾Š“Š½Š¾ ŠøŠ· Š£ŃŠ»Š¾Š²ŠøŠ¹
End If
Nesta expresiĆ³n, os elementos Se non Šø outro O operador de condiciĆ³ns pĆ³dese omitir se non son necesarios.
A continuaciĆ³n mĆ³strase un exemplo no que, usando o operador Se... EntĆ³n A cor de recheo da cela activa cambia dependendo do valor que conteƱa:
Se ActiveCell.Value < 5 EntĆ³n ActiveCell.Interior.Color = 65280 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š·ŠµŠ»ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ ElseIf ActiveCell.Value < 10 EntĆ³n ActiveCell.Interior.Color = ŠÆŃŠµŠ¹ŠŗŠ° ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š·ŠµŠ»ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ ElseIf ActiveCell.Value < 49407 ŠµŃŃŃ Š² Š¾ŃŠ°Š½Š¶ŠµŠ²ŃŠ¹ ŃŠ²ŠµŃ Else ActiveCell.Interior.Color = 255 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² ŠŗŃŠ°ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ End If
TeƱa en conta que tan pronto como a condiciĆ³n se fai verdadeira, a execuciĆ³n da instruciĆ³n condicional aborta. Polo tanto, se o valor da variable ActiveCell menos de 5, entĆ³n a primeira condiciĆ³n faise verdadeira e a cela cor verde. Despois diso, a execuciĆ³n da declaraciĆ³n Se... EntĆ³n interrĆ³mpese e non se verifican as demais condiciĆ³ns.
ObtĆ©n mĆ”is informaciĆ³n sobre o uso do operador condicional en VBA Se... EntĆ³n pĆ³dese atopar na Microsoft Developer Network.
InstrucciĆ³n "Seleccionar caso" en Visual Basic
Operador Seleccione Caso semellante ao operador Se... EntĆ³n en que tamĆ©n comproba a verdade da condiciĆ³n e, dependendo do resultado, escolle unha das opciĆ³ns.
Sintaxe do operador Seleccione Caso como isto:
Select Case ŠŃŃŠ°Š¶ŠµŠ½ŠøŠµ
Case ŠŠ½Š°ŃŠµŠ½ŠøŠµ1
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø ŃŠµŠ·ŃŠ»ŃŃŠ°Ń ŠŃŃŠ°Š¶ŠµŠ½ŠøŃ ŃŠ¾Š¾ŃŠ²ŠµŃŃŃŠ²ŃŠµŃ ŠŠ½Š°ŃŠµŠ½ŠøŃ1
Case ŠŠ½Š°ŃŠµŠ½ŠøŠµ2
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø ŃŠµŠ·ŃŠ»ŃŃŠ°Ń ŠŃŃŠ°Š¶ŠµŠ½ŠøŃ ŃŠ¾Š¾ŃŠ²ŠµŃŃŃŠ²ŃŠµŃ ŠŠ½Š°ŃŠµŠ½ŠøŃ2
...
Case Else
ŠŠµŠ¹ŃŃŠ²ŠøŃ Š² ŃŠ»ŃŃŠ°Šµ, ŠµŃŠ»Šø ŃŠµŠ·ŃŠ»ŃŃŠ°Ń ŠŃŃŠ°Š¶ŠµŠ½ŠøŃ Š½Šµ ŃŠ¾Š¾ŃŠ²ŠµŃŃŃŠ²ŃŠµŃ Š½Šø Š¾Š“Š½Š¾Š¼Ń ŠøŠ· ŠæŠµŃŠµŃŠøŃŠ»ŠµŠ½Š½ŃŃ
Š²Š°ŃŠøŠ°Š½ŃŠ¾Š² ŠŠ½Š°ŃŠµŠ½ŠøŃ
End Select
Elemento Caso Outro non Ʃ necesario, pero recomƩndase para manexar valores inesperados.
No seguinte exemplo, empregando a construciĆ³n Seleccione Caso cambia a cor de recheo da cela actual dependendo do valor nela:
Seleccione Case ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š·ŠµŠ»ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ Case 6, 7, 8, 9 ActiveCell.Interior.Color = 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š·ŠµŠ»ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ Case 49407, 10, 65535, 11 ActiveCell.Interior.Color = 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š·ŠµŠ»ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ Ń Š² Š¾ŃŠ°Š½Š¶ŠµŠ²ŃŠ¹ ŃŠ²ŠµŃ Case 20 ActiveCell.Interior. Color = 10498160 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š¶ŃŠ»ŃŃŠ¹ ŃŠ²ŠµŃ Case 255 To XNUMX ActiveCell.Interior.Color = XNUMX 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² Š¶ŃŠ»ŃŃŠ¹ ŃŠ²ŠµŃ Case XNUMX To XNUMX ActiveCell.Interior.Color = XNUMX 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š¶ŃŠ»ŃŃŠ¹ ŃŠ²ŠµŃ Case XNUMX To XNUMX ActiveCell. terior.Color = XNUMX 'ŠÆŃŠµŠ¹ŠŗŠ° Š¾ŠŗŃŠ°ŃŠøŠ²Š°ŠµŃŃŃ Š² ŠŗŃŠ°ŃŠ½ŃŠ¹ ŃŠ²ŠµŃ End Select
O exemplo anterior mostra como se pode establecer un valor para un elemento de varias maneiras. caso na construciĆ³n Seleccione Caso. Estas son as formas:
| O caso Ć© <= 5 | AsĆ, empregando a palabra clave O caso Ć© pode comprobar se o valor satisface ExpresiĆ³ns condiciĆ³n do formulario <= 5. |
| caso 6, 7, 8, 9 | Deste xeito pode comprobar se o valor coincide ExpresiĆ³ns cun dos valores indicados. Os valores indicados estĆ”n separados por comas. |
| caso 10 | Isto comproba se o valor coincide ExpresiĆ³ns cun valor dado. |
| caso 11 Iso Ć© 20 | AsĆ, pode escribir unha expresiĆ³n para comprobar se o valor cumpre ExpresiĆ³ns condiciĆ³n do formulario de 11 a 20 (equivalente Ć” desigualdade "11<=valor<=20"). |
| Caso Outro | AsĆ, usando a palabra clave outro, as acciĆ³ns indĆcanse para o caso se o valor ExpresiĆ³ns non coincide con ningunha das opciĆ³ns listadas caso. |
En canto se atopa unha das condiciĆ³ns, realĆzanse as acciĆ³ns correspondentes e a estrutura sae. Seleccione Caso. Ć dicir, en todo caso, sĆ³ se executarĆ” unha das ramas enumeradas. caso.
MĆ”is informaciĆ³n sobre o funcionamento da declaraciĆ³n VBA Seleccione Caso pĆ³dese atopar na Microsoft Developer Network.