Kako označiti stolpec ali glavo stolpca, če je filtriran v Excelu?
Za tabelo z več stolpci ni enostavno ugotoviti, kateri stolpec je na hitro filtriran, saj za filtrirani stolpec ni očitnega simbola, razen za oznaka. Če želite filtrirani stolpec v tabeli narediti izjemnim, vam lahko pomaga metoda v tem članku.
Označite glavo stolpca ali celoten stolpec, če je filtriran s kodo VBA
Označite glavo stolpca ali celoten stolpec, če je filtriran s kodo VBA
Kot je prikazano na spodnji sliki zaslona, morate označiti celoten stolpec ali samo glavo stolpca, če je ta stolpec filtriran v obsegu tabel, uporabite naslednje kode VBA.
1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. V oknu Microsoft Visual Basic for Applications kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno modula.
Koda VBA: Označite glavo stolpca, če je stolpec filtriran
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
Če želite označiti celoten stolpec, če je filtriran v tabeli, kopirajte in prilepite spodnjo kodo VBA v okno modula.
Koda VBA: Označite celoten stolpec, če je filtriran
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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel v pogovornem oknu izberite prvo celico tabele, ki jo želite označiti s filtriranim naslovom stolpca ali celotnim filtriranim stolpcem, nato pa kliknite OK gumb.
Potem bo glava stolpca ali celoten stolpec takoj označena, če je stolpec filtriran v določeni tabeli. Oglejte si posnetke zaslona:
Označite glavo stolpca, če je stolpec filtriran v tabeli:
Označite celoten stolpec, če je v tabeli filtriran:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!