パソコン困りごと相談
パソ困掲示板
投稿前注意
 新規投稿
 ツリー表示
 質問一覧
 2ch風表示
 新着順表示
 
 初めての方へ
 回答者の方へ
 投稿説明
 TOP
メール配信/退会
過去ログ全て
 過去ログ最新
 検索
運営会社
 管理体制
 運営ポリシー
 管理者へメール
 よくある質問
 感謝の声
携帯Webアドレス
リンクの貼り方
 相互リンク
 ウエブリング参加
姉妹サイト
 エトセトラ

パソコン困りごと相談は皆さんの力でトラブルを解決するサイトです。
無料/会員登録不要。中古パソコン活用も勧めています。まずは[初めての方へ]から
OS過去ログ Windows8 Windows7 | VISTA | XP | Me | 2000 | NT | 98 | 95 | DOS/Win3.1 | Linux | Mac
XPログ NEC | 富士通 | ソニー | 東芝 | シャープ | 日立 | DELL | レノボ(元IBM) | ONKYO(元ソーテック) | 自作
タイトル: Re:1番から8番までを差し替え自動印刷したい
投稿者 : kanta
URL   : 未登録
登録時間:2017年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 なし

[管理人へメール] [記事ツリー] [ホーム]


RSS RSS配信説明
お気に入り登録(IEのみ)

Yahoo!ブックマークに登録


Ferretアクセス解析