Hogyan lehet kiemelni az oszlopot vagy az oszlopfejlécet, ha az Excel-ben van szűrve?
Több oszlopos táblázat esetében nem könnyű megtudni, hogy melyik oszlop szűrhető egy pillanat alatt, mivel a szűrt oszlopnak nincs egyértelmű szimbóluma, kivéve Mark. Ha a szűrt oszlopot kiemelkedővé akarja tenni egy táblázatban, akkor ebben a cikkben szereplő módszer segíthet.
Jelölje ki az oszlopfejlécet vagy az egész oszlopot, ha VBA-kóddal van szűrve
Jelölje ki az oszlopfejlécet vagy az egész oszlopot, ha VBA-kóddal van szűrve
Amint az alábbi képernyőképen látható, ki kell jelölnie a teljes oszlopot, vagy csak az oszlopfejlécet, ha ez az oszlop táblázattartományban van szűrve, kérjük, alkalmazza a következő VBA-kódokat.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. A Microsoft Visual Basic for Applications ablakban kattintson a gombra betétlap > Modulok. Ezután másolja az alábbi VBA kódot a Modul ablakba.
VBA kód: Jelölje ki az oszlop fejlécét, ha az oszlop szűrve van
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
Ha az egész oszlopot kiemeli, ha egy táblázatban van szűrve, kérjük, másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA-kód: Jelölje ki az egész oszlopot, ha szűrve van
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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a táblázat első celláját, amelyre a szűrt oszlopfejlécet vagy a teljes szűrt oszlopot szeretné kiemelni, majd kattintson a OK gombot.
Ezután az oszlopfejléc vagy az egész oszlop azonnal kiemelésre kerül, ha az oszlopot egy bizonyos táblázatba szűrjük. Képernyőképek megtekintése:
Jelölje ki az oszlopfejlécet, ha az oszlop szűrve van a táblázatban:
Jelölje ki az egész oszlopot, ha azt a táblázat szűri:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!