MACROS DE EXCEL

Resaltar fila y columna de celda activa en Excel (macro)

Resaltar fila y columna de celda activa en Excel (macro)

Resaltar fila y columna de celda activa en Excel

¿Cómo podemos podemos resaltar ambos ejes de una celda activa para mejorar una presentación o exposición en Excel?

La siguiente macro nos permite añadir un color de relleno a todas las celdas vinculadas a una celda activa en base a los ejes de fila y columna. La macro no se genera dentro de un nuevo módulo sino que se aplica directamente a toda la hoja de referencia.

La instrucción que debemos crear dentro de la hoja objetivo es la siguiente:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rowNumberValue As Integer, columnNumberValue As Integer, i As Integer, j As Integer

Cells.Interior.ColorIndex = 0

rowNumberValue = ActiveCell.Row
columnNumberValue = ActiveCell.Column

For i = 1 To rowNumberValue
    Cells(i, columnNumberValue).Interior.ColorIndex = 36
Next i

For j = 1 To columnNumberValue
    Cells(rowNumberValue, j).Interior.ColorIndex = 36
Next j

End Sub

 

 

Dentro de la instrucción vamos a poder cambiar el color de relleno en base a la paleta de colores de VBA. Para ello debemos cambiar el número «36» del ejemplo luego de las dos instancias «ColorIndex =». En el siguiente link podemos ver los colores de referencia: https://www.automateexcel.com/excel-formatting/color-reference-for-color-index/

Esta macro es muy útil si necesitamos por ejemplo realizar presentaciones donde debemos señalar y apuntar a una celda específica para ver su relación con los ejes de fila y columna.

 

 

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.