こんばんは。いつも勉強させていただいています。
使用環境:EXCEL2007 OS:VISTA
A1は部署名を選択するために、
【データ】→【入力規則】→【設定】→【リスト】
→Sheet2に【名前の定義】で設定した「部署名」を
選択しています。
A3からD20までの範囲に、表があります。
A3 社員番号 B3 氏名 C3 交通費 D3 部署名
(フィルタを設定しています。)
今回ご相談したいのは、A1セルで選んだ「部署名」で
D列のセルのフィルタを絞り込む方法です。
例を挙げますと、A1で「人事部」を選択したら、
D列で 人事部のみ をフィルタで選択。
また、A1で「営業部」を選択したら、
D列で 営業部のみ をフィルタで選択。
どなたかお知恵をお貸し下さい。
よろしくお願いいたします。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
Excel関数、何がいけないのかわ...
-
教えて下さい!関数SUBTOTALとC...
-
エクセルで、桁数の異なるデー...
-
エクセルのフィルタをかけると...
-
オートフィルタで抽出したデー...
-
Excelのセルのデータ:年...
-
エクセルの計算表の下向き三角...
-
エクセルでのオートフィルタオ...
-
Illustratorでフィルタが表示さ...
-
エクセルについて。 ソートで絞...
-
オートフィルタの使用にチェッ...
-
【EXCEL】非表示にしてある行を...
-
Excel VBAでフィルタしたものに...
-
=SUBTOTAL に =COUNTIF の機能...
-
行番号の文字の色が青色の理由?
-
Excel VBAでオートフィルタで抽...
-
エクセル関数
-
エクセル:色の付いたデータを...
-
色フィルターをかけた状態で、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルオートフィルタで余計...
-
エクセルで、桁数の異なるデー...
-
教えて下さい!関数SUBTOTALとC...
-
色フィルターをかけた状態で、...
-
Excel関数、何がいけないのかわ...
-
オートフィルタで抽出したデー...
-
Excel VBAでフィルタしたものに...
-
エクセルの計算表の下向き三角...
-
エクセルのフィルタをかけると...
-
行番号の文字の色が青色の理由?
-
エクセルを使用してデジタルフ...
-
excelで奇数の行のみ削除したい
-
5の倍数の日付だけを抽出したい
-
エクセルでのオートフィルタオ...
-
色のついたセルにフラグを立た...
-
エクセル:色の付いたデータを...
-
【Excel】 可視セルへの貼り付...
-
=SUBTOTAL に =COUNTIF の機能...
-
Excelでオートフィルタ時に交互...
-
関数で可視セルのデータ個数カ...
おすすめ情報