Como destacar a coluna ou o cabeçalho da coluna se for filtrado no Excel?
Para uma tabela com várias colunas, não é fácil descobrir qual coluna é filtrada de relance, pois não há nenhum símbolo óbvio para a coluna filtrada, exceto para um marca. Se você deseja tornar a coluna filtrada excepcional em uma tabela, um método neste artigo pode ajudá-lo.
Destaque o cabeçalho da coluna ou a coluna inteira se ela for filtrada com o código VBA
Destaque o cabeçalho da coluna ou a coluna inteira se ela for filtrada com o código VBA
Como mostrado na captura de tela abaixo, você precisa destacar a coluna inteira ou apenas o cabeçalho da coluna se esta coluna for filtrada em um intervalo de tabela, aplique os seguintes códigos VBA.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Na janela Microsoft Visual Basic for Applications, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo na janela Módulo.
Código VBA: destaque o cabeçalho da coluna se a coluna for filtrada
Sub HighLightTitle()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim I As Integer
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg.Offset(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
If .On Then
xRg.Offset(, I - xRgCol).Interior.Color = 16736553
End If
End With
Next
End With
End Sub
Para destacar a coluna inteira se ela for filtrada em uma tabela, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: destaque a coluna inteira se ela for filtrada
Sub HighLightCols()
'Updated by Extendoffice 2017/9/12
Dim xRg As Range
Dim xCount As Long
Dim xRgCol As Long
Dim xAddress As String
Dim xRgFilter As Range
Dim xFilterCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the first cell of the table range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.Select
With xRg(1).Parent.AutoFilter
xFilterCount = .Range.Columns.Count
xRgCol = xRg(1).Column - .Range.Column + 1
For I = xRgCol To xFilterCount
xCount = xRg.Offset(, I - xRgCol).Column - .Range.Column + 1
With .Filters(xCount)
Set xRgFilter = xRg.Offset(, I - xRgCol).Parent.AutoFilter.Range.Columns(xCount)
If .On Then
xRgFilter.Interior.Color = 16736553
End If
End With
Next
End With
End Sub
3. aperte o F5 chave para executar o código. No surgimento Kutools for Excel caixa de diálogo, selecione a primeira célula da tabela de que você precisa para destacar o cabeçalho da coluna filtrada ou toda a coluna filtrada e, a seguir, clique no botão OK botão.
Então, o cabeçalho da coluna ou a coluna inteira serão destacados imediatamente se a coluna for filtrada em uma determinada tabela. Veja as capturas de tela:
Destaque o cabeçalho da coluna se a coluna for filtrada na tabela:
Destaque a coluna inteira se ela estiver filtrada na tabela:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!