1番から８番までを差し替え自動印刷したい
「何か一言」の報告はありません Facebookコメントができます
◇-?1番から８番までを差し替え自動印刷したい-madonna-08/14-21:46(21018)-No.516225 ┗?!Re:1番から８番までを差し替え自...-kanta-08/20-12:09(20883)-No.516226
▲このページのトップに戻る
▲このページのトップに戻る
_zenback_
| 516225 | 1番から８番までを差し替え自動印刷したい | madonna | 2017/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 高 橋 さつき | |||
▲このページのトップに戻る
| 516226 | Re:1番から８番までを差し替え自動印刷したい | kanta | 2017/08/20-12:09 |
記事番号516225へのコメント madonnaさんは No.516225「1番から８番までを差し替え自動印刷したい」で書きました。 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まで順番に入力しその都度印刷をするコードです。 ここまで準備し、マクロを実行すれば自動で印刷が行われます。 | |||
| 何か一言(本ページで参考になったならないを含めて残してあります) ◎：解決 ○：参考になった ×：参考にならなかった ！：アドバイスあり | |||
| 参考 | 回数 | 投稿日時 | 何か一言 |
