Excel - Sublinhar a linha ativa

Agosto 2017


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



Tradução feita por Lucia Maurity y Nouira

Veja também

Artigo original publicado por . Tradução feita por pintuda. Última modificação: 4 de março de 2011 às 06:57 por pintuda.
Este documento, intitulado 'Excel - Sublinhar a linha ativa', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.