필터링된 경우 Excel에서 열 또는 열 헤더를 강조 표시하는 방법

여러 열이 있는 표의 경우 필터링된 열을 나타내는 명확한 기호가 없기 때문에 한눈에 어떤 열이 필터링되었는지 찾기가 쉽지 않습니다. 단지 표시자만 있을 뿐입니다. 만약 필터링된 열을 표에서 두드러지게 만들고 싶다면, 이 문서에서 소개하는 방법이 도움이 될 수 있습니다.

VBA 코드를 사용하여 필터링된 경우 열 헤더 또는 전체 열 강조 표시하기

VBA 코드를 사용하여 필터링된 경우 열 헤더 또는 전체 열 강조 표시하기

아래 스크린샷과 같이, 특정 표 범위에서 필터링된 열의 전체 열 또는 열 헤더만 강조 표시하려면 다음 VBA 코드를 적용하세요.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭하세요. 그런 다음 아래 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 for Excel 대화 상자에서 필터링된 열 헤더 또는 전체 필터링된 열을 강조 표시해야 하는 표의 첫 번째 셀을 선택하고 확인 버튼을 클릭하세요.

그러면 특정 표에서 열이 필터링된 경우 열 헤더 또는 전체 열이 즉시 강조 표시됩니다. 스크린샷을 참조하세요:

표에서 열이 필터링된 경우 열 헤더 강조 표시:

표에서 필터링된 경우 전체 열 강조 표시:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!