Uso de Case 1,2,3 en VBA para Microsoft Excel

Para finalizar la introducción a la instrucción Selct Case en VBA, veremos la posibilidad de crear un Case que se aplique a varios casos aislados.

Para ello pondremos en el Case, separados por comas los valores para los que deseemos ejecutar las instrucciones.

La instrucción que usaremos es esta:

El  código completo del programa:

Option Explicit

Sub condicional()

    

    'Declaramos una variable numerica

    Dim dia As Integer

    Dim dato As Integer

    dato = Range("B2").Value

    Select Case dato

        Case 1, 3, 5, 7:

            MsgBox ("Dia impar")

        Case 2, 4, 6:

            MsgBox ("Dia par")

        Case Else:

            MsgBox ("Dato incorrecto introduzca un numero del uno al siete")

    End Select

End Sub