Как да маркирате колона или заглавка на колона, ако е филтрирана в Excel?
За таблица с множество колони не е лесно да разберете коя колона е филтрирана с един поглед, тъй като няма очевиден символ за филтрираната колона, освен марка. Ако искате да направите филтрираната колона изпъкваща в таблица, метод в тази статия може да ви помогне.
Маркирайте заглавката на колоната или цялата колона, ако е филтрирана с VBA код
Маркирайте заглавката на колоната или цялата колона, ако е филтрирана с VBA код
Както е показано на екранната снимка по-долу, трябва да маркирате цялата колона или само заглавката на колоната, ако тази колона е филтрирана в диапазон на таблица, моля, приложете следните VBA кодове.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В прозореца на Microsoft Visual Basic за приложения щракнете Поставете > Модули. След това копирайте кода на VBA по-долу в прозореца на модула.
VBA код: Маркирайте заглавката на колоната, ако колоната е филтрирана
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
За маркиране на цялата колона, ако е филтрирана в таблица, моля, копирайте и поставете кода на VBA по-долу в прозореца на модула.
VBA код: Маркирайте цялата колона, ако е филтрирана
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. Натисни F5 ключ за изпълнение на кода. В изскачащите Kutools за Excel диалоговия прозорец, моля, изберете първата клетка от таблицата, която трябва да маркирате заглавката на филтрираната колона или цялата филтрирана колона, и след това щракнете върху OK бутон.
След това заглавката на колоната или цялата колона ще бъдат осветени веднага, ако колоната е филтрирана в определена таблица. Вижте екранни снимки:
Маркирайте заглавката на колоната, ако колоната е филтрирана в таблицата:
Маркирайте цялата колона, ако е филтрирана в таблицата:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!