実際の様式がわかりませんので何とも言えませんが、次のようなことをお求めなので したら、VLOOKUP関数で処理されるとよいでしょう。
1)入力用シートの様式を、次のようにします。 A B C D E F 1 連番 項目1 項目2 項目3 項目4 .... 2 1 データ1 3 2 データ2 4 3 データ3 (というように、データをすべて入力しておきます)。 2)印刷用シートは、次のように設定します。 ・作業用セル(仮にA1とします)を設けます。(文字色を白にします) ・印刷用シートの A3 を =VLOOKUP(A1,入力用!A:B,2,False) H6 は =VLOOKUP(A1,入力用!A:C,3,False) というように、印刷用シートの数式をすべてVLOOKUP関数に書き換えます。
ここで印刷用シートのA1に 2 と入力すると、データ2の内容がすべて表示されます。
印刷用シートのA1に数字を入れて印刷することを繰り返すわけですが、この部分だけ マクロを使えば、もっと楽になりますね。 ' Sub PRT() Dim s, e, i Sheets("入力用").Select s = ActiveSheet.Range("J1") e = ActiveSheet.Range("J2") Sheets("印刷用").Select For i = s To e Range("A1") = i ActiveSheet.PrintOut Copies:=1 Next End Sub ' 入力用シートのJ1とJ2に印刷開始番号と終了番号を入力して、マクロを実行します。
この記事にはVBAのコードが含まれています。
緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他
++++++++++++++++++++ OS ⇒Windows 98 Version⇒Excel 2000 ++++++++++++++++++++ |