Select Case

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 ¿?).

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:

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

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

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

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.

A que generación perteneces?
![](

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

Aquí usé tanto select case como inputbox. A alguien más le pasa que los pop up messages se tardan un poco en cargar?

Les comparto mi codigo:

Public Sub Estatus()

    Dim año As Integer
    Dim edad As Integer
    Dim m
    
    año = InputBox("¿En que año naciste?", "Licencia de conducir")
    edad = Year(Now) - año
    Select Case edad
        Case Is < 18
            m = MsgBox("Aun no puedes obtener tu licencia")
        Case Else
             m = MsgBox("¡Ya puedes obtener la licencia!, visita licencia.cl y conoce los requisitos")
    End Select
    
End Sub

Hola a todos,
Hice algo simple, una funciona que te dice si apruebas o no, según tu nota final.

• como saber si un numero es par o impar

' reto si saber si un numero es par o impar
Public Function impar(num As Integer) As String
    If num Mod 2 = 0 Then
        impar = "no es impar"
    Else
        impar = "es impar"
    End If
    
End Function

Ejercicio select case:

Hola a todos, les presento mi tarea usando Select Case 😃

Buena clase.

Public Function DDC() As String
Dim resultado As Double
Dim a As Double
Dim b As Double
Dim p As Double
Dim especificacion As Double

a = InputBox("Resultado obtenido", "Resultado")
b = InputBox("Resultado obtenido del duplicado", "Resultado duplicado")

p = (a + b) / 2
     
especificacion = InputBox("escribe la especificación del producto", , "Especificación del producto")

resultado = especificacion - p


    
Select Case resultado
    
    Case Is > 0
        DDC = "Fuera de especificación"
    Case Is <= 0
        DDC = "Dentro de especificación"
    
    
End Select

MsgBox (DDC)

End Function

Un código para saber si el resultado de un duplicado de laboratorio esta dentro o fuera de especificación máxima

Hola,comparto rutina para evaluar resultados en ventas:

Corregí mi reto

Buena tarde para todos, este es mi reto con la función Select Case

Una función para elegir una película según la hora que se elija

Public Function pelicula(hora As Integer) As String

    Select Case hora
        Case Is <= 3
            pelicula = "Funcion 1"
        Case 4 To 7
            pelicula = "Funcion 2"
        Case 8 To 10
            pelicula = "Función 3"
        Case Else
            pelicula = "Funcion 4"
    End Select
    
End Function

Hice esta función para que me diga si es par o impar un número:

Public Function Espar(A As Integer) As String
    
    Dim Modu As Double
       
    Modu = A Mod 2
    
    Select Case Modu
    
     Case Is = 0
     
        Espar = "Es número par"
        
    Case Else
    
        Espar = "Es número impar"
        
    End Select
               
End Function

nostalgia, mi primer código de programación. Todo vuelve siempre a los comienzos. Te extrañe Visual Basic 6.0 😃

Les dejo mi aporte usando todo lo del curso hasta ahora visto

<Public Function CheckSum() As String
    Dim N1 As Integer
    Dim N2 As Integer
    Dim N3 As Integer
    Dim Sum As Integer
    
    N1 = InputBox("Por favor, escribe el primer número:")
    N2 = InputBox("Por favor, escribe el segundo número:")
    N3 = InputBox("Por favor, escribe el tercer número:")
    
    Sum = N1 + N2 + N3
    
    Select Case Sum
        Case Is >= 0
            CheckSum = "La suma es mayor o igual que cero."
        Case Else
            CheckSum = "La suma es menor que cero."
    End Select
    
    MsgBox CheckSum
    
End Function
> 

Public Function SC(A As Integer, B As Integer, C As Integer)
    Dim suma As Integer
    sumar = A + B + C
    
    Select Case sumar
        Case Is < 0
            SC = "Negativo"
        Case Is = 0
            SC = "Cero"
        Case Else
            SC = "Positivo"
    End Select
End Function

En mi caso opte por realizar una función, que me permita verificar la antigüedad apartir de una fecha, les comparto el código:

Public Function Antiguedad(Fecha As Date, Medida As String)

If Medida = “Días” Then

Antiguedad = DateDiff(“D”, Fecha, Date)

Else

If Medida = “Meses” Then

Antiguedad = DateDiff(“M”, Fecha, Date)

Else

If Medida = “Años” Then

Antiguedad = DateDiff(“YYYY”, Fecha, Date)

End If

End If

End If

End Function

'hallar tres numeros consecutivos que sumados den un numero en especifico
Public Function check(a As Integer)
Dim n As Integer
Dim b As Single
n = (a - 3) / 3
b = n + n + 1 + n + 2

Select Case a
    Case Is = b
        check = "Los numeros son " & n & ", " & n + 1 & " y " & n + 2
    Case Else
        check = "No tiene"
End Select      

End Function