エクセルです。至急教えてもらえませんか！！

質問

はじめまして。よろしくお願いします。

エクセルである名簿を作っています。

＜sheet1＞
Ａ列に会員番号、Ｂ列に氏名、C列に住所・・・・というような表にしています。

＜sheet2＞
sheet2のあるセルに＜sheet1＞の会員番号を入力するとその会員のデータが決められた様式ででてくるようにしました。

今から、この会員全員分のデータを全て＜sheet2＞の様式で印刷したいのですが、手作業で会員番号を入力して、印刷をしてというやり方だとかなり時間がかかりそうです。また他にも今から仕事があるので、何かよい方法を教えてください。マクロでできるのだろうとは思うのですが、昔使ったことが少しあるだけで全然覚えていません。よろしくお願いいたします。

＊会員番号順に並んでいますが、数はとんでいます。例えば、1、5,19,28,29,50・・・・という具合です。

回答No.1

imogasi · ベストアンサー

Ｓｈｅｅｔ１、Ｓｈｅｅｔ２を区別するため
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
を入れる。
Ｓｈｅｅｔ１の第１行から、第ｘ行まで処理するため
For i = 1 To x
Next i
を入れる。
Ｓｈｅｅｔ１からＳｈｅｅｔ２へセルごとにデータを写すため
sh2.Cells(u, v) = sh1.Cells(i, "B")
を項目数だけ並べる。Ｓｈｅｅｔ２のセルのＵ行，Ｖ列とＳｈｅｅｔ１の列Ｂは印刷レイアウト（項目配置）から決まる。
Ｓｈｅｅｔ１の１行でＳｈｅｅｔ２の印刷用紙１枚のデータがセットされると、印刷する。
それにはsh2.Range("A1:J40").PrintOutを入れる。
Ａ１：ｊ４０はＳｈｅｅｔ２の印刷範囲で決まる。
印刷範囲は様式で決まる。
ざっと
Sub test01()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
x = 100 '第１００行までの場合
For i = 1 To x
sh2.Cells(u, v) = sh1.Cells(i, "B")
'・・・・項目数だけ列挙記述
sh2.Range("A1:J40").PrintOut '印刷
Next i
End Sub
のようになる。
住所２（例えばマンション名）などで、人によりあったりなかったりする項目は、印刷ごとにクリアしておくこと。

お礼

お礼が遅くなり大変失礼しました。

当日は、時間的に焦っていたために結局手作業になりましたが、後から改めて読むととても分かりやすい説明でした。今後も同じようなことが何度もありそうなので、参考にさせていただきます。

詳しい解説本当にありがとうございました。
またよろしくお願いします。