Rango dinámico en Excel VBA

Buenas tardes, me llamo Miguel y al día de hoy os traigo un nuevo post.

A continuación veremos un programa en Excel VBA que colorea el valor máximo de un gama dinámica.

Localizació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.

Rango dinámico en Excel VBA

Coloque un botón de comando en su hoja de trabajo y agregue las siguientes líneas de código:

1. Primero, declaramos una variable y dos objetos Range. Una variable de tipo Double que llamamos máximo. Llamamos a los objetos Range rng y cell.

Oscuro máximo Cómo Doble, rng Cómo Alcanzar eso Cómo Alcance

2. Agregamos la línea que cambia el color de fondo de todas las celdas a "Sin relleno".

Cells.Interior.ColorIndex = 0

3. Inicializamos rng con los números. Para esto usamos la propiedad CurrentRegion. CurrentRegion es útil cuando no conocemos de antemano los límites exactos de un rango.

Colocar rng = Rango ("A1"). Región actual

4. Inicializamos el máximo con el valor máximo de los números. Usamos la función de hoja de trabajo Max para encontrar el valor máximo.

máximo = WorksheetFunction.Max (rng)

5. Finalmente, coloreamos el valor máximo. Usamos un Para cada siguiente ciclo.

Para Cada ese En rng
cell.Value = máximo Entonces cell.Interior.ColorIndex = 22
Entonces ese

Nota: En lugar del número 22 de ColorIndex (rojo), puede utilizar cualquier número de ColorIndex.

6. Agregue un número.

Resultado al hacer clic en el botón de comando de la hoja:

Resultado del rango dinámico

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Subir

Esta página utiliza Cookies. Más info