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.
- 5 Ejemplos de macros con Select Case
- Tasas del Impuesto Anual por Rentas de Trabajo
- Select Case-Matrícula para Curso de Excel según tipo de alumno
- Select case: Descuento Próxima Compra
- For ...Calcular Puntaje Promotor
- Select Case - Calcular costo de entrada Concierto
- Cálculo de bono por ventas
- Calificación crediticia por regiones y crecimiento del PBI
- Ejemplo de SelectCase Aplicado a Menú de Restaurante
- Ejemplo de Select Case - clasificación alfabética de las notas de un exámen
- Select Case aplicado a solicitud de becas
- Ejemplo de determinación del NSE
- Ejemplo Select Case aplicado conocer el premio de la loteria
- Select case aplicado a códigos telefónicos
- Ejemplo de Select Case aplicado al cálculo del monto a pagar por entradas
- Ejemplo de Select Case aplicado a la determinación del NSE
- Ejemplo de Select Case Aplicado a selección de tarifas
- Ejemplo de Select Case aplicado a la detección de retención de 5ta categoría
- Select Case aplicado a beneficios por pago puntual
- Ejemplo de Select Case aplicado a la validación del ingreso de una fecha
- Ejemplo de uso de select case aplicado a una planificacion de la produccion
- Función Select Case aplicado a las horas del día
- Uso de Select Case para sistema progresivo de impuesto a la renta
07/07/2014 a las 10:51 pm
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.
28/02/2015 a las 1:39 am
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.
30/06/2015 a las 1:50 pm
Es excelente, con todos los ejemplos descritos puedo aprender rápidamente, muchas gracias y felicitaciones
24/10/2015 a las 3:23 pm
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
11/02/2018 a las 8:25 pm
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