エクセルでドロップダウンリストとオートフィルタ連動

質問

お世話になります。
当方、初めてエクセルのVBAを扱います。
エクセルのバージョンは2010を使用しています。

商品群が多く、コンボボックスもしくは入力規則のドロップダウンリストを
使用して規格と商品種類1－商品種類3を選択しオートフィルターを掛けて
必要な情報を抜き出したいと考えています。

No,　物質名　規格1・・・規格10　商品名1-1・・・商品名1-50　商品名2-1・・・商品2-50・・　
1　　　鉄　　　　1　　　　　　　　　　　　　　1　　
2　　　鉛　　　　　　　　　1　　　　　　　　　　　　　　　　　1
3　　　銅
4　　アルミ　　　1　　　　　　　　　　　　　　1
・　　　・
・　　　・
・　　　・

このような表が有ります。
物質名と規格または商品が一致する場所に「1」を掛けています。

また、シートは
入力シート⇒上記表が有る場所
作業シート⇒データ処理上必要な作業をする場所
　　　　　　　※コンボボックスの選択肢を作るうえで入力シートの横並びの状態では難しかったので
　　　　　　　　縦並びに該当データをリンクして並べました。
検索シート⇒検索結果を表示する場所
の3つを製作済みです。

現在、コンボボックスを使い、
　コンボボックス1⇒商品種類(商品種類1～3を選択し、コンボボックス2に連動)
　コンボボックス2⇒商品名
　コンボボックス3⇒規格群

　ここまで準備はできており、

VBAで　
Sub 検索()

Application.ScreenUpdating = False

'入力シートのオートフィルター表示
Worksheets("入力シート").Range("$A$1:$FM$1").AutoFilter field:=1

'検索シート「商品名」及び「規格」の設定内容でオートフィルターソート

'検索シートに検索結果をコピー
Sheets("入力シート").Range("$A$1").CurrentRegion.Copy Sheets("検索シート").Range("$B$8")

'入力シートのオートフィルター解除
Worksheets("入力シート").AutoFilterMode = False

まで作成しましたが、商品群と規格群のコンボボックスとオートフィルタの連動がどうやっても解かりません。

どなたか、ご指導して頂けないでしょうか。
よろしくお願いいたします。

回答No.1

imogasi · ベストアンサー

