エクセル２０００マクロについて

質問

下記のデータベースを作っています。
フィルターオプションで条件式を作ってリスト抽出するマクロを教えてください。
　　　 B列～O列　　シート名（Ａ）　　　　　　　　　　　　　　　　　　　　　　　
3行目　No. 巡視日 管理部署 件名 場所
　　　　1 4月1日 製造一課 食器棚の上 事務所食堂　
　　　　2 5月8日 製造一課 連絡系統図 作業場
　　　　3 6月8日 製造一課 帳票類の整理 事務所隣書類棚
　　　　4 7月8日 製造一課 爆発テスト用備品Ａ倉庫右隣

条件式 巡視日　　　別シート名（Ｂ）で作っています。
>=200204
<=200206

上記の条件式で抽出するマクロを教えてください。
データの件数は決まっていません。その都度変わる。シート名（Ａ）

回答No.4

kazuhiko5681 · ベストアンサー

こんにちは。下記のごとく操作してみて下さい。私がエクセル２０００で実行したら、正常の動作しました。

１．データが入力されているブックを開き、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を表示させる。
２．画面左上にあるVBAProjectの下にあるSheet1にマウスポインターをあわせ、ダブルクリックしてSheet1のコードエディター(右側の白い部分)を表示する。
３．そこに、下記のコードをコピー・ペーストする。
４．ＡＬＴ＋Ｆ１１キーを押してエクセルの画面にもどり、Sheet1のあいているところにコマンドボタンを配置する。もし、コマンドボタンのは一方法がお解りにならない時は、お知らせ下さい。ご説明させていただきます。

コマンドボタンを押すと、抽出が実行されます。

もし、動作が違う時にはご遠慮なくお知らせ下さい。あなた様が実現したい動作ができるようになるまで一緒に考えていきたいと思います。

Private Sub CommandButton1_Click()

Columns("C:C").AutoFilter Field:=1, Criteria1:=">=4月1日", Operator:=xlAnd, _
Criteria2:="<=7月31日"

End Sub

回答No.3

kazuhiko5681

早速補足いただき有難うございます。
まだ解らない点があります。まぜ、抽出条件式が別シートにあるのでしょうか。シート１にデータベースのデータがあるとして、シート１のＣ列のデータで抽出をかけるだけではダメなのでしょうか。その点について詳しく教えて下さい。

お手数をおかけいたしますが、よろしくお願いいたします。

補足

補足します。
抽出条件式が別シートにあります。
条件式

巡視日　 巡視日
>=2002/04 <=2002/06
シート１のＣ列のデータを上記の別シートに作った条件式に合ったものを
抽出したい。シート１のＣ列のデータで抽出で結構です。

条件式の意味
巡視日のデータが2002年4月以上で2002年6月以下のものを抽出する。

確認
出来れば条件式がこれでよいか確認をお願いします。
実際動かすと2002年6月以下のものが抽出できません。
何故でしょうか合わせてよろしくお願いします。

回答No.2

kazuhiko5681

はじめまして。
私でよろしければ、サンプルマクロを作ってみたいと思います。
もしご希望でしたら、あなた様のおやりになりたいことを具体的に詳しく教えていただけないでしょうか。この内容では、サンプルマクロを作ることができません。次の内容も教えて下さい。

１.リストの項目名と項目名が入力されているセル番地
２.抽出をかけたいデータが入っている列
３.抽出した結果をどうするのか

お手数をおかけいたしますが、よろしくお願いいたします。

補足

質問が具体性がなくてすいません。
下記に示します。
やりたいことは、データーベースのリストから、ある条件式の一致するものを
データーベースから抽出する。マクロを作りたい。
１.リストの項目名と項目名が入力されているセル番地
項目名　Ｂ列３行目　NO
　　　　Ｃ列３行目　巡視日
２.抽出をかけたいデータが入っている列 　
　　　　Ｃ列　４行目　2002/4/8（表示は4月8日になっている）
　　　　　　　５行目　2002/7/8（表示は7月8日になっている）

３.抽出した結果をどうするのか
抽出条件式　　別シートにある。
　　　　　　　　Ｇ列　　　Ｈ列
　　　　　　　　巡視日　巡視日　　２行目　　　
　　　　　　　>=200204 <=200206　３行目
　　上記の条件式に一致するものを抽出してそのデータを基に
　　ピボットを作りピボットグラフを作りたい。

以上よろしくお願いします。

回答No.1

imogasi

ツール－マクロ－新しいマクロの記録－Macro1でマクロの記録を行えば、マクロが作成されます。
あとは（１）「データの件数は決まっていません」のために、相対化するためのコードの書き方と（２）シート名を
相対化するためのコードの書き方が判ればすむことではないでしょうか。今の２０００，２００２のところでは、抽中出後のデータを書き出すシートは別シートに出来ないようです。
（１）はRange("a1").CurrentRegion.Rows.Countなど
（２）は
Sub test01()
Dim a As String
a = InputBox("シート＝")
Worksheets(a).Range("a1") = "aaa"
End Sub
で動くようです。