Resalte la celda activa en Excel VBA

Hola, me llamo Miguel y esta vez os traigo un nuevo artículo.

A continuación veremos un programa en Excel VBA ese resalta la fila y columna de la celda activa (celda seleccionada). Este programa sorprenderá e impresionará a su jefe.

Localización:

Resalte la celda activa en Excel VBA

Cada vez que cambiamos la celda activa en la hoja 1, necesitamos ejecutar una macro. Puede lograr esto creando un evento SelectionChange de hoja de trabajo.

1. Abra el Editor de Visual Basic.

2. Haga doble clic en Sheet1 en el Explorador de hojas.

3. Elija Hoja de trabajo en la lista desplegable de la izquierda. Elija SelectionChange de la lista desplegable a la derecha.

Evento de cambio de selección de hoja de trabajo en Excel VBA

Agregue las siguientes líneas de código al evento SelectionChange de la hoja de trabajo:

4. Declaramos cuatro variables de tipo Integer. Un nombre rowNumberValue, otro columnNumberValue, un nombre, es decir, otro j.

Oscuro rowNumberValue Cómo Entero, columnNumberValue Cómo Entero, me Cómo Entero, j Cómo Entero

5. Primero, agregamos la línea que cambia el color de fondo de todas las celdas a "Sin relleno".

Cells.Interior.ColorIndex = 0

6. Inicializamos la variable rowNumberValue con el número de fila de la celda activa y la variable columnNumberValue con el número de columna de la celda activa.

rowNumberValue = ActiveCell.row
columnNumberValue = ActiveCell.column

7. Destacamos la columna azul. Es decir: todas las celdas con un número de fila menor o igual que rowNumberValue mi el número de columna es igual a columnNumberValue

Para i = 1 Para rowNumberValue
Celdas (i, columnNumberValue) .Interior.ColorIndex = 37
Entonces me

Explicación: Para este ejemplo (vea la imagen de arriba), rowNumberValue es igual a 12 y columnNumberValue es igual a 8. Las líneas de código entre For y Next se ejecutarán doce veces. Para i = 1, Excel VBA colorea la celda en la intersección de la fila 1 y la columna 8. Para i = 2, Excel VBA colorea la celda en la intersección de la fila 2 y la columna 8, y así sucesivamente.

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

8. Del mismo modo, destacamos la fila azul. Es decir, todas las celdas con números de fila iguales a NumberNumberValue mi número de columna menor o igual que columnNumberValue.

Para j = 1 Para columnNumberValue
Celdas (rowNumberValue, j) .Interior.ColorIndex = 37
Entonces j

9. Ahora es el momento de probar el programa. Descargue el archivo de Excel y vea cómo la fila y la columna de la celda activa se resaltan cada vez que cambia la celda activa.

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