Excel - Sublinhar a linha ativa

Faça uma pergunta

Quando "ripamos" na planilha, muitas vezes perdemos a marca.

Esta pequena função sublinha (fundo vermelho escrito em amarelo) a linha inteira, onde se encontra o cursor

Colocar no módulo da planilha


Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
Static AncAdress As Long   
'Se a função Ativar/Desativar foi implementada, adicionar a linha abaixo   
    if ActivationLigne  then exit sub   

    If Target.Count > 1 Then Exit Sub   
    If AncAdress <> 0 Then 'repor em 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 adicionar em um módulo geral (módulo1, por exemplo)


Se você quiser ativar/desativar a função
  • Ou colocar um botão no macro
  • Ou colocar um atalho


Por padrão, o destaque está ativo, você deve clicar no botão ou no atalho, para mudar.

Public ActivationLigne as boolean   
Sub Activer()   
    ActivationLigne =not ActivationLigne   
end sub


Jean-François Pillou

Jean-François Pillou - Fundador do CCM
Mais conhecido como Jeff, Jean-François Pillou é o fundador do CommentCaMarche.net. Ele também é CEO do CCM Benchmark e diretor digital do Grupo Figaro.

Mais informações sobre a equipe do CCM

Veja também