Microsoft Excelには、表示したい情報のみを含めるように大きなデータテーブルをフィルタリングするのに役立ついくつかの優れたツールが含まれています。事実上、フィルターを使用すると、必要なものが得られるまでデータを「スライスアンドダイス」することができます。

フィルタリングされたデータを印刷するときは、元のデータに対してどのようなスライスとダイシングが行われたかを知りたい場合があります。フィルタリング基準を表示するには、いくつかの方法があります。簡単な方法の1つは、Excelの高度なフィルタリング機能を使用することです。これには、データ用の小さな基準テーブルを設定する必要があります。基準テーブルが印刷物の一部になっている場合は、フィルタリング基準を非常に簡単に確認できます。

AutoFilterを使用する場合は、別のアプローチを使用する必要があります。そのようなアプローチの1つは、JohnWalkenbachのサイトで詳しく説明されています。

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

このソリューションは、ユーザー定義関数を使用して、現在の列で使用されているフィルタリング基準を返します。この関数をその列のセルで使用して、基準を表示できます。高度なフィルタリングを使用している場合、マクロアプローチはもう少し複雑です。次のマクロ(リストには2つあります)は、どの高度な基準が機能しているかを調べ、ヘッダーの左側に基準を配置します。

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_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント(11649)は、Microsoft Excel 2007、2010、2013、および2016に適用されます。

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります:

link:/ excel-Showing_Filter_Criteria_on_a_Printout [印刷物にフィルター基準を表示する]