エクセルＶＢＡを初めて扱うとのことだが、そういうレベルでは無理な課題だろう。
それに仕事の関連をそんな初心者がやってよいものか?
もう少しＶＢＡ（特にコントロールとフォーム）の勉強と経験を積んで、のち取り組んだらどうですか。
ＶＢＡでも、コントロールを使う部分は、中・上級に当たると思う。ＶＢＡの本でも、詳しい解説は、コントロールの種類が多いこともあって、VBA本体の解説と別冊になっている例が多い。
数冊（数社）ながら、エクセルＶＢＡのコントロールの（独立１冊の）解説書も出ているが、最近ブームも去って大型書店でないと見られないようだ。
本質問は、コードを作ってくださいと、丸投げもいいところ。
そういうムードと、質問の例から、どうしたい（する）のかがわかりにくいので、１日経っても回答がないのだろうと思う。
ーー
（１）コントロールを使うなら、コントロールのイベントの仕組みを使うことになるが、
その痕跡が、質問からは見えない。
（２）アイテム（エントリ、Item）は、選択してもらう候補を、コントトールに表示する中身だが、セットの仕方は
　　A.プログラムの中のコードで定義から
　　B.エクセルの場合セル範囲から（エクセルでコントロールを使いやすくする仕組み）
例
Private Sub UserForm_Initialize()
UserForm1.ComboBox1.RowSource = "sheet1!a1:a10"
End Sub
　　C。データベースから（SQLなどで検索後の結果からなど）DataSource
　　　　または配列に下データから
などがあると思うが、本件はその区別がはっきりしない。アイテム数はどれぐらいあるのか、他項目と合わせて考える（複数条件の場合）べきなのか。　
ーー
また質問の意図を（データ例を挙げるだけでなく）文章で説明すべきと思う。
最終的に、どういう風に（アイテムを）したいのか例示するべき。
データ例を挙げているが、だいたい縦１列に並んだデータがあると都合よい。
２次元のデータは、扱いがむつかしい。データ例そのままでは多分むつかしい（常識外）。
もっと本質がわかる（形と中身データを変えた）少数例を挙げて、説明文章を添えて 説明できないか。その後回答を見て自社の例に復元するのは、質問者の仕事で、これができないなら、回答をもらっても生かせない。
＞No,　物質名　規格1・・・規格10　商品名1-1・・・商品名1-50　商品名2-1・・・商品2-50・・　
1　　　鉄　　　　1　
・・・
の部分は、貴社独自のことだろう。常識的に、社員以外のものには、意味がわかるわけがない。
これをどうしようというのか。
なお
Ｃｏｍｂｏｂｏｘでは複数行（項目）選択できないようだ。
ＬｉｓｔＢｏｘは項目を複数選択できる。
ーー
「鉄」の行で、横に列方向を見て、１のある、規格１と商品名１－５？などをコンボのアイテムとして設ければよいのか。
こういうのは、文章で１，２例説明すべきでしょう。
基本的な、コントロールの使い方など勉強して、どう応用したらよいか（多分アイテムをどう定義したらよいか）、考えることだ。
ーー
文句言うばかりでは、と思い、本質問と直接関係ないがコード例を挙げてみる。
ニオイぐらいは嗅げるかもしれない。
ーー
下記イベントプロシージュアーの書くところは判るかな。
下記例は、ユーザーフォームには２つのコンボと１つのコマンドボタンを設けている。 コマンドボタンは、選択をおわえましたという 、トリガーになる。
またパブリック変数について調べて。
Public con1, con2
Private Sub ComboBox1_Click() 'コンボ１で条件１設定
con1 = UserForm1.ComboBox1.Text
MsgBox con1
End Sub
Private Sub ComboBox2_Click() 'コンボ２で条件２設定
con2 = UserForm1.ComboBox2.Text
End Sub
Private Sub CommandButton1_Click() 'コマンドボタンをクリックでフィルター実行
'シートに条件があったものが残る。
Worksheets("Sheet1").Range("$A$1:$C16").AutoFilter field:=1, Criteria1:=con1, Operator:=xlOr, field:=2, Criteria2:=con2
End Sub

Private Sub UserForm_Initialize() 'ユーザーフォームが最初に表示されるとき行われる作業
ComboBox1.AddItem "aa"
ComboBox1.AddItem "bb"
ComboBox1.AddItem "cc"
ComboBox1.AddItem "dd"
ComboBox1.AddItem "ee"
ComboBox1.AddItem "ff"
'---
ComboBox2.AddItem "x"
ComboBox2.AddItem "y"
ComboBox2.AddItem "z"
ComboBox2.AddItem "u"
ComboBox2.AddItem "v"
ComboBox2.AddItem "z"
ComboBox2.AddItem "k"
ComboBox2.AddItem "l"
ComboBox2.AddItem "m"
End Sub
データ例　Ｓｈｅｅｔ１　のＡ１：Ｃ１６
品物 属性 数値
aa x 1
aa y 2
aa z 3
bb u 4
bb v 5
cc k 6
cc l 7
dd h 8
dd i 9
dd j 10
ee k 11
ff s 12
ff t 13
ff w 14
aa y 15
ーーー
ユーザーフォームの実行で
ユーザーフォームが表示される。２個のコンボをそれぞれ選択肢、ボタンをクリック。
主たるフィルタ処理が実行されて、シートに表示される。
品物 属性 数値
aa x 1
aa y 2
aa z 3
aa y 15

お礼

imogasi様
ご指摘ありがとうございます。
確かに、文章的に他の人が見て分かりにくい点が多々あったと思います。
教えていただいたヒントを元に、もう少し考えてみます。