Cum să evidențiați coloana sau antetul coloanei dacă este filtrat în Excel?
Pentru un tabel cu mai multe coloane, nu este ușor să aflați ce coloană este filtrată dintr-o privire, deoarece nu există un simbol evident pentru coloana filtrată, cu excepția unui marcă. Dacă doriți ca coloana filtrată să fie remarcabilă într-un tabel, o metodă din acest articol vă poate ajuta.
Evidențiați antetul coloanei sau întreaga coloană dacă este filtrat cu cod VBA
Evidențiați antetul coloanei sau întreaga coloană dacă este filtrat cu cod VBA
După cum se arată mai jos, trebuie să evidențiați întreaga coloană sau doar antetul coloanei dacă această coloană este filtrată într-un interval de tabel, vă rugăm să aplicați următoarele coduri VBA.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În fereastra Microsoft Visual Basic pentru aplicații, faceți clic pe Insera > Module. Apoi copiați codul VBA de mai jos în fereastra Module.
Cod VBA: evidențiați antetul coloanei dacă coloana este filtrată
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
Pentru a evidenția întreaga coloană dacă este filtrată într-un tabel, copiați și lipiți codul VBA de mai jos în fereastra Module.
Cod VBA: evidențiați întreaga coloană dacă este filtrată
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. apasă pe F5 tasta pentru a rula codul. În pop-up Kutools pentru Excel caseta de dialog, selectați prima celulă a tabelului de care aveți nevoie pentru a evidenția antetul coloanei filtrate sau întreaga coloană filtrată, apoi faceți clic pe OK butonul.
Apoi antetul coloanei sau întreaga coloană va fi evidențiat imediat dacă coloana este filtrată într-un anumit tabel. Vedeți capturi de ecran:
Evidențiați antetul coloanei dacă coloana este filtrată în tabel:
Evidențiați întreaga coloană dacă este filtrată în tabel:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!