エクセル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を選んだ人を呼び出す。』
呼び出すプログラムを終えて頂けると助かります。よろしkお願い致します。

A 回答 (2件)

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


こんな感じでしょうか。

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
    • good
    • 0
この回答へのお礼

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

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

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


黄色が入力部分です。青色の箇所に検索結果が表示されます。
検索条件は全てAND(日本語のかつ)で、結ばれます。
例では 決定=D かつ 第一=10 の人を検索します。
もし、更に、第二へ9を設定すれば
決定=D かつ 第一=10 かつ 第二=9 の人を検索します。
もし、決定にDを入力し、他が空白なら、
決定=Dの人を検索します。
「エクセルVBA(マクロ)で呼び出すプログ」の回答画像2
    • good
    • 0
この回答へのお礼

ありがとうございます。

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング