Hoy vamos a ver un ejemplo de uso del comando Select Case en Microsoft Excel.
Para ello he creado la tabla que muestro a continuación. En ella aparece la edad de distintas personas. La idea es que al correr la macro, se rellene la tercera columna clasificándolas como "niño", "adolescente" o "adulto".
A continuación os comparto el código necesario,
Sub Clasificar()
'Recorremos las filas de datos
For i = 4 To 13
edad = Cells(i, "D")
'Realizamos la clasificación según la edad de la celda en curso
Select Case edad
Case 1 To 14
tipo_edad = "niño"
Case 15 To 20
tipo_edad = "adolescente"
Case Else
tipo_edad = "adulto"
End Select
'Escribimos el resultado en la columna E
Cells(i, "E") = tipo_edad
Next
End Sub
Si pulsamos el botón "Clasificar", el resultado será el siguiente,
Espero que este ejemplo de uso te haya servido para aprender a usar el comando Select Case en Microsoft Excel. Descárgate el archivo de ejemplo y practica.
Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.
Hasta la próxima.
Si te ha servido y quieres donar
Descarga el archivo del ejemplo
2 Comentarios
Enviar un comentario
Últimas publicaciones
Gracias. Muy interesante artículo. Además, debe de haber ejemplos más complicados.
Un abrazo!
Gracias Francisco!