Uso de Case N To M en VBA para Microsoft Excel

En un Select Case de VBA para Microsoft Excel es posible crear un Case que se ejecute entre dos valores, para ello usaremos la instrucción Select M To N.

Esto permite crear en una única instrucción una respuesta a varios valores de la variable de control.

La línea de código que hemos modificado es la siguiente:

El código completo es el siguiente:

El resultado es el mismo que el código que veíamos ayer con menos líneas.

El código completo a conticuación:

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 To 5:

            MsgBox ("Dia laborable")

        Case 6 To 7:

            MsgBox ("Fin de semana")

        Case Else:

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

    End Select

End Sub