VBA - Declaração de Switch

Quando um usuário deseja executar um grupo de instruções dependendo de um valor de uma Expressão, então Switch Case é usado. Cada valor é chamado de Caso, e a variável está sendo ativada com base em cada caso. A instrução Case Else é executada se a expressão de teste não corresponder a nenhum Case especificado pelo usuário.

Case Else é uma instrução opcional em Select Case, no entanto, é uma boa prática de programação sempre ter uma instrução Case Else.

Sintaxe

A seguir está a sintaxe de uma instrução Switch em VBScript.

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

Exemplo

Para fins de demonstração, vamos encontrar o tipo de inteiro com a ajuda de uma função.

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

Quando o código acima é executado, ele produz o seguinte resultado.

The Number is the Least Composite Number