◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

差し込み印刷
差し込み印刷をする場合の例を掲示します。
（セル番地は適当に読んでください。）

（シート１）
（１）セルＡ１からＡ１００まで整理番号（唯一無二のキー番号のようなもの）
１、２、３・・・をふる。
（２）セルＢ１からセルＢ１００にデータを入力しておく。

（シート２）
（１）どこかのセル（Ａ１としておきます）に整理番号を入力する。
（２）そのシートの差し込みたいセルに LOOKUP 関数でシート１のデータを引っ
張ってくる。
　=LOOKUP($A$1,'シート１'!$A$1:$A$100,'シート１'!$B$1:$B$100)
（３）セルＡ１の整理番号を変えると、シート２の内容が変わることを確認。
（４）セルＡ１に１を入れて印刷、２を入れて印刷、・・・以下同様。

（４）をマクロで組むと、ボタン１つで差し込み印刷ができます

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
'通知票印刷の例

Sub 通知表印刷()
For J = Number1 To Number2 '開始番号から終了番号の繰り返し
If J > Ninzu Then Exit Sub 'クラス人数以上なら終了
ClassNumber = Class * 100 + J '組番号＝唯一無二の番号
Sheets(SheetName1).Select
Sheets(SheetName1).Cells(1, 1) = ClassNumber
'通知表シートのセルA1に組番号を代入
ActiveWindow.SelectedSheets.PrintOut Copies:=1 '印刷実行
Next J
End Sub
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−