Hoe kolom- of kolomkop markeren als deze in Excel is gefilterd?
Voor een tabel met meerdere kolommen is het niet eenvoudig om in één oogopslag te achterhalen welke kolom wordt gefilterd, aangezien er geen duidelijk symbool is voor de gefilterde kolom, behalve een Mark. Als u de gefilterde kolom openstaand in een tabel wilt maken, kan een methode in dit artikel u helpen.
Markeer de kolomkop of de hele kolom als deze is gefilterd met VBA-code
Markeer de kolomkop of de hele kolom als deze is gefilterd met VBA-code
Zoals onderstaand screenshot laat zien, moet u de hele kolom of alleen de kolomkop markeren als deze kolom in een tabelbereik is gefilterd, pas dan de volgende VBA-codes toe.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het modulevenster.
VBA-code: markeer de kolomkop als de kolom is gefilterd
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
Om de volledige kolom te markeren als deze in een tabel is gefilterd, kopieert en plakt u de onderstaande VBA-code in het modulevenster.
VBA-code: markeer de hele kolom als deze is gefilterd
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. druk de F5 sleutel om de code uit te voeren. Bij het opduiken Kutools for Excel dialoogvenster, selecteer de eerste cel van de tabel die u nodig hebt om de gefilterde kolomkop of de gehele gefilterde kolom te markeren en klik vervolgens op de OK knop.
Vervolgens wordt de kolomkop of de hele kolom onmiddellijk gemarkeerd als de kolom in een bepaalde tabel wordt gefilterd. Zie screenshots:
Markeer de kolomkop als de kolom in de tabel is gefilterd:
Markeer de hele kolom als deze in de tabel is gefilterd:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!