メインコンテンツへスキップ

Excelで自動フィルター基準を表示/表示する方法は?

自動フィルターはExcelユーザーにとって便利な機能です。自動フィルターを適用して、複数の基準でデータをフィルター処理し、ファイルを他のユーザーに送信する場合があります。 この状況で、他のユーザーがフィルタリングされた基準を知りたい場合、どのようにすればよいでしょうか。

ユーザー定義関数を使用してワークシートに自動フィルター基準を表示/表示

VBAコードを使用してワークシートに自動フィルター基準を表示/表示

Kutools forExcelを使用してワークシートに自動フィルター基準を表示/表示 良いアイデア3


ユーザー定義関数を使用してワークシートに自動フィルター基準を表示/表示

何らかの基準でフィルタリングされた次のデータがあるとすると、スクリーンショットを参照してください。

doc-show-filter-criteria1

これで、フィルター基準をセルに表示するユーザー定義関数を作成できます。次の手順で実行してください。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ:

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 フィルタリングされたデータのヘッダーセルです)、スクリーンショットを参照してください:

doc-show-filter-criteria1

4。 次に、 入力します キーを押してセルA1を選択し、塗りつぶしハンドルをこの数式を含める必要のある右側のセルにドラッグすると、すべての基準がセルに表示されます。スクリーンショットを参照してください。

doc-show-filter-criteria1

Note:列にXNUMXつ以上の基準がある場合、このユーザー定義関数は正しい結果を提供しません。


VBAコードを使用してワークシートに自動フィルター基準を表示/表示

ここでは、興味深いVBAコードについても説明できます。これは、ブックのセルにフィルター基準を表示するのに役立ちます。

1。 を押し続けます Alt + F11 キーを押して Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のマクロをに貼り付けます モジュールウィンドウ:

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 このコードを実行するためのキーを押すと、プロンプトボックスが表示され、基準を設定するための空白のセルを選択できます。スクリーンショットを参照してください。

doc-show-filter-criteria1

4。 そして、 OK、すべての基準が選択したセルに次のように表示されています。

doc-show-filter-criteria1

注:

このVBAコードでは、基準がXNUMX列にXNUMXつ以上ある場合、詳細なフィルター基準は表示されませんが、次のように表示されます。

doc-show-filter-criteria1


Kutools forExcelを使用してワークシートに自動フィルター基準を表示/表示

あなたが持っている場合 Kutools for Excel インストールすると、適用できます スーパーフィルター データをフィルタリングする機能と同時に、いつでもフィルタ基準を表示できます。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

後の 無料インストール Kutools for Excel、以下のようにしてください:

1。 クリック クツールズプラス > スーパーフィルター を表示する スーパーフィルター 関数。 スクリーンショットを参照してください:
docスーパーフィルター1

2。 の中に スーパーフィルター ペインをクリック ドキュメント選択ボタン フィルタリングするデータ範囲を選択するには、[指定]チェックボックスをオンにしてフィルター範囲を修正します。 スクリーンショットを参照してください:
docスーパーフィルター2

3。 の中に スーパーフィルター ペインで、フィルターグループの行をクリックし、必要に応じてドロップダウンリストでフィルター基準を指定し、[OK]をクリックして基準の設定を終了します。 スクリーンショットを参照してください:
docスーパーフィルター2

4。 クリック フィルタ、および選択したデータは基準によってフィルタリングされています。その間、フィルタ基準が表示されます。 スーパーフィルター ペイン。 スクリーンショットを参照してください:
docスーパーフィルター3

注:次にスーパーフィルターユーティリティで使用するためのシナリオとして、フィルター基準を保存できます。

1.をクリックします 現在のフィルター設定を保存する ボタンのポップダイアログで、フィルター名を入力します。
dockutoolsスーパーフィルター5

2.次回このファイラー設定を使用する場合は、メニューボタンをクリックし、のサブメニューでシナリオを選択します。 保存されたフィルター設定シナリオを開く.
dockutoolsスーパーフィルター6


最高のオフィス生産性向上ツール

人気の機能: 重複を検索、強調表示、または識別する   |  空白行を削除する   |  データを失わずに列またはセルを結合する   |   数式なしのラウンド ...
スーパールックアップ: 複数の基準の VLookup    複数の値の VLookup  |   複数のシートにわたる VLookup   |   ファジールックアップ ....
詳細ドロップダウン リスト: ドロップダウンリストを素早く作成する   |  依存関係のドロップダウン リスト   |  複数選択のドロップダウンリスト ....
列マネージャー: 特定の数の列を追加する  |  列の移動  |  Toggle 非表示列の表示ステータス  |  範囲と列の比較 ...
注目の機能: グリッドフォーカス   |  デザインビュー   |   ビッグフォーミュラバー    ワークブックとシートマネージャー   |  リソースライブラリ (自動テキスト)   |  日付ピッカー   |  ワークシートを組み合わせる   |  セルの暗号化/復号化    リストごとにメールを送信する   |  スーパーフィルター   |   特殊フィルター (太字/斜体/取り消し線をフィルター...) ...
上位 15 のツールセット12 テキスト 工具 (テキストを追加, 文字を削除する、...)   |   50+ チャート 種類 (ガントチャート、...)   |   40+ 実用的 (誕生日に基づいて年齢を計算する、...)   |   19 挿入 工具 (QRコードを挿入, パスから画像を挿入、...)   |   12 変換 工具 (数字から言葉へ, 通貨の換算、...)   |   7 マージ&スプリット 工具 (高度な結合行, 分割セル、...)   |   ... もっと

Kutools for Excel で Excel スキルを強化し、これまでにない効率を体験してください。 Kutools for Excelは、生産性を向上させ、時間を節約するための300以上の高度な機能を提供します。  最も必要な機能を入手するにはここをクリックしてください...

kteタブ201905


Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear Sir, Please see here below mentioned query for your easy understanding. I want to see the result in column E7 when i filter data in column A3 (Column E7) Vendor Name: (column A3) Vendor Name Abdul Aziz Fahad Al Hajri Est Ali-Ahmed-Al-Kanfari Gen. Co. Est. Amtar Al-Watan Const. & Dev. Est. Arab Al-Tamuz for Cont. Est. Arkal Est. for Cont. Danat Al-Rayan Gray Falcon
This comment was minimized by the moderator on the site
Hi, The code for show auto filter criteria in the worksheet works great. As suggested, if there are more than two criteria, I output text saying 'multiple criteria'. However, I'd really like to be able to generate a list of what the multiple criteria are. Is this at all possible? Cheers, Alex
This comment was minimized by the moderator on the site
hi there, thank you for the code, it works like a charm. One thing I have trouble with thouhg - when I select filter criteria the designated cell displays whichever two I had selected. If then I select two different criteria the designated cell content doesn't refresh. It seems stuck at my first filter selection. Is there anythig I can do? Thank you, Wendy
This comment was minimized by the moderator on the site
This code is great and has helped me a lot. I ran into a problem when I tried to select new filter criteria. The cell that displays the filter criteria selected doesnt refresh when I am selecting new criteria. Please help, Thank you, Wendy
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations