Hvordan fremhæves kolonne eller kolonneoverskrift, hvis den er filtreret i Excel?
For en tabel med flere kolonner er det ikke let at finde ud af, hvilken kolonne der filtreres med et øjeblik, da der ikke er noget tydeligt symbol for den filtrerede kolonne undtagen en mærke. Hvis du vil gøre den filtrerede kolonne fremragende i en tabel, kan en metode i denne artikel hjælpe dig.
Fremhæv kolonneoverskrift eller hele kolonne, hvis den er filtreret med VBA-kode
Fremhæv kolonneoverskrift eller hele kolonne, hvis den er filtreret med VBA-kode
Som vist nedenstående skærmbillede skal du fremhæve hele kolonnen eller kun kolonneoverskriften, hvis denne kolonne er filtreret i et tabelinterval, skal du anvende følgende VBA-koder.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. Klik på Microsoft Visual Basic for Applications-vinduet indsatte > Moduler. Kopier derefter nedenstående VBA-kode til modulvinduet.
VBA-kode: Fremhæv kolonneoverskrift, hvis kolonnen er filtreret
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
For at fremhæve hele kolonnen, hvis den er filtreret i en tabel, skal du kopiere og indsætte nedenstående VBA-kode i modulvinduet.
VBA-kode: Fremhæv hele kolonnen, hvis den er filtreret
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. Tryk på F5 nøgle for at køre koden. I pop op Kutools til Excel dialogboks, skal du vælge den første celle i tabellen, du har brug for for at fremhæve den filtrerede kolonneoverskrift eller hele den filtrerede kolonne, og klik derefter på OK .
Derefter fremhæves kolonneoverskriften eller hele kolonnen med det samme, hvis kolonnen filtreres i en bestemt tabel. Se skærmbilleder:
Fremhæv kolonneoverskrift, hvis kolonnen er filtreret i tabellen:
Fremhæv hele kolonnen, hvis den er filtreret i tabellen:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!