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

パソコン困りごと相談は皆さんの力でトラブルを解決するサイトです。
無料/会員登録不要。中古パソコン活用も勧めています。まずは[初めての方へ]から
OS過去ログ Windows8 Windows7 | VISTA | XP | Me | 2000 | NT | 98 | 95 | DOS/Win3.1 | Linux | Mac
XPメーカーログ NEC | 富士通 | ソニー | 東芝 | シャープ | 日立 | DELL | レノボ(元IBM) | ソーテック | 自作
◇-?1番から8番までを差し替え自動印刷したい-madonna-08/14-21:46(134)-No.516225
  ┗?!Re:1番から8番までを差し替え自...-kanta-08/20-12:09(0)-No.516226

▲このページのトップに戻る
5162251番から8番までを差し替え自動印刷したい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    高 橋 さつき
  

    

▲このページのトップに戻る
516226Re:1番から8番までを差し替え自動印刷したいkanta 2017/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まで順番に入力しその都度印刷をするコードです。

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


[管理人へメール] [カスタマイズ] [過去の記事] [ホーム]

Ferretアクセス解析