Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado
Logo Excel Avanzado

5 Ejemplos de macros con Select Case

| 2 comentarios

La función Select Case nos permite poder escoger de entre más de dos alternativas o instrucciones, a diferencia de la función If. A continuación se les invita a revisar 5 ejemplos en donde se puede aplica esta función:

 

1. Select Case-Matrícula para Curso de Excel según tipo de alumno

2. Ejemplo de Select Case y If … Then aplicado a la conversión de Tipo de cambio

3. Ejemplo de uso de select case aplicado a una planificacion de la produccion

4. Ejemplo de Select Case Aplicado a Menú de Restaurante

5. Ejemplo de Select Case aplicado a la determinación del NSE

 

1. Select Case-Matrícula para Curso de Excel según tipo de alumno:

En este ejemplo podemos ver la aplicación del Select Case a través de un Listbox, en el cual a cada elemento agregado a la lista se le asignará un valor diferentes, dependiendo del elemento que se haya seleccionado. En este caso, cada tipo de alumno a matricularse tiene un precio de inscripción diferente. Aqui se utiliza la extensión ListIndex para poder asignar un valor de 0 a más según la cantidad de elementos que tenga el ListBox.

Imagen 16

(Para mayor visualización de la imagen, hacer click en la misma)

 2. Ejemplo de Select Case y If … Then aplicado a la conversión de Tipo de cambio

En este ejemplo, se puede ver la utilidad del Select Case para la conversión de unidades. En este caso, se trabaja con tipos de cambio de moneda, asignándole a cada una un número y la relación de cambio con respecto al resto. Esta operación es muy útil si se desea generar un macro para convertir varias unidad de medidas diferentes.

Imagen 17

 

3. Ejemplo de uso de Select Case aplicado a una planificación de la producción

Este ejemplo es interesante pues está aplicado a un pequeño sistema de planificación de la producción, en el cual se tiene un pronóstico del crecimiento de las ventas y se le suministra los datos de producción para evaluar si se podrá cumplir con el siguiente mes o será necesario incrementar la capacidad para poder cumplir con la demanda.

Imagen 18

 

4. Ejemplo de Select Case Aplicado a Menú de Restaurante

Este ejemplo sencillo muestra como utilizar el Select Case para calcular el precio de un conjunto de elementos, de los cuales se debe escoger una opción por cada grupo. Cada elemento tiene un precio asignado y al final de la selección te muestra la suma total del costo. Para este ejemplo se usa un menú con la combinación de entrada, plato de fondo y postre.

Imagen 19

(Para mayor visualización de la imagen, hacer click en la misma)

 

 5. Ejemplo de Select Case aplicado a la determinación del NSE

Este es un ejemplo básico de Select Case, en el cual se tienen varias instrucciones para diferentes alternativas, en este caso el nivel socio-económico en el cual se encuentra en función al sueldo mensual que uno recibe.

 

Imagen 20

 

por: Alonso

2 comentarios

  1. La herramienta Select Case resulta de mucha utilidad y se puede emplear para una gran cantidad de casos.
    Recientemente, la emplee para calcular el impuesto a la renta a aplicar a una persona en base a su ingreso anual.
    Según la nueva ley en el Perú, estos serían los datos:

    Renta neta de trabajo Renta neta de trabajo Tasa

    Hasta las 7 UIT < 26,950 0%
    Desde las 7 UIT hasta las 12 UIT 26,950 - 46200 8%
    Desde las 12 UIT hasta las 34 UIT 46200 - 130,900 15%
    Desde las 34 UIT hasta las 61 UIT 130,900 - 234,850 21%
    Desde las 61 UIT 234,850 < 30%

    Aquí la macro:

    Dim Nombre As String
    Dim Ingreso As Double
    Dim Impuesto As Double

    Ingreso = InputBox("Ingrese su sueldo anual")

    Select Case (Ingreso)
    Case Is < 26950
    Impuesto = 0 * Ingreso
    Case 26950 To 46200
    Impuesto = 0.08 * Ingreso
    Case 46200 To 130900
    Impuesto = 0.15 * Ingreso
    Case 130900 To 234850
    Impuesto = 0.21 * Ingreso
    Case Else
    Impuesto = 0.3 * Ingreso
    End Select

    MsgBox " Paga: " & Impuesto, , "Impuestos"

    End Sub

    Espero que sea de utilidad.
    Saludos!

  2. Buen dia
    me pueden ayudar con este codigo.

    necesito que se cumpla esta regla

    If Range("R60").Value =

    cuando se cumpla que haga otra macro llamada Sub siguiente()

    muchas gracias y quedo en espera de su respuesta....

Deja una respuesta

Los campos requeridos estan marcados con *.