Uso de Case Else en VBA para Microsoft Excel

En un Select Case de VBA para Microsoft Excel es posible crear un Case que se ejecute cuanto no se cumplan las condiciones de ninguno de los anteriores.

La instrucción concreta es la siguiente.

Esto sustituye en nuestro ejemplo con una sola instrucción a tres condicionales en nuestro ejemplo original.

Este es el código completo del ejemplo.

Sub condicional()

    'Declaramos una variable numerica

    Dim dia As Integer

    Dim dato As String

    

    dato = Range("B2").Value

    

    Select Case dato

        Case 1:

            MsgBox ("lunes")

            

        Case 2:

            MsgBox ("martes")

            

        Case 3:

            MsgBox ("miercoles")

            

        Case 4:

            MsgBox ("jueves")

            

        Case 5:

            MsgBox ("viernes")

            

        Case 6:

            MsgBox ("sabado")

            

        Case 7:

            MsgBox ("domingo")

        Case Else:

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

            

    End Select

    

End Sub