エクセルVBA（マクロ）で呼び出すプログラムを教えてください。

エクセルVBA（マクロ）を使って、

№ 氏 名 性 決定 第一 第二 第三
101 鈴木 男 D 10 9 11
102 佐藤 男 B 4 6 5
103 山口 女 A 1 2 3
104 長田 男 C 7 8
105 中村 男 D 10 11 9

上のようなデータが「事業所1」というシートに入っています。
『別のシートにDを選んだ人のうち、第一希望で10を選んだ人を呼び出す。』
呼び出すプログラムを終えて頂けると助かります。よろしｋお願い致します。

No.1 ベストアンサー 回答者： Sand_Dollar 回答日時： 2017/09/14 09:21

抽出したデータを「抽出結果」というシートに貼りつけるとして。

こんな感じでしょうか。

Dim mySheet1 As Range
Dim mySheet2 As Range

Set mySheet1 = ActiveWorkbook.Worksheets("事業所1").Range("A1")
Set mySheet2 = ActiveWorkbook.Worksheets("抽出結果").Range("A1")

mySheet1.AutoFilter Field:=4, Criteria1:="D"　← Dを選んだ人
mySheet1.AutoFilter Field:=5, Criteria1:=10　← かつ 10 を選んだ人

mySheet2.Cells.Clear

mySheet1.CurrentRegion.SpecialCells(xlVisible).Copy mySheet2

この回答へのお礼

ありがとうございます。できました。いろいろと応用してみたいと思います。

お礼日時：2017/09/16 16:16

No.2 回答者： tatsu99 回答日時： 2017/09/14 11:10

添付図のような検索シートに検索データを入力し、検索結果を表示させてはいかがでしょうか。

黄色が入力部分です。青色の箇所に検索結果が表示されます。
検索条件は全てAND（日本語のかつ）で、結ばれます。
例では 決定＝D　かつ　第一＝１０　の人を検索します。
もし、更に、第二へ９を設定すれば
決定＝D　かつ　第一＝１０　かつ　第二＝９　の人を検索します。
もし、決定にDを入力し、他が空白なら、
決定＝Dの人を検索します。

この回答へのお礼

ありがとうございます。

お礼日時：2017/09/16 16:17