Excel - Resaltar la línea activa

Haz una pregunta

Cuando nos desplazamos sobre la hoja a menudo perdemos el punto de referencia. Esta pequeña función resalta (el fondo en rojo y la escritura en color amarillo), toda la línea donde se encuentra el cursor.

Colocar en el módulo de la hoja


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AncAdress As Long
'Si la función Activar/Desactivar es implementada añadir la línea de abajo
if ActivationLigne then exit sub

If Target.Count > 1 Then Exit Sub
If AncAdress <> 0 Then 'remettre en normal
Rows(AncAdress).Interior.ColorIndex = xlNone
Rows(AncAdress).Font.ColorIndex = 0
End If
Target.EntireRow.Font.ColorIndex = 6
Target.EntireRow.Interior.ColorIndex = 3
Target.EntireRow.Interior.Pattern = xlSolid
AncAdress = Target.Row
End Sub

Eventualmente añadir en un módulo general (modulo1 por ejemplo)


Si deseas activar/desactivar la función
  • Poner un botón en la macro
  • Poner un atajo

Por defecto el subrayado está activo, hay que hacer clic en el botón o el atajo para cambiarlo.

Public ActivationLigne as boolean
Sub Activer()
ActivationLigne =not ActivationLigne
end sub
Jean-François Pillou

Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.

Más información sobre el equipo de CCM

Consulta también