[[20200327211353]]　『固定データシートに別シートの大量データを1件づａx（なおき）　ページの最後に飛ぶ

『固定データシートに別シートの大量データを1件づつ貼り付け印刷したい。』（なおき）

お世話になります。
今回、仕事で見積書の出来高(約400件)を一つの決められたExcelシートに一件づつ作成、印刷までの作業を行わないといけなくなり、大変、時間がかかりそうで悩んでおります。期日は2日程度・・・。
そこで、皆様のお力をお貸しいただけないでしょうか。よろしくお願いいたします。

下記内容をExcelシートに記入いたしました。
＊〇はセルの間とお考え下さい。

作業内容〇所要時間〇歩留リ〇間接時間〇合計時間〇タクトタイム〇時間当り
＊＊＊＊　　60　　　100% 　　 0 　　　　 60 　　　 30 　　　100円
　　：　　　：　　　：　　　　　：　　　　：　　　　　：　　　　　：

(下に約400件程のデータが並んでおります。)

上記のデータを横1行づつを決められた別シートに簡単(自動)に反映できる方法がないでしょうか。欲をいいますと一回の印刷で次々と項目が入れ替わり印刷までできればありがたいのですが。(無理は承知なのですが。)
他に別な方法などありましたら、お知恵をおかりできたら幸いです。
よろしくお願いいたします。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

別シートに、データシートのセルを参照する式を埋め込んでおきます。
例えば、
=INDEX(データ,カウンタ,1)
のような式です。
"データ"とは、予め作成した400件のセル範囲の名前定義。
"カウンタ"も同様の名前で、どこかにデータの番号(1,2,....)を示すセルを設定しておきます。
3つ目の引数は、列番号ですね。

マクロを使って、カウンタをひとつずつ増やしながら、印刷していけばいいでしょう。
こんなイメージのコードになるでしょう。

 Sub test()
     Dim k As Long
     For k = 1 To 400
         Range("カウンタ").Value = k
         Worksheets("印刷シート").PrintOut
     Next
 End Sub

いかがでしょうか。

（γ） 2020/03/27(金) 22:18

 おはようございます、突然、横入りすみません　＾＾
いや～。。。これ、簡単でいいっすね～　おそれいりました。
使わせて戴きます。　m(_ _)m
（隠居じーさん） 2020/03/28(土) 07:20

恐縮です。
あと、ヘッダー、フッターなどにページ番号などを使っていたとすると
それなりの調整が必要かもしれませんね。
（γ） 2020/03/28(土) 15:38

コメント返信：

[ 一覧(最新更新順) ]

[[20200327211353]] 『固定データシートに別シートの大量データを1件づａx（なおき） ページの最後に飛ぶ

[[20200327211353]]　『固定データシートに別シートの大量データを1件づａx（なおき）　ページの最後に飛ぶ