Uso de Select Case en Visual Basic para Condicionales

un caso para el cual te respondo automaticamente si salimos o no de fiesta (jaajjaa)

' prueba si es mayor de edad y puede salir a tomar
Public Function edad() As Integer
    
    Dim nacimiento As Integer
    Dim a
    Dim b
    Dim año As Integer
    Dim tomar
    año = InputBox("ingrese el año de nacimiento", "Año de nacimiento")
    nacimiento = 2022 - año
    a = MsgBox("tu edad es de " & nacimiento, , "edad")
    Select Case nacimiento
        Case Is >= 19
            tomar = " a tomar"
        Case Else
            tomar = " no puedes tomar"
    End Select
    b = MsgBox("si deseas pero" & tomar, , "salimos")
    
End Function

Es buena a explicación, pero no me queda claro como se usará en la hoja de excel. Es decir sólo se ejecuta en Visual Basic pero no me queda claro como usalro en la hoja de calculo.

Este curso es para aquel que no haya programado nunca, muy básico
Deberían tratar ejemplos mas complejos de la vida diaria de una empresa y con mas contenido y que dure mas tiempo (2horas ¿?).

¡Calculadora de IMC-Índice de Masa Corporal!, se aceptan observaciones-GRACIAS

Este es un caso en el que elijo que hacer si eres mayor o menor de edad

Public Function edad1() As Integer

    Dim año_nacimiento As Integer
    Dim edad As Integer
    Dim a
    Dim mayor_edad As String
    Dim b
    
    año_nacimiento = InputBox("Digite su año de nacimiento", "Año de nacimiento")
    edad = 2022 - año_nacimiento
    a = MsgBox("Su edad es de " & edad, , "Años de edad")
    
    Select Case edad
        Case Is >= 18
            mayor_edad = "tienes que tener cuidado"
        Case Else
            mayor_edad = "solo toma juguito de naranja"
            
        End Select
    b = MsgBox("El consumo de alcohol es perjudicial para la salud, " & mayor_edad, , "Ley 42-01")
    
End Function

Creé una subrutina para detectar peruanos:

Considero chévere el curso, pero es más bien algo así como un Curso de Excel Básico con Macros de VBA, mucha fundamentación, la cual no se aplica en el manejo de datos en una hoja.

Aquí hice un código para ver si es par o no el número:

Public Function par(A As Integer) As String
Dim modulo As Double
modulo = A Mod 2
Select Case modulo
Case Is = 0
par = "Es par"
Case Else
par = "No es par"
End Select

End Function

Ahi va el reto

Public Function edad(A As Integer, B As Integer) As String

    Dim años As Integer
    
    años = A + B
    
    Select Case años
        Case Is < 30
            edad = " menor"
        Case Is = 30
            edad = "Contemporaneos"
        Case Else
            edad = "Mayor"
            
        End Select
    
    
End Function

Quise hacer un pequeño juego para adivinar un número aleatorio del 1 al 3

Public Function SC(Numero As Integer) As String
Dim a
Numero = InputBox(“Num1”, “Adivina el número de 1 al 3”)
Random = Int((rnd * 3) + 1)

Select Case Numero
Case Is < Random
SC = "Perdiste, " & "el número escondido era: " & Random
Case Is = Random
SC = “¡GANASTE!” & "el número escondido era: " & Random
Case Else
SC = "Perdiste, " & "el número escondido era: " & Random

a = MsgBox(SC)

End Select
End Function

ASIGNAR MACRO A UN BOTON
Desarrollamos el mismo ejercicio de la clase aplicando una subrutina y luego lo asignamos a un BOTON. Insertamos los numeros ingresados y el resultado de la suma en la hoja1.

Comparto mi ejercicio de Select Case para saber si un numero es par o impar

Select Case es una estructura en Visual Basic que permite evaluar y manejar distintos casos de una variable en funciones o subrutinas. Cada caso se define mediante “Case” con condiciones específicas, como valores negativos, cero o positivos, y se ejecutan instrucciones correspondientes. Es crucial ser exhaustivo y considerar todos los posibles casos.

