エクセルのデータの表を1行ごとに用意したレイアウトで1ページづつ印刷し

質問

エクセルのデータの表を1行ごとに用意したレイアウトで1ページづつ印刷したい。
シート１の
Ａ列に商品名（数字とアルファベットの組み合わせ）
Ｂ列に数字４桁
Ｃ列に数字４桁
Ｄ列に数字とアルファベットの組み合わせで３ケタ
が入っていて５，０００行のデータが有ります。

シート２のＢ１にシート１のＡ１の値
シート２のＢ２にシート１のＢ１の値
シート２のＢ３にシート１のＣ１の値
シート２のＢ４にシート１のＤ１の値
シート２のＣ１にシート２のＢ１～Ｂ４の値から作成されるバーコードを表示
（エクセルにアドオンしたアプリケーションで生成されます）

シート２のＢ５にシート１のＡ２の値
シート２のＢ６にシート１のＢ２の値
シート２のＢ７にシート１のＣ２の値
シート２のＢ８にシート１のＤ２の値
シート２のＣ５にシート２のＢ５～Ｂ８の値から作成されるバーコードを表示

改ページをシート２のＡ４で１ページになるようにして
（よって２ページ目の終わりはＡ８）
シート１の５，０００行分をシート２に同じように
貼り付ける一番簡単な方法は有りますか？

回答No.1

imogasi · ベストアンサー

質問者はエクセルVBAが出来るのか。関数では印刷は指示できないので、従って全部は出来ない。
バーコードの部分も未経験。（フォントのようなものなら、セルの値が残っていると思うが、画像化されたりすると扱いが難しいように思う）
しかし１社１行（複数行）の表から、関数で請求書（１葉）どデータを作り、最少行数のVBAで印刷だけする方法は、過去に何度も回答している。Googelで「imogasi 請求書」で照会すると沢山記事が出るが、その中で
http://okwave.jp/qa/q2798008.html
辺りの私の回答を、(複雑と思うかもしれないので）頭がクリアなときに、じっくり読んで、例示している例で、実際にやってみて、骨子（判ればポイントは簡単）を判ってください。
考えが理解できたら、本件に応用するときどうなるか、やってみてください。

お礼

構想に無理がありました。
１枚のシーとには１枚の雛形飲みとして
１枚印刷→
ボタンを押してマクロが起動で雛形内データ変更
　（マスターシートの２行目の値をかえす→その変化したデータから適切なバーコードが生成）→
１枚印刷→
ボタンを押すとマクロが起動で雛形内データ変更
（マスターシートの３行目の値をかえす→→その変化したデータから適切なバーコードが生成）→
１枚印刷
とマクロを組んで出来ました。ボタン操作と印刷ボタンは１，０００回押しました。

また別の雛形の方は、
１枚のシートに１個の雛形を１００個作成し
それぞれに関数（コピペ）をいれて、マスターシートの
１行目から１００行目までが１シート内の１００個の雛形に値をかえすようにしました。
マクロを作成し、ボタンを押すと１０１行目から２００行目までの値が
そのシートの１００の雛形に返されるようにしました。
ボタンを押して印刷を１０回繰り返しましたが
１，０００行分の印刷がバーコード付きで印刷できました。
ご指導ありがとうございました。
大変参考になりました。

回答No.2

KURUMITO

シート1の1行目には項目名があり、2行目から下方にデータがあるとします。
シート2のＡ1セルには次の式を入力してＢ1セルまでオートフィルドラッグしたのちにコピーを選択します。

=IF(ROW(A1)>(COUNTA(Sheet21!$B:$B)-1)*4,"",IF(COLUMN(A1)=1,CHOOSE(MOD(ROW(A1)-1,4)+1,"品名","仕入先","メーカー","区分"),IF(COLUMN(A1)=2,INDEX(Sheet21!$A:$E,ROUNDUP(ROW(A1)/4,0)+1,MOD(ROW(A1)-1,4)+2),"")))

その後の「名前ボックス」にはＡ1と表示されているところをA1:B22000とでも入力してEnterします。範囲が選択されますので右クリックして「貼り付け」を選びます。Escキーを押して終了です。
なお、バーコードについては良く内容が判りませんので適宜判断して対応してください。