VBA - Declaración de cambio

Cuando un usuario desea ejecutar un grupo de declaraciones dependiendo del valor de una expresión, se usa Switch Case. Cada valor se denomina Caso y la variable se activa en función de cada caso. La instrucción Case Else se ejecuta si la expresión de prueba no coincide con ninguno de los casos especificados por el usuario.

Case Else es una instrucción opcional dentro de Select Case, sin embargo, es una buena práctica de programación tener siempre una instrucción Case Else.

Sintaxis

A continuación se muestra la sintaxis de una instrucción Switch en VBScript.

Select Case expression
   Case expressionlist1
      statement1
      statement2
      ....
      ....
      statement1n
   Case expressionlist2
      statement1
      statement2
      ....
      ....
   Case expressionlistn
      statement1
      statement2
      ....
      ....   
   Case Else
      elsestatement1
      elsestatement2
      ....
      ....
End Select

Ejemplo

Para fines de demostración, busquemos el tipo de entero con la ayuda de una función.

Private Sub switch_demo_Click()
   Dim MyVar As Integer
   MyVar = 1
  
   Select Case MyVar
      Case 1
         MsgBox "The Number is the Least Composite Number"
      Case 2
         MsgBox "The Number is the only Even Prime Number"
      Case 3
         MsgBox "The Number is the Least Odd Prime Number"
      Case Else
         MsgBox "Unknown Number"
   End Select
End Sub

Cuando se ejecuta el código anterior, produce el siguiente resultado.

The Number is the Least Composite Number