Excel Avanzado

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

Excel Avanzado

Ejemplos de Select case en VBA

La estructura Select en VBA es importante porque nos permite tener un control de las instrucciones agrupándolas, la sintaxis a emplear es como sigue:

 

Select [ Case ] expresión a evaluar

[ Case lista de expresiones [Instrucciones a ejecutar] ]

[ Case Else

[ Instrucciones a ejecutar en el caso del else] ]

End Select

 

Primero tenemos la expresión a evaluar, en esta de debe evaluarse un dato el cual puede encontrarse dentro de la lista de expresiones.

Así podríamos encontrar mostrar el siguiente ejemplo de Select Case en VBA

 

Sub EjemploSelectCase()

Dim numero As Integer

numero = 8

Select Case numero

Case 1 To 5      

     MsgBox "El número esta entre 1 y 5 "

Case 6, 7, 8      

     MsgBox "El número esta entre 6, 7 y 8 "

Case 9 To 10      

     MsgBox "El número esta entre 9 y 10 "

Case Else      

      MsgBox "El número no esta entre 1 y 10 "

End Select

End Sub

 

Dependiendo del valor de la variable "numero" se ejecutará el bloque correspondiente

En los siguientes ejemplos podrá descubrir una variedad de ejemplos de Select en vba donde podrá explorar como emplearlo.

  1. 5 Ejemplos de macros con Select Case
  2. Tasas del Impuesto Anual por Rentas de Trabajo
  3. Select Case-Matrícula para Curso de Excel según tipo de alumno
  4. Select case: Descuento Próxima Compra
  5. For ...Calcular Puntaje Promotor
  6. Select Case - Calcular costo de entrada Concierto
  7. Cálculo de bono por ventas
  8. Calificación crediticia por regiones y crecimiento del PBI
  9. Ejemplo de SelectCase Aplicado a Menú de Restaurante
  10. Ejemplo de Select Case - clasificación alfabética de las notas de un exámen
  11. Select Case aplicado a solicitud de becas
  12. Ejemplo de determinación del NSE
  13. Ejemplo Select Case aplicado conocer el premio de la loteria
  14. Select case aplicado a códigos telefónicos
  15. Ejemplo de Select Case aplicado al cálculo del monto a pagar por entradas
  16. Ejemplo de Select Case aplicado a la determinación del NSE
  17. Ejemplo de Select Case Aplicado a selección de tarifas
  18. Ejemplo de Select Case aplicado a la detección de retención de 5ta categoría
  19. Select Case aplicado a beneficios por pago puntual
  20. Ejemplo de Select Case aplicado a la validación del ingreso de una fecha
  21. Ejemplo de uso de select case aplicado a una planificacion de la produccion
  22. Función Select Case aplicado a las horas del día
  23. Uso de Select Case para sistema progresivo de impuesto a la renta

5 comentarios

  1. espero poder explicar mi problema.
    tengo varios orígenes de datos para una tabla dinámica pero los datos de origen deben de cambiar dependiendo que opción elija yo; me podrían ayudar se lo agradecería muchísimo.

  2. Este formulario también es bastante importante porque te permite seleccionar una opción para luego realizar la acción. Considero que Select case trabaja conjuntamente con If, ya que se al realizar select case de alguna opción, puedes poner una condicionante con el if condition. Por ejemplo si las páginas de comida rápida brindan un select case de delivery, puedes poner la condicionante if condition para preguntar si deseas hamburguesa, nuggets, papas fritas, etc. Select case es bastante importante para estas empresas.

  3. Es excelente, con todos los ejemplos descritos puedo aprender rápidamente, muchas gracias y felicitaciones

  4. Cordial Saludo
    la presente es con el fin de solicitar ayuda a validar un dato de una columna a que sea igual a una fecha especifica
    y en la otra columna el dato sea correcto para la fecha

    Ejemplo si en la columna A: la fecha tiene que ser 1900-01-01
    y en la colmna B: el dato se 22
    tengo el codigo que para una solo columna

    anexo ejemplo

    cOLUMNA = 113
    Cells(9, cOLUMNA).Select
    For A = 9 To UltimaCelda

    VF = Cells(A, cOLUMNA)

    Cells(A, cOLUMNA).Select

    Selection.NumberFormat = "yyyy-mm-dd" 'Cambia el formato

    If VF Date Then

    If VF = "1800-01-01" Or VF = "1845-01-01" Or VF = "1805-01-01" Or VF = "1810-01-01" Or VF = "1825-01-01" Or VF = "1830-01-01" Or VF = "1835-01-01" Then
    Else
    With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 192
    .TintAndShade = 0
    .PatternTintAndShade = 0
    End With
    Cells(A, 120).Select
    ActiveCell.FormulaR1C1 = "Registro con inconsistencias"
    End If
    End If
    Next

  5. hola el case solo funciona para valores numerico o puede funcionar para validación de datos y como un ejemplo tengo esto cinco conceptos pero no se como hacer el select case M m3 OFI TMT MED

Deja una respuesta

Los campos requeridos estan marcados con *.