Introduciendo la instrucción Select Case en VBA para Microsoft Excel

Una forma más simple de escribir un conjunto de instrucciones condicionales en VBA es usando la instrucción Select Case.

El código de hoy es el siguiente:

Option Explicit

Sub condicional()

    

    'Declaramos una variable numerica

    Dim dia As Integer

    Dim dato As String

    

    dato = Range("B2").Value

    If (Not IsNumeric(dato)) Then

        MsgBox ("Error, has introducido un valor no numérico")

    Else

        dia = CInt(dato)

    

    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")

    End Select 

    End If

End Sub

La instrucción es mucho más sencilla de escribir que un grupo de condicionales.

En la siguiente imagen vemos la estructura básica.

En la primera línea identificamos la variable a evaluar, y en cada select indicamos las instrucciones que ejecuta si contiene ese valor.

Esta instrucción es mucho más potente, y lo iremos viendo en próximas publicaciones.