パソコン困りごと相談

Re:1番から8番までを差し替え自動印刷したい-kanta 08/20-12:09
madonnaさんは No.516225「1番から8番までを差し替え自動印刷したい」で書きました。

madonnaさん、こんにちは。
想定される場面を完全に読み取れている自信がないため、的外れな回答でしたらすいません。

動的な値の変化を自動で行うのであれば、マクロ(VBA)が手っ取り早いかと。

今回の想定ブック
http://pasokoma.jp/etc/file/1503197883.jpg
(超勤届本体シート)
http://pasokoma.jp/etc/file/1503197909.jpg
(社員リストシート)

・予め超勤届シートの印刷設定をしておく
(印刷範囲や使用するプリンタ等の設定)
・超勤届のB13(社員番号)には何も入力しない
・超勤届のC13には以下の数式を入力する
=VLOOKUP($B$13,社員リスト!$A:$B,2,FALSE)

・VBAのプログラムを作成
参考:https://allabout.co.jp/gm/gc/432236/

コード:
Sub PrintSheet()
For i = 1 To 8 Step 1
Worksheets("超勤届").Range("B13").Value = i
Worksheets("超勤届").PrintOut
Next
End Sub

簡単に説明すると、B13セルに1〜8まで順番に入力しその都度印刷をするコードです。

ここまで準備し、マクロを実行すれば自動で印刷が行われます。
やってみる
親記事
1番から8番までを差し替え自動印刷したい-投稿者:madonna

コメント
なし

[ツリー表示]

運営会社
Win8 7 VISTA XP Me 2k NT 98 95 Lx DOS