A continuación veremos un programa en Excel VBA que colorea el valor máximo de un rango dinámico .
Situación:
Cada vez que agregamos un número y hacemos clic en el botón de comando, queremos que Excel VBA coloree el valor máximo de estos números.
Coloca un botón de comando en tu hoja de trabajo y añade las siguientes líneas de código:
1. Primero, declaramos una variable y dos objetos de rango. Una variable de tipo Doble que llamamos máxima. Llamamos a los objetos Range rng y cell.
Dim máximo como doble, rng como rango, célula como rango
2. Añadimos la línea que cambia el color de fondo de todas las celdas a «Sin relleno».
Células.Interior.ColorIndex = 0
3. Inicializamos el rng con los números. Usamos la propiedad CurrentRegion para esto. CurrentRegion es útil cuando no conocemos los límites exactos de un rango de antemano.
Set rng = Range(«A1»).CurrentRegion
4. Iniciamos el máximo con el valor máximo de los números. Usamos la función de la hoja de trabajo Max para encontrar el valor máximo.
Máximo = Función de la hoja de trabajo. Máximo (rng)
5. Finalmente, coloreamos el valor máximo. Usamos un «For Each Next Loop».
Para cada célula en el rng Si celda.Valor = máximo Entonces celda.Interior.ColorIndex = 22 La siguiente celda
Nota: en lugar del número 22 del ColorIndex (rojo), puedes usar cualquier número del ColorIndex.
6. Añade un número.
Resultado cuando se hace clic en el botón de comando de la hoja:
