Excel에서 자동 필터 기준을 표시 / 표시하는 방법은 무엇입니까?

자동 필터는 Excel 사용자에게 유용한 기능이며, 때로는 자동 필터를 적용하여 여러 기준으로 데이터를 필터링하고 파일을 다른 사람에게 보냅니다. 이 상황에서 다른 사용자가 필터링 된 기준을 알고 싶다면 어떻게 할 수 있습니까?

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

VBA 코드로 워크 시트에 자동 필터 기준 표시 / 표시

Excel 용 Kutools를 사용하여 워크 시트에 자동 필터 기준 표시 / 표시

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

몇 가지 기준으로 필터링 된 다음 데이터가 있다고 가정하면 스크린 샷을 참조하십시오.

이제 사용자 정의 함수를 만들어 필터 기준을 셀에 표시 할 수 있습니다. 다음 단계를 수행하십시오.

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. 그런 다음 엔터 버튼 키를 누른 다음 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. 그런 다음 OK, 모든 기준이 다음과 같이 선택한 셀에 표시되었습니다.

참고 :

이 VBA 코드를 사용하면 기준이 열에 두 개 이상이면 자세한 필터 기준이 표시되지 않고 다음과 같이 표시됩니다.

Excel 용 Kutools를 사용하여 워크 시트에 자동 필터 기준 표시 / 표시

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

1. 클릭 쿠툴즈 플러스 > 슈퍼 필터 를 표시하려면 슈퍼 필터 함수. 스크린 샷보기 :

2. 에서 슈퍼 필터 창에서  필터링 할 데이터 범위를 선택한 다음 지정된 확인란을 선택하여 필터 범위를 수정합니다. 스크린 샷보기 :

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

4. 클릭 필터, 선택한 데이터가 기준에 의해 필터링되었으며 그 동안에는 필터 기준이 표시되는 것을 볼 수 있습니다. 슈퍼 필터 창유리. 스크린 샷보기 :

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

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

2. 다음에이 파일러 설정을 사용하려면 메뉴 버튼을 클릭 한 다음의 하위 메뉴에서 시나리오를 선택합니다. 저장된 필터 설정 시나리오 열기.

데모: Kutools for Excel을 사용하여 필터링하는 동안 필터 기준 표시