Як виділити стовпець або заголовок стовпця, якщо він відфільтрований в Excel?
Для таблиці з кількома стовпцями непросто дізнатись, який стовпець відфільтрований з першого погляду, оскільки для фільтрованого стовпця немає очевидного символу, крім позначка. Якщо ви хочете зробити відфільтрований стовпець видатним у таблиці, метод у цій статті може вам допомогти.
Виділіть заголовок стовпця або весь стовпець, якщо він відфільтрований кодом VBA
Виділіть заголовок стовпця або весь стовпець, якщо він відфільтрований кодом VBA
Як показано нижче на скріншоті, вам потрібно виділити весь стовпець або лише заголовок стовпця, якщо цей стовпець відфільтрований у діапазоні таблиці, застосуйте такі коди VBA.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацніть у вікні Microsoft Visual Basic for Applications Insert > Модулі. Потім скопіюйте наведений нижче код 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% та зменшує сотні клацань миші для вас щодня!