Excel에서 자동 필터 조건을 표시하거나 보여주는 방법은 무엇입니까?

자동 필터는 Excel 사용자에게 유용한 기능입니다. 때로는 여러 기준에 따라 데이터를 필터링하고 파일을 다른 사람에게 보내기 위해 자동 필터를 적용합니다. 이 상황에서 다른 사용자가 필터링된 기준을 알고 싶다면 어떻게 해야 할까요?

사용자 정의 함수를 사용하여 워크시트에 자동 필터 조건 표시하기

VBA 코드를 사용하여 워크시트에 자동 필터 조건 표시하기

Kutools for Excel을 사용하여 워크시트에 자동 필터 조건 표시하기

사용자 정의 함수를 사용하여 워크시트에 자동 필터 조건 표시하기

다음과 같이 일부 기준에 의해 필터링된 데이터가 있다고 가정해 봅시다. 스크린샷을 참조하세요:

이제 필터 조건을 셀에 표시하기 위한 사용자 정의 함수를 만들 수 있습니다. 다음 단계를 따르세요:

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

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 매크로를 붙여넣습니다.

Function AutoFilter_Criteria(Rng As Range) As String
'Updateby20140220
Dim str1 As String, str2 As String
Application.Volatile
With Rng.Parent.AutoFilter
    With .Filters(Rng.Column - .Range.Column + 1)
        If Not .On Then Exit Function
            str1 = .Criteria1
        If .Operator = xlAnd Then
            str2 = " AND " & .Criteria2
        ElseIf .Operator = xlOr Then
            str2 = " OR " & .Criteria2
        End If
    End With
End With
AutoFilter_Criteria = UCase(Rng) & ": " & str1 & str2
End Function

3. 그런 다음 이 코드를 저장하고 닫고, 빈 행의 빈 셀(예: A1 셀)에 =AutoFilter_Criteria(A4) 공식을 입력합니다(A4는 필터링된 데이터의 헤더 셀임). 스크린샷을 참조하세요:

4. Enter 키를 누른 후 A1 셀을 선택하고, 필요한 만큼 오른쪽 셀로 채우기 핸들을 드래그하면 모든 기준이 셀에 표시됩니다. 스크린샷을 참조하세요:

참고: 한 열에 두 개 이상의 기준이 있는 경우 이 사용자 정의 함수는 올바른 결과를 제공하지 않습니다.

VBA 코드를 사용하여 워크시트에 자동 필터 조건 표시하기

여기에서는 재미있는 VBA 코드에 대해 이야기하겠습니다. 이 코드는 필터 조건을 통합 문서의 특정 셀에 표시하는 데 도움이 될 수 있습니다.

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

2. 삽입 > 모듈을 클릭하고, 모듈 창에 다음 매크로를 붙여넣습니다.

VBA 코드: 워크시트에 자동 필터 조건 표시하기

Sub ShowAutoFilterCriteria()
'Updateby20140219
Dim xFilter As AutoFilter
Dim TargetFilter As Filter
Dim TargetField As String
Dim xOut As String
Dim OutRng As Range
If ActiveSheet.AutoFilterMode = False Then
    Application.StatusBar = False
    Exit Sub
End If
xTitleId = "KutoolsforExcel"
Set OutRng = Application.Selection
Set OutRng = Application.InputBox("Cell", xTitleId, OutRng.Address, Type:=8)
Set xFilter = ActiveSheet.AutoFilter
For i = 1 To xFilter.Filters.Count
   TargetField = xFilter.Range.Cells(1, i).Value
   Set TargetFilter = xFilter.Filters(i)
   If TargetFilter.On Then
        On Error GoTo OutNext
        xOut = xOut & TargetField & TargetFilter.Criteria1
        Select Case TargetFilter.Operator
            Case xlAnd
            xOut = xOut & " And " & TargetField & TargetFilter.Criteria2
            Case xlOr
            xOut = xOut & " Or " & TargetField & TargetFilter.Criteria2
            Case xlBottom10Items
            xOut = xOut & " (bottom 10 items)"
            Case xlBottom10Percent
            xOut = xOut & " (bottom 10%)"
            Case xlTop10Items
            xOut = xOut & " (top 10 items)"
            Case xlTop10Percent
            xOut = xOut & " (top 10%)"
        End Select
    End If
Next
OutRng.Value = xOut
OutNext:
xOut = xOut & TargetField & "= Multiple Filters"
ErrorHandler:
Resume Next
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면, 기준을 넣을 빈 셀을 선택하라는 메시지 상자가 나타납니다. 스크린샷을 참조하세요:

4. 확인을 클릭하면, 모든 기준이 다음과 같이 선택된 셀에 표시됩니다:

참고:

이 VBA 코드를 사용할 경우, 한 열에 두 개 이상의 기준이 있는 경우 세부 필터 기준이 아닌 다음과 같이 표시됩니다:

Kutools for Excel을 사용하여 워크시트에 자동 필터 조건 표시하기

Kutools for Excel이 설치되어 있다면, 데이터를 필터링하기 위해 슈퍼 필터 기능을 적용할 수 있으며 동시에 언제든지 필터 기준을 볼 수 있습니다.

1. 클릭하세요 Kutools Plus > 슈퍼 필터 함수를 표시합니다. 스크린샷을 참조하세요: 슈퍼 필터 기능. 스크린샷을 참조하세요:

2. 슈퍼 필터 창에서,  필터링하려는 데이터 범위를 선택한 다음 Specified 체크박스를 선택하여 필터 범위를 고정합니다. 스크린샷을 참조하세요:

3. 슈퍼 필터 창에서 필터 그룹의 줄을 클릭한 다음 필요에 따라 드롭다운 목록에서 필터 기준을 지정하고 확인을 클릭하여 기준 설정을 완료합니다. 스크린샷을 참조하세요:

4. 클릭하세요 필터, 선택된 데이터가 기준에 따라 필터링되고 동시에 필터 기준이 슈퍼 필터 창에 표시됩니다. 스크린샷을 참조하세요:

참고: 슈퍼 필터 유틸리티를 사용하여 필터 기준을 시나리오로 저장하여 다음에 사용할 수 있습니다.

1. 현재 필터 설정 저장 버튼을 클릭하고, 나타나는 대화상자에 필터 이름을 입력합니다.

2. 다음 번에 이 필터 설정을 사용하려면 메뉴 버튼을 클릭한 다음 저장된 필터 설정 시나리오 열기.

데모: Kutools for Excel을 사용하여 필터링하면서 필터 기준 표시하기