パソコン困りごと相談

◇-?1番から8番までを差し替え自動印刷したい-madonna
 ┗?!-kanta

? madonna 08/14-21:46
メーカー名:DELL デル
OS名:Windows10
パソコン名:システム名 DESKTOP-7JPPP48
ソフト関連:表計算Excel
使用回線:光
--
超勤届を作成しています。

現在は〇社員番号の部分に=VLOOKUP($A$1,$A$20:$G$28,5,0)

〇氏名の部分に=VLOOKUP($A$1,$A$20:$G$28,6,0)を入れています。

このまま差し替え印刷を社員番号1〜8自動でしたいのですが、

出来るでしょうか。


       8月超勤届

 日  開始時間  終了時間  理由
 1 
 2
 3
 〜
 30
 31
    社員番号    氏    名
     〇     〇 〇 〇 〇


    社員番号   名  前
     1    丸 子 花 子
     2    照 字 智 子
     3    定 岡 勝 子
     4     斎 藤 六 郎
     5    佐 藤 酒 見
     6    桟 敷 健 司
     7    今 野   剛
     8    高 橋 さつき
  

    
やってみる

?! kanta 08/20-12:09
記事番号516225へのコメント
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まで順番に入力しその都度印刷をするコードです。

ここまで準備し、マクロを実行すれば自動で印刷が行われます。
やってみる

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