Ｅｘｃｅｌのデータベース活用で・・・

早速ですが、データベースの中から別シートに抽出をしたいのですが、これは可能ですか？
できるならどうすればいいのか教えてください。
具体的に言うと、次のようなことがしたいんです。

[Sheet1]に以下のようなデータベースがあるとします。
Ａ列：部署コード(４桁)
Ｂ列：部署名
Ｃ列：社員コード(６桁)
Ｄ列：社員名

この[Sheet1]のデータをもとに、[Sheet2]以下のシートには指定した部署のみの一覧を抽出したいんです。
例えば、Ａ１セルにある部署コードを入力しておけば、指定したセルに該当する社員だけを表示したいということです。

よろしくお願いします。

No.3 ベストアンサー 回答者： imogasi 回答日時： 2003/05/29 22:27

＃２のものです。

部の数だけ実行しないといけませんが。
第２行目だけにフィールド見だしがあるとします。
Ａ１セルに抜き出したい部のコードを入れます。
コマンドボタンを１つ貼りつけ
Private Sub CommandButton1_Click()

End Sub
の真中に、（Sub test02()とSub Endを除いて）下記を挟むのも良いと思います。
Worksheets("sheet2").Cells(j, "A") = _
Worksheets("sheet1").Cells(i, "A")
以下は列の数（＝フィールド＝項目の数）だけ増やしてください。Ａのところを、Ｅ，Ｆ，Ｇ，・・・と変えたものを増やすと良い。
ＯＫＷＥＢの強制改行を避けるため、スペース＋アンダーバーでわざと改行しています。＝を挟んで左右にならべるのが普通です。
Sub test02()
d = Worksheets("sheet1").Range("a3"). _
CurrentRegion.Rows.Count
j = 2
For i = 2 To d
If i = 2 Or Cells(i, "A") = Cells(1, "A") Then
Worksheets("sheet2").Cells(j, "A") = _
Worksheets("sheet1").Cells(i, "A")
Worksheets("sheet2").Cells(j, "B") = _
Worksheets("sheet1").Cells(i, "B")
Worksheets("sheet2").Cells(j, "C") = _
Worksheets("sheet1").Cells(i, "C")
Worksheets("sheet2").Cells(j, "D") = _
Worksheets("sheet1").Cells(i, "D")
j = j + 1
End If
Next i
End Sub

この回答へのお礼

詳しい説明をありがとうございます。
さっそくやってみました。
でも、実はまだ完成してないんです。(><)

ここで再度質問をしようとも考えたんですが、そもそもＶＢＡ自体を分かっていないので上手く説明できません。
なので説明書を買ってきました。
ＶＢＡを理解するいいチャンスだと思って・・・。
この機会に頑張って習得してみます。
本当にありがとうございました。

お礼日時：2003/05/30 09:37

No.2 回答者： imogasi 回答日時： 2003/05/28 22:02

オートフィルタの後のコピーを嫌うとすると

ＶＢＡの問題でしょう。
（１）データの最下行を知る。
（２）最上行について
　　　部署コード（Ａ列）＝Ａ１セルの内容、ならば
　　　Ｓｈｅｅｔ２の対応フィールド＜＝＝Ｓｈｅｅｔ１　　　のフィールド
（３）部署コード（Ａ列）＝Ａ１セルの内容、でなければ　　　何もしない。
（４）次ぎの行について（２）（３）を繰り返す。
（５）最下行まで処理して終わり。
難しいロジックは使はなくてもできます。
興味があれば、ＶＢＡコードを載せますが。

この回答へのお礼

ありがとうございます。
やはりＶＢＡですか！
なんらかの関数でできないかなぁって思ってたんですが、無理そうですね。
挑戦してみようと思いますので、詳しく教えてください。
よろしくお願いします。

お礼日時：2003/05/29 08:33

No.1 回答者： 0shiete 回答日時： 2003/05/28 12:19

メニューから

[データ]-[フィルタ]-[オートフィルタ]
を使ってはどうでしょうか？

どうしてもSheet2上でということでしたら、
Sheet1をコピーして、それをSheet2とする
ということも考えられます。

上記がご要望に沿わない場合には
補足をお願い致します。

この回答への補足

さっそく回答ありがとうございます。

でも、オートフィルじゃダメなんですよ。
現在、約５００行のデータを１５のシートに分けてるんです。
[sheet1]でオートフィルした後、計１５回のコピーをして・・・。
ですから、なんとか自動的に各シートに該当する部署のみのリストを表示させたいんですよね。

補足日時：2003/05/29 08:26