複数条件抽出をＶＢＡで

質問

excelの複数条件抽出をＶＢＡでやりたいので教えてください。

エクセル2003で複数条件抽出をしたいと思っています。

dateのシートに、Ａ列：日付、Ｂ列：名前、Ｃ列：金額があります。 それを１というシートに、日付と名前の２つの条件が合致している金額を抜き出したいと思っています。

抜き出すのは０６０１＆ＡさんをＡ５セル～Ａ２０ 　　　　　　０６０１＆ＢさんのはＢ５～Ｂ２０へ

ということは可能でしょうか？ もしよろしければ教えていただければ助かります。

'date'シート
日付　　　名前　　金額
0601 Ａさん　　100円
0601　　Ａさん　　120円
0601　　Ｂさん　　150円

シート'１'
0601＆Ａさん　　　０６０１＆Ｂさん
100円　　　　　　　　　　　150円
120円

どの人がやってもボタン１つで実行できるようにしたいために、
ＶＢＡ出できればと思っております。

回答No.2

imogasi

(1)エクセルにあるフィルタオプションの設定をＶＢＡで行う。そのためには初心者であれば
ーー＞マクロの記録を採って勉強すること。
（２）上行から最後行までシートのデータを１つずつ読んで、そのレコード（行のこと）の列内容が
Ｉｆ　Ｒａｎｇｅ（”Ｂ”& i)="前田" And Ｒａｎｇｅ（”A” & i)=#2011/6/11# then
（他シートなりへ、その１行転記処理）
Ｅｎｄ　ｆ
などを行う。
ーー
参考
Sub test01()
For i = 2 To 20
If Range("A" & i) = #6/13/2011# And Range("B" & i) = "前田" Then
MsgBox Range("A" & i) & Range("B" & i)
End If
Next i
End Sub
上記の20にあたる、最終行を割り出すコードなど必要だが略。
他シートへ該当分の書き出しなども必要だろうが略。
ーーー
例データ
2011/6/11
2011/6/12
2011/6/13 前田
2011/6/14
2011/6/15
2011/6/13 今井
2011/6/17
2011/6/18
2011/6/19
でテスト済み。
ーーー
しかし上記に付帯した修正の知識も質問者には現状無いと思われ、現状では背伸びしすぎだと思う。
ＶＢＡの本などで標準的な例題を頭に入れるのが必要と思う。
ーー
＞どの人がやってもボタン１つで実行できるようにしたいために
Ａ．ボタンのクリックイベントや
Ｂ。名前や年月日をその都度、プログラムで受け取る仕組みが必要だが、そのコードは判っているのか。
質問の表現振りからは、質問者は、他人に使わせるようなものを作る段階とは思えない。もっと修行してからの話では。
他人に使ってもらうには、色々と織り込まなければならないことがあり、ＶＢＡの熟練者の課題だと思う。

回答No.1

keithin

sub macro1()
worksheets("data").range("A:C").autofilter field:=1, criteria1:="=0601"
worksheets("data").range("A:C").autofilter field:=2, criteria1:="Ａさん"
worksheets("data").autofilter.range.columns(3).copy destination:=worksheets("1").range("A5")
worksheets("data").autofiltermode = false
worksheets("1").range("A5") = "0601＆Ａさん"
end sub

sub macro2()
worksheets("data").range("A:C").autofilter field:=1, criteria1:="=0601"
worksheets("data").range("A:C").autofilter field:=2, criteria1:="Ｂさん"
worksheets("data").autofilter.range.columns(3).copy destination:=worksheets("1").range("B5")
worksheets("data").autofiltermode = false
worksheets("1").range("B5") = "0601＆Ｂさん"
end sub

sub macro3()
macro1
macro2
end sub

シート上にオートシェイプの図形等でボタンを作成
右クリックしてマクロの登録で用意したmacro3を登録して完成。

＃実際には
＞ボタン一つで実行できるようにしたい

一体全体どんな風にして条件（0601じゃなく実際には？）を指定したいのか，そういった現実的な使い勝手について，もっと具体的な検討が必要です。

今回ご質問の条件決め打ち（0601のAさんBさん）マクロをベースに改めて具体的なマクロの動作（設計方針）をしっかり考えて，必要に応じてまた別途ご質問を投稿してみてください。