ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
LPI ID 登録
x

or

Excelで自動フィルタ条件を表示/表示する方法は?

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

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

VBAコードを含むワークシートに自動フィルタ条件を表示/表示する

Excel用Kutoolsを使用してワークシートに自動フィルタ条件を表示/表示する 良いアイデア3


高度な並べ替え - - 姓別(テキストの長さによる並べ替え、姓による並べ替え、絶対値による並べ替えなどの条件に基づいてデータを並べ替える)

doc高度なソートの姓
OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 企業または組織に簡単に展開できます。

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


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

doc-show-filter-criteria1

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

1。 押さえつける Alt + F11 キーを押して Microsoft Visual Basic for Applicationsウィンドウ.

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

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


VBAコードを含むワークシートに自動フィルタ条件を表示/表示する

ここでは、面白いVBAコードについても説明します。ブックマークのセルにフィルタ条件を表示するのに役立ちます。

1。 押さえつける Alt + F11 キーを押して Microsoft Visual Basic for Applicationsウィンドウ.

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コードでは、1つの基準に2つ以上の基準がある場合、詳細なフィルタ基準は表示されず、次のように表示されます。

doc-show-filter-criteria1


Excel用Kutoolsを使用してワークシートに自動フィルタ条件を表示/表示する

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

Kutools for Excel, 以上で 120 便利なExcel機能、作業効率の向上、作業時間の節約に役立ちます。

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

1。 クリック 大口プラン > スーパーフィルター を表示する スーパーフィルター 関数。 スクリーンショットを見る:
docスーパーフィルター1

2。 の中に スーパーフィルター ペインをクリック doc selectボタン をクリックしてフィルタリングするデータ範囲を選択し、ペインでフィルタ条件を指定します。 スクリーンショットを見る:
docスーパーフィルター2

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



注意を払うXXXこのアドインに興味がある場合は、 60日の無料試用版をダウンロード.

Kutools for Excelは、ほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の30日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Hussain · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    AlexM · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Wendy · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Wendy · 4 years ago
    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