Microsoft Excel에는 표시하려는 정보 만 포함하도록 큰 데이터 테이블을 필터링하는 데 도움이되는 몇 가지 훌륭한 도구가 포함되어 있습니다. 실제로 필터를 사용하면 원하는 데이터를 얻을 때까지 데이터를 “분할”할 수 있습니다.

필터링 된 데이터를 인쇄 할 때 원본 데이터에 대해 어떤 슬라이싱 및 다이 싱이 수행되었는지 알고 싶을 수 있습니다. 필터링 기준을 표시하는 방법에는 여러 가지가 있습니다. 한 가지 간단한 방법은 Excel의 고급 필터링 기능을 사용하는 것입니다.이 기능을 사용하려면 데이터에 대한 작은 기준 테이블을 설정해야합니다. 기준 테이블이 인쇄 항목의 일부로 구성되어 있으면 필터링 기준을 매우 쉽게 볼 수 있습니다.

자동 필터를 사용하는 경우 다른 접근 방식을 사용해야합니다. 이러한 접근 방식 중 하나는 John Walkenbach의 사이트에 자세히 설명되어 있습니다.

http://j-walk.com/ss/excel/usertips/tip044.htm

이 솔루션은 사용자 정의 함수를 사용하여 현재 열에서 사용중인 모든 필터링 기준을 반환합니다. 함수는 기준을 표시하기 위해 해당 열의 셀에서 사용할 수 있습니다. 고급 필터링을 사용하는 경우 매크로 접근 방식이 조금 더 복잡합니다. 다음 매크로 (목록에 두 개가 있음)는 어떤 고급 기준이 적용되는지 검사 한 다음 헤더의 왼쪽 부분에 기준을 배치합니다.

Sub AddFilterCriteria()

Dim strCriteria As String

strCriteria = FilterCriteria()

If strCriteria = "" Then         strCriteria = "No Filtering Criteria"

Else         strCriteria = "Filter Criteria:" & Chr(10) & strCriteria     End If

'   add Criteria string to Header/Footer     With ActiveSheet.PageSetup         .LeftHeader = strCriteria     End With End Sub

Function FilterCriteria() As String     Dim rngCriteria As Range, col As Range, cel As Range     Dim strCriteria As String, r As Integer, c As Integer     Const strCriteriaRange As String = "Criteria"



FilterCriteria = ""



On Error Resume Next     'Set Criteria-Range reference     Set rngCriteria = Range(strCriteriaRange)

If Err <> 0 Then Exit Function     On Error GoTo 0

'   Create Criteria String     c = 0     For Each col In rngCriteria.Columns         c = c + 1     ' CriteriaRange Columns         r = 1         ' CriteriaRange Rows         For Each cel In col.Cells             If r = 1 Then                 strCriteria = strCriteria & "Criteria" _                   & c & " (" & cel.Value & ") = "

Else                 strCriteria = strCriteria & "'" & cel.Value & "'"

If IsEmpty(cel.Offset(1, 0)) Then                     'Add New row Char if not Last Criteria Column                     If c < rngCriteria.Columns.Count Then                         strCriteria = strCriteria & Chr(10)

End If                     Exit For                 End If                 strCriteria = strCriteria & "  "

End If             r = r + 1         Next cel    ' next criteria row     Next col        ' next criteria column

FilterCriteria = strCriteria End Function

매크로를 사용하려면 고급 필터링을 설정 한 후 AddFilterCriteria 매크로를 실행하면됩니다. 매크로는 기준 테이블을 읽고 기준을 왼쪽 헤더에 배치되는 문자열에 결합합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (3248)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Showing_Filter_Criteria_on_a_Printout [인쇄물에 필터 기준 표시].