'IsPAr :)
Public Function IsPar(num As Integer) As String
    Dim par As Integer
    par = num Mod 2
    Select Case par
        Case Is = 0
            IsPar = "Es par"
        Case Else
            IsPar = "No es par"
    End Select
End Function

Comparto mi ejercicio.
En este caso realicé una simulación de la nota promedio requerida para aprobar una Materia con 3 casos distintos:

1. Nota promedio < 6 (Reprobado)

2. Nota promedio < 9, > 6 (Aprobado)

3. Nota Promedio > 9 (Exelente)
   

   

Comparto Visualización mi Macro con el uso de Select Case, donde se califica las notas para aprobar el curso.

Public Function SC(A As Integer) As String

Dim Suma As Integer
Suma = A

Select Case Suma
    Case Is < 12
        SC = "Es un niño"
    Case 12 To 21
        SC = "Es adolescente" 
    Case Is > 21
        SC = "Es un adulto"
End Select

End Function

Yo realice una calculadora de tipo imc

El resultado lo hice por medio de un msgbox

😃

<' RETO PARA SABER SI ES MENOR O MAYOR DE EDAD

Public Function edad(a As Integer) As String
    Dim años As Integer
    
    años = a
    
    Select Case años
        Case Is < 18
            edad = "Menor de edad"
        Case Else
            edad = "Mayor de edad"
    End Select
    
End Function
> 

calcular el % de cogs

!

Ejemplo de aprobacion del curso con select case:

Ahí esta mi ejemplo que asigna a un grupo poblacional por un rango de edad.

