• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:あるセルで選択した文字で、フィルタを絞り込む方法)

あるセルで選択した文字で、フィルタを絞り込む方法

このQ&Aのポイント
  • セルで選択した文字で、フィルタを絞り込む方法について教えてください。
  • Excel2007でのフィルタ設定方法について詳しく説明してください。
  • 部署名を選択してD列のフィルタを絞り込む方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは! VBAになってしまいますが・・・ 一例です。 画面左下にある操作したいSheet見出し上で右クリック → コードの表示 → VBE画面が出ますので ↓のコードをコピー&ペーストして、A1セルのリスト表示を色々変更してみてください。 Private Sub Worksheet_Change(ByVal Target As Range) 'この行から If Target = Range("A1") Then Range("A3:D20").AutoFilter field:=4, Criteria1:=Range("A1") End If End Sub 'この行まで 尚、オートフィルタを解除する場合は通常通り メニュー からフィルタの解除を行ってください。 参考になれば良いのですが・・・m(__)m

noname#150782
質問者

お礼

ご教示いただいた方法でうまくできました。 ご回答いただき、ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • フィルタで選択した文字を、あるセルに表示する方法

    こんにちは。いつも勉強させていただいています。 使用環境:EXCEL2007  OS:VISTA A3からD20までの範囲に、表があります。 A3 社員番号  B3 氏名  C3 交通費  D3 部署名 (フィルタを設定しています。) 今回ご相談したいのは、D列で選んだ「部署名」を A1セルに表示する方法です。 例を挙げますと、D列で「人事部」をフィルタで選択したら、 A1には 人事部 と表示。 また、D列で「営業部」をフィルタで選択したら、 A1には 営業部 と表示。 どなたかお知恵をお貸し下さい。 よろしくお願いいたします。

  • オートフィルタのかかった行のセルを、選択するコードは?

    Excelです。 例えば、下記の、 任意にてオートフィルタをかけた行の 「C列のセル1つ」 を選択するコードは? 誤 AutoFilter Columns(3).Select AutoFilter Field:=3.Select よろしくお願い致します。 -----  A B C D E F G H 1 ・ ・ ・▼▼▼▼▼▼▼▼ ・ 50 ・

  • オートフィルターによって、抽出したセルにだけペーストしたい。

    例えば、 5行ごとの世帯表があります。 A列には氏名が入力されています。 2人世帯は2行しか使いませんので、下3行は何も入力されていない行です。 つまり、10世帯分で100行あり、その中に合計38名分の氏名が入力されています。 列を挿入して、B列に新しい列を作りました。 この列に、別シートの同じ世帯員の生年月日が入力された列(ブランクの無い38行の38個のセル)を貼り付ける場合、どのように貼り付けるのでしょうか。 オートフィルターで、A列の空白セルを除いてから貼り付けたら、オートフィルター解除後、空白セルにも貼り付いてしまったので、ずれてしまいました。 オートフィルターで、省いた(隠した)セルに貼り付かないように貼り付けるにはどうすればいいのでしょうか。

  • VBA 表の1つ下のセルを選択する

    EXCEL2003のVBAを使っています。 オートフィルタで抽出させた表があります。 入力されているセルの、1つ下のセルを選択するにはどうしたら良いでしょうか。     A 1  あああ  2  あああ  5  あああ  1行目から19行目までの列の中で、"あああ"だけをオートフィルタで抽出している 10  あああ  14  あああ   16  あああ  20   ※ ←ここを選択したい。 Range("A65536").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select これだとA17のセルが選択されてしまいます。 表全体の1つ下のセルを選択する方法はあるでしょうか?

  • フィルタを解除してA1セルを選択<マクロ>

    EXCEL2002を使用しています。 以下のようなマクロで、フィルタを解除してA1のセルを選択するようにしたいと思いました。 Sub Macro1() ActiveSheet.ShowAllData Range("A1").Select End Sub フィルタがかかっている状態で実行すれば問題ないのですが、かかっていない状態で実行するとエラーになっていまいます。 フィルタがかかっていない状態の場合は単にA1を選択するようにしたいのですが、どのようにしたらよいでしょうか? よろしくお願いします。

  • エクセル オートフィルタで選択したセルと同じ内容を表示させたい

    エクセルで表を作成しています。 H列に担当者を入力してあって、その担当者ごとにプリントアウトします。 その時にB2のセルにオートフィルタで選択した担当者名を表示させてプリントアウトしたいのです。(H列は印刷範囲から外します) =H3 の数式だとフィルタでH5のセルの担当者を選択しても、H3の担当者のままです。 フィルタで担当者を変えていくごとにB2のセルに担当者名が表示されるようにはできますでしょうか? ご教授お願いします。

  • マクロ:フィルタの選択について

    例 A列に野菜の種別(大根やトマトなど)が入力されており B列に県名が入力されています。c列以降もあり。 フィルタでA列の野菜名を選択し、抽出された結果を別シートに 貼るという野菜別のシートを作る単純な作業の繰り返しを マクロで設定したいのですが マクロの記録で行うと、フィルタで野菜名を選択する時に Selection.AutoFilter Field:=4, Criteria1:="大根" というように、名前が入力されています。 フィルタの選択を上から下に4つ目、5つ目という感じで 下に選択していくマクロを教えて頂ければと思います。 また他に良い方法がありましたら、アドバイス宜しくお願い致します。

  • エクセル フィルタ

    エクセルのフィルタについて質問があります A列に 氏名と(役あり)と入力しました B列からE列にもそれぞれ クラス名や 番号など入力してあります ここで A列の→役あり←だけ 含まない 行だけ抽出したいのですが まず A1   小林 役あり      A2   関本       A3   小林     A4   田中 役あり     A5   廣橋  こんな 感じで作成してしまいました A1セルに カーソルをおき フィルタのボタンを押下した所     A1セル 小林 役ありと入力したセルに プルダウンマークが     でました C1 D1 E1セルにもでました ここで A1セルのプルダウンボタンを押下しました すべて選択を押下し テキストフィルタの指定の値を含まないを選択 オートフィルタオプション画面が出てきました 抽出条件の指定とあって そのすぐ下に こばやし3組と成っていて そのすぐ下に こばやし 役あり  指定の値を含まない と入力して OKをおしましたが 他の3組は抽出されたのですが A1セル小林(役あり)だけは 抽出されずに 表にのこってしまいます この一番上の セルも抽出するには どうしたらよいでしょうか? 2002では データ→オートフィルタとするとうまくいっていたように記憶 しているのですが・・・ 何故一番上の行だけ 抽出に科kらないのか 何方かお知恵をお貸しください 宜しくお願い致します OSはVISTA ヴァージョンは2007です         

  • フィルタしたセルのコピーをフィルタしたセルに貼付

    質問番号:2467654で似たようなことを希望した方がいて、 【フィルタしたセルをコピーし、別シートのフィルタしたセルに貼り付けたいのですが、 別シートに貼り付けた時見えなくなっているセルにもコピーデータが張り付いてしまいます。】 という質問に対してベストアンサーが 【Ctrlキーを使用すれば、できますよ。 (例) Aシートのコピーしたい部分を選択し、Ctrl+右クリックショートカットからコピーをクリックします。 Bシートの貼り付けたい部分にカーソルを持っていき、Ctrl+貼付…】 となっていて「できました」!といわれているのですができません。 これ本当にできますか? 違う部分も取り込んでしまうのですが… フィルタをかけているのが他の列だとできないのでしょうか。 (例) A B C ←列 あ 1 イ い 2 ロ う 3 ハ え 4 ニ お 5 ホ の場合に、フィルタで あ うの行を選んで 1 3 を D列にペーストし、 あ1イ1 や う3ハ3 をつくりたい場合に あ1イ1は良いですが、い2ロ3 ができてしまうのです。 ちなみに以下のような回答もありましたが、これも「フィルタしたセルに貼り付け」はできませんでした。。 バージョンはエクセル2003です。 可視セルを選択してから、「コピー」→「貼り付け」を行うと、可視セルだけが貼り付けされます。 以下は、その手順です。 1) コピーするセル範囲を選択します。 2) 「編集」→「ジャンプ」→「セル選択」をクリックします。 3) 表示される画面で、「可視セル」にチェックを入れ「OK」を押します。可視セルだけが選択されます。 4) その後、コピーから貼り付けで、可視セルだけが貼り付けされます。 http://office.microsoft.com/ja-jp/assistance/HP052014731041.aspx セルの選択コマンドから操作する方法もあります。 http://www.h3.dion.ne.jp/~fukusima/waza/ura124.html 参考URL:http://office.microsoft.com/ja-jp/assistance/HP052014731041.aspx,http://www.h3.dion.ne.jp/~fukusima/waza/ura124.html

  • Excel 選択していないセルも塗りつぶされる

    Excel2010を使用しています。 フィルターをつけて、特定の文字を選択して絞り込んだ後、選択したセルだけ塗りつぶしを行うと、 選択したセルだけ塗りつぶされる時と、選択していないセル(選択したセルとセルの間)も塗りつぶされる時があります。 選択していないセルは塗りつぶしをさせたくないのですが、 都度、可視セルにチェックを入れない方法はないでしょうか。 塗りつぶしされないのが通常なので、どこかの設定だと思い探しています。 わかりにくい説明になりましたが、回答いただけますと大変助かります。 よろしくお願いいたします。

専門家に質問してみよう