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

質問

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

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

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

よろしくお願いします。

回答No.3

imogasi · ベストアンサー

＃２のものです。
部の数だけ実行しないといけませんが。
第２行目だけにフィールド見だしがあるとします。
Ａ１セルに抜き出したい部のコードを入れます。
コマンドボタンを１つ貼りつけ
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

お礼

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

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

回答No.2

imogasi

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

お礼

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

回答No.1

0shiete

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

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

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

補足

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

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