![](

Aquí les dejo el codigo que hice, que indica si es hora de comer o no

Public Function eat(Hora As Integer) As String

    Select Case Hora
        Case Is = 5
            eat = "Hora de Desayunar"
        Case Is = 6
            eat = "Hora de Desayunar"
        Case Is = 7
            eat = "Hora de Desayunar"
        Case Is = 12
            eat = "Hora de Almorzar"
        Case Is = 13
            eat = "Hora de Almorzar"
        Case Is = 14
            eat = "Hora de Almorzar"
        Case Is = 19
            eat = "Hora de Cenar"
        Case Is = 20
            eat = "Hora de Cenar"
        Case Is = 21
            eat = "Hora de Cenar"
        Case Else
            eat = "No es Hora de Comer :("
        
    End Select
    
            

End Function

Public Function CheckLegalDrinkingAge() As Integer

    Dim birthYear As Integer
    Dim currentYear As Integer
    Dim drinkMessage As String

    On Error GoTo ErrorHandler
    birthYear = CInt(InputBox("Which year were you born in?"))
    
    currentYear = year(Now)
    CheckLegalDrinkingAge = currentYear - birthYear

    MsgBox "You are " & CheckLegalDrinkingAge & " years old.", vbInformation, "Age"

    Select Case CheckLegalDrinkingAge
        Case Is >= 19
            drinkMessage = "Go ahead!"
        Case Else
            drinkMessage = "Not today, young one!"
    End Select
    
    MsgBox "If you want to drink, " & drinkMessage, vbInformation, "Drinking Advice"
    Exit Function

ErrorHandler:
    MsgBox "Please enter a valid year.", vbExclamation, "Error"

End Function

Buen día,

adjunto mi aporte

Public Function pares(A As Integer, B As Integer, C As Integer) As String
    Dim suma As Integer
    suma = A + B + C
    Select Case suma Mod 2
        Case Is = 0
        MsgBox ("la suma es par")
        Case Is = 1
        MsgBox ("la suma es impar")
    End Select
      
    
    
End Function

En mi caso elaboré una macro que identificara sí la suma de tres numeros enteros da como resultado un número par o impar.
Para conseguirlo utilizé la función Mod para obtener el residuo de la división del número obtenido de la suma entre 2. Con esto pude identificar dos casos, sí l residuo de la división es “1”, se refiere a un número impar, en caso de que el residuo de la división sea “0”, se trata de un número par.

Espero sea de utilidad compañeros.

Hola! Realicé una función con lo aprendido en esta clase para mostrar la condición de cada alumno al respecto con la nota de parcial, si promociona, aprueba o desaprueba el examen.

<
Public Function condi(nota_parcial As Integer) As String
    Dim a
    
    nota_parcial = nota_parcial
    
    Select Case nota_parcial
        Case Is >= 7
        condi = "Promociona"
        Case Is >= 4
        condi = "Aprobado"
        Case Is < 4
        condi = "Desaprobado"
    End Select
    
    a = MsgBox("¡Nunca pares de aprender!", , "ATR")
End Function> 

Usando la función en la hoja:

Apenas estoy aprendiendo, pero creo que voy muy bien 👌😎

Reto cumplido: Funcion que determine si un numero es par o impar

Public Function SC2(A As Integer) As String
   
Select Case A Mod 2
    
    Case Is = 0
        SC2 = "El número es par"
            
    Case Else
        SC2 = "El numero es impar"
        
   End Select



End Function

En este ejercicio quise que el usuario ingresara su año de nacimiento, para ello coloque un InputBox de solicitud de ingreso del año de nacimiento, luego se hace un cálculo de la edad del usuario que resultara de restar a la fecha actual el año de nacimiento ingresado por el usuario, ya con ese valor de la edad , hacer un comparativo con SELECT CASE donde compare mi edad con la del usuario, y para cada caso que se pueda presentar un mensaje para cada caso con MsgBox, que dirá si es mayor , menor o somos de la misma edad :

Public Function ParoImpar(numero As Integer) As String
Dim resultado As Double
resultado = numero Mod 2
Select Case resultado
Case Is = 0
ParoImpar = "ES PAR"
Case Is > 0
ParoImpar = "ES IMPAR"
End Select

End Function

una función en BVA que nos da recomendaciones sobre llevar una vida ordenada en función de tu edad

Public Function Edad(a As Integer) As String

Dim b

'EdadInput = InputBox("Ingresa tu edad")
Select Case a
    Case Is > 32
        Edad = "Eres Mayor que yo "
    Case Is = 32
        Edad = "Tenemos la misma edad "
    Case Is < 32
        Edad = "Eres Menor que yo "
End Select
a = MsgBox(Edad, , "Edad")

End Function

Para saber si un número es par o impar:

Public Function PARIMPAR(num As Integer) As String

Dim residuo As Integer

residuo = num Mod 2

Select Case residuo
    Case Is = 0
        PARIMPAR = "Par"
        
    Case Is <> 0
        PARIMPAR = "Impar"

End Select

End Function

😃

Se me ocurrió generar condicionales a este programa de cálculo de prestaciones sociales. Valida salario integral y bonificación en caso de que el empleado trabaje el año completo.

Increible es muy funcional

Public Sub JornadaLaboral()

Dim Jornada_Laboral As Double
Dim Value

Jornada_Laboral = InputBox("Por favor, ingrese el total de horas promedio por semana que usted trabaja", "Jornada Laboral")

Select Case Jornada_Laboral
    Case Is > 48
        Value = MsgBox("Por favor, verifique que le estén pagando sus horas extras y recargos. Su total fue de " & Jornada_Laboral & " horas. Número mayor al que permite la Ley", , "Jornada Laboral")
    Case Is = 48
        Value = MsgBox("Su total de horas es de " & Jornada_Laboral & " . Usted trabaja las horas que por Ley son las establecidas", , "Jornada Laboral")
    Case Else
        Value = MsgBox("Usted solo trabaja " & Jornada_Laboral & " horas." & " En este caso es probable que su jornada laboral pactada sea diferente a la establecida por Ley ", , "Jornada Laboral")
        
End Select

End Sub

Le sufrí un poquito, hice un caso similar pero con string. Importante usar las " " en strings.

La verdad no veo en qué caso aplicar esto, ni en qué tipo de trabajo, pero igual me encanta el curso!!

Yo lo hice para determinar si un estudiante aprueba, reprueba o tiene que hacer examenes extras tomando en cuenta sus calificaciones.

Public Function paridad(A As Integer) As String

    Dim prueba As Integer
    prueba = A Mod 2
    
    
    Select Case prueba = 0
        Case True
            paridad = "Es par"
        Case False
            paridad = "Es impar"
    End Select

End Function