Excel에서 워크시트에 필터가 적용되었는지 확인하는 방법은 무엇입니까?

대량의 데이터를 포함한 워크시트의 경우, 각 열을 하나씩 수동으로 확인하지 않고 특정 열이나 전체 워크시트에 필터링이 적용되었는지 확인할 수 있을까요? 이 튜토리얼에서는 이 작업을 처리하기 위한 두 가지 VBA 코드를 소개합니다.

특정 열에 필터가 적용되었는지 확인하기
워크시트에 필터가 적용되었는지 확인하기

특정 열에 필터가 적용되었는지 확인하기

특정 열에 필터가 적용되었는지 확인하려면, 이 섹션의 VBA 코드가 도움이 될 수 있습니다.

1. 특정 열에 필터가 적용되었는지 확인하고자 하는 워크시트를 엽니다.

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

3. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음, 모듈 (코드) 창에 다음 VBA 코드를 복사합니다.

VBA 코드: 지정된 열에 필터가 적용되었는지 확인하기

Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
        xBol = True
    End If
Next xFNum
If xBol Then
    MsgBox "The specified column is filled"
Else
    MsgBox "The specified column is not filled"
End If
End Sub

참고: VBA 코드에서 “xColumn = 3” 줄의 숫자 3은 현재 워크시트의 세 번째 열을 나타냅니다. E 열에 필터가 적용되었는지 확인하려면 숫자 3을 5로 변경하세요.

4. 코드를 실행하기 위해 F5 키를 누릅니다.

지정된 열에 필터가 적용된 경우, 다음 대화 상자가 나타납니다.

그렇지 않으면 다음 대화 상자를 받게 됩니다.

Kutools AI로 엑셀의 마법을 풀다

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

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

워크시트에 필터가 적용되었는지 확인하기

워크시트에 필터가 적용되었는지 확인하려면, 이 섹션의 VBA 코드를 사용해 보세요.

1. 필터가 적용되었는지 확인하려는 워크시트를 엽니다.

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

3. Microsoft Visual Basic for Applications 창에서 삽입 > 모듈을 클릭한 다음, 모듈 (코드) 창에 다음 VBA 코드를 복사합니다.

VBA 코드: 워크시트에 필터가 적용되었는지 확인하기

Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer

Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
    If xAF.Filters(xFNum).On Then
        xBol = True
        Exit For
    End If
Next xFNum

If xBol Then
    MsgBox "Filter is applied in the curren worksheet"
Else
    MsgBox "Filter does not apply in the current worksheet"
End If
End Sub

4. 그런 다음, 이 코드를 실행하기 위해 F5 키를 누릅니다. 워크시트에 필터링이 포함되어 있으면 다음과 같은 대화 상자가 나타납니다.

그렇지 않으면 다음 대화 상자를 받게 됩니다.