No.2ベストアンサー
- 回答日時:
標題の「オートフィルターで指定した値」とは、「オートフィルタによる絞り込みの条件とした値」という意味でよろしいでしょうか?
A 列に数値データがあり、それを 1 種類の値のみに絞り込むという場合、次式によりその値を取得できます。この数式は、平均値を求めています。したがって A 列に複数の種類の値が表示されている状態では、小数などを返します。
=subtotal(1,a:a)
文字列などの数値でない値であっても取得するには、マクロを使います。オートフィルタがあるシートのシートタブを右クリック、「コードの表示」から表示されるコードウィンドウに次のコードを貼り付け。
絞り込んだ瞬間ではなく、その次にカーソルを動かした瞬間に、E1 セルに絞り込み条件となっている値を記入します。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Me
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then Range("e1").Value = Replace(.Criteria1, "=", "")
End With
End If
End With
End Sub
ご回答ありがとうございます。
>「オートフィルタによる絞り込みの条件とした値」という意味でよろしいでしょうか?
記載して頂いた通りの意味です。言葉があいまいで申し訳ありません。
教えて頂いたSUBTOTAL関数の方でうまくいきました!
ただ、VBAの方も試したのですがうまく動きませんでした。
オートフィルタの絞り込みの値を変更後、別のセルにフォーカスを移動させたのですが、数値が表示されませんでした。。。
No.3
- 回答日時:
C列をオートフィルタした場合、その絞り込み項目は以下の数式で表示できます。
=INDEX(C:C,MAX(INDEX((SUBTOTAL(3,INDIRECT("C"&ROW($C$2:$C$100)))*ROW($C$2:$C$100)),)))
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルで指定範囲にある名前と重複した場合に入力できないようにしたい 1 2023/07/13 09:58
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 3 2022/06/10 09:24
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- Excel(エクセル) エクセルの数式で教えてください。 1 2023/02/28 08:59
- Excel(エクセル) [オートフィルター]機能について 3 2023/02/04 14:32
- 一眼レフカメラ α6400でISOをオートにした設定をロックすることはできますか?Av設定でF値を8にロックできる? 3 2023/08/04 23:26
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 13:13
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Visual Basic(VBA) Excelのマクロについて教えてください。 3 2022/06/30 09:36
- WordPress(ワードプレス) 投稿した文書の編集ができません。 1 2022/04/23 23:15
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excelのフィルタをかけた項目を別のセルに表示したい
Excel(エクセル)
-
オートフィルタで選択した項目を別セルにて反映 [EXCEL]
Excel(エクセル)
-
Excel オートフィルタのリストを取得したい
Excel(エクセル)
-
-
4
オートフィルタの検索値を、所定のセルから参照(複数条件/部分一致)
Excel(エクセル)
-
5
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
6
EXCELで特定のセルに表示された項目をヘッダーやフッターに出力するには
Excel(エクセル)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
エクセルVBAでオートフィルター最上行を取得するには
Excel(エクセル)
-
9
excelオートフィルタの検索条件をセルに入力したい
Excel(エクセル)
-
10
UserForm1.Showでエラーになります。
工学
-
11
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
12
マクロ オートフィルタの検索値を所定のセルから参照
Excel(エクセル)
-
13
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
16
VBAでCSVファイルが使用中かどうかの確認
Visual Basic(VBA)
-
17
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
18
EXCELのVBA-フィルタ抽出後のセル選択方法
Visual Basic(VBA)
-
19
VBA データ(特定値)のある最終行を取得したい
Excel(エクセル)
-
20
エクセルVBA 配列からセルに「関数式」を一気代入したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
時間によってファイル名が変わ...
-
Excelで、決まった行を繰り返し...
-
Excel 2019 のピボットテーブル...
-
WPS OFFICEでの縦書きについて
-
【マクロ】ファイル名の変更に...
-
Aというブックの1というシート...
-
VBA Private Sub Worksheet_Cha...
-
エクセルで 例えば 伊藤と名前...
-
excelの不要な行の削除ができな...
-
Excelでの時間帯の入力
-
行数が不規則な一週間ごとの合...
-
ある列、或いは、ある行のセル...
-
【マクロ】フォルダからエクセ...
-
文字列になっている時間をVBAで...
-
シートAで横に並んだ項目→シー...
-
Excel2013のF6キー操作について
-
マクロの有効化するダイヤログ...
-
エクセルの順位別一覧表の自動...
-
Excel:一部のフォントでセルの...
-
エクセルの条件付き書式につい...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 のピボットテーブル...
-
[関数得意な方]教えて下さい・...
-
Excelにてある膨大なデータを管...
-
[関数について]わかる方教えて...
-
Excel初心者です。 詳しい方、...
-
excelの不要な行の削除ができな...
-
エクセル関数に詳しい方教えて...
-
INDIRECTを使わず excelで複数...
-
[オートフィルタ]で抽出された...
-
エクセルの神よ、ご回答を! エ...
-
エクセル関数に詳しい方、教え...
-
各ページの1番上の表示について
-
Excelで写真のような表を作った...
-
エクセルで不等号記号(≠)が上に...
-
数学 Tan(θ)-1/Cos(θ)について...
-
Excel 2019 は、SPILL機能があ...
-
Excelで全角を半角にしたいので...
-
条件付き書式を教えてください
-
Excel フィルターを掛けた状態...
-
[オートフィルタ]の適用範囲の...
おすすめ情報