Excel - Resaltar la línea activa

Noviembre 2016


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

Consulta también :
El documento «Excel - Resaltar la línea activa» de CCM (es.ccm.net) se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo siempre y cuando respetes las condiciones de dicha licencia y des crédito a CCM.