[[20210403200414]]　『勤務表に丸が付いていたら出勤簿にデジタル印を表』（ななし）　ページの最後に飛ぶ

『勤務表に丸が付いていたら出勤簿にデジタル印を表示する』（ななし）

いつもお世話になっております。

各個人（１０数名）の勤務表があります。

その内容は…

A列-日付

B列-出勤した日

C列-有休

となっているシートが職員分あります。

勤務表とは別に出勤簿もあり、その内容は…

1行目に日付

2行目から各個人の名前

出勤簿はシート1枚にスタッフの名前が全て入っています。

やりたいことは、出勤簿の勤務表にプルダウンで〇が入力された際に出勤簿に勤務表の日付に対応した個所にデジタル印（PNG画像-同じBOOK内にデジタル印のシートがあります）を表示させる、また休日の時は（休）と表示させる、また有給の時は（有）と表示させたいです。

VBA・関数どちらでもやり方がわかる方ご教示お願い致します。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

＞出勤簿の勤務表
どういう意味。出勤簿と勤務表は別々ですよね。
レイアウト提示しなさい。
（kj） 2021/04/03(土) 21:20

勤務表

　　　　　出勤　　休み　　有休
日付　1　　〇
　　　2　　　　　　〇
　　　3　　　　　　　　　　〇
　　　：
　　　：
　　　：
　　　31 　〇

出勤簿

日付　　１　　　２　　　３　　　４　　　５………31
鈴木　　判子　　休　　　有　　　判子　　判子　　判子　
佐藤　　休　　　判子　　判子　　判子　　休　　　判子
田中　　判子　　有　　　判子　　判子　　判子　　判子

こんな感じです。わかりずらくすみません

（ななし） 2021/04/03(土) 22:20

勤務表の出勤に○がついていたら出勤簿に勤務表の日付に対応した欄にスキャンしたPNG画像の印鑑を人数分表示させたいのです。

勤務表、出勤簿、ハンコは全て同じBookに有ります。
（ななし） 2021/04/03(土) 23:40

勤務表は誰を指しているのですか。
出勤とは休日出勤のことですか。
PNG画像の名称は何ですか。
（kj） 2021/04/04(日) 10:49

勤務表は全てのスタッフです。
出勤は休日出勤ではなく、シフト上で指定された月曜日から土曜日になります
PNG画像は各スタッフの名前判子となっており、鈴木なら「鈴木判子」となっております。
（ななし） 2021/04/04(日) 11:58

＞勤務表は全てのスタッフです。
それは分かっています。
提示されている勤務表は誰かということです。
提示されている出勤簿で鈴木、佐藤、田中の勤務表はどうなっているのですか。
これは会社運用ですか。個人運用ですか。
（kj） 2021/04/04(日) 15:05

すみませんわかりづらい説明で
スタッフの勤務表は同じフォーマットを使っています。
なので提示した勤務表は社員全員が使用しております。
これは一応会社運用なのですが、全て紙ベースにて提出しているので
フォーマットはある程度こちらの都合の良いように変えることができる状況です。
（ななし） 2021/04/04(日) 15:52

こちらの質問が理解されていないようなので私はここまでとします。

（kj） 2021/04/04(日) 16:13

 １．出勤簿シートと個人名シートのレイアウトは下図で合っていますか？

   <出勤簿 シート　サンプル>
   行  __A__  _B_  _C_  _D_  _E_  _F_
    1  日付    1    2    3    4    5
    2  鈴木                         
    3  佐藤                         
    4  田中

   <鈴木 シート　サンプル>
   行  __A__  __B__  __C__  __D__
    1  日付   出勤   休み   有休 
    2    1  　　〇                 
    3    2      　　   ○          
    4    3        　　        ○

 ２．日付が１，２，３とかで表示されていますが、ホントに単純な自然数なんですか
 　　それとも実体はシリアル値で、表示だけ単純に見えるようにしているんですか？

 ３．マクロの記録を使って、鈴木さんのハンコのところにPNG画像を貼り付ける操作を行い、
 　　それで出来上がったコードをここにアップして貰えませんか？

 　　※ 実際は鈴木さんじゃないと思うので、その部分だけ仮りの名に変更してアップしてください。

（半平太） 2021/04/04(日) 17:44

1.書いて頂いたサンプルで合ってます。

2.シリアル値が入っており表示を単純化しております。

3.ハンコを貼り付けるコードを知りたい為、私では作れないのでこちらでご教示していただけたらと思い質問させていただいております。
（ななし） 2021/04/04(日) 18:47

 ＞3.ハンコを貼り付けるコードを知りたい為、
 ＞私では作れないのでこちらでご教示していただけたらと思い質問させていただいております。

 それは承知していますが、こちらもそちらの状況が分からないので、
 実際に鈴木さんのハンコを貼り付けた操作をやってみていただきたいのですよ。

 マクロの記録を開始してから、その操作を行えば、何らかのコードが自動で出来上がってくるので、
 それが見たいのですけども。

（半平太） 2021/04/04(日) 20:28

 こんばんは　＾＾
↑。。。やってみましたけど。。。その。
図形のオブジェクト名は表示されず、例の
Selection　さん　の　オンパレードでしたよ。
Selection.copy paste とか。。。
アップしますか？
てすと、代行でした。
m(__)m
（隠居じーさん） 2021/04/04(日) 21:27

 半平太さん
すみません、すみません
オブジェクト名は表示されていました。

 Sub Macro1()
'
' Macro1 Macro
'

    ActiveSheet.Shapes.Range(Array("tora")).Select
    Selection.Copy
    Sheets("出勤簿").Select
    Range("D12").Select
    ActiveSheet.Pictures.Paste.Select
    Range("F12").Select
End Sub
わたしのコメントは全て無視して下さい
お騒がせしてすみませんでした。m(__)m

（隠居じーさん） 2021/04/04(日) 21:33

 隠居じーさん 助かります　＾＾

 ※まぁ、質問者自身にやって貰えると更に有意義なんですけども。

 兎に角、以下の具体的な質問ができる。

 　１．「デジタル印のシート」のシート名は何か？

 　２．スタッフ名(＝シート名）とオブジェクト名の対応表を作ってもらわないとならない
 　　　鈴木　が　tora
     　佐藤　が　？
 　　　田中　が　？

（半平太） 2021/04/04(日) 22:57

 ＞ 　２．スタッフ名(＝シート名）とオブジェクト名の対応表を作ってもらわないとならない
 ＞ 　　　鈴木　が　tora
 ＞     　佐藤　が　？
 ＞ 　　　田中　が　？

 これ、ちょっと面倒な気がしてきました

 各スタッフの個人シートに当人のハンコ画像を貼り付けてもらえれば、対応表がなくても対応は可能です。

 ただし、そのハンコ画像は見えると鬱陶しいので、後でそれを見えなくすればいいと思います。(※）

 ※ ホームタブの編集グループに「検索と選択」と言うメニューボタンがあるので、そこの中から
 　 「オブジェクトの選択と表示」を選んで、当該画像の右サイドにある目の形をしたアイコンをクリックすれば消えます。
 　この手順で消すのは、今回のプログラムが完成した後にした方がいいです。

 以上の方式でやりますか？

（半平太） 2021/04/05(月) 12:55

 なぜ出勤した時だけ毎回判子を必要とするのだろうか。
 ふつうは有休願いのとき判子を押すけど。
 ＞全て紙ベースにて提出しているので
 勤務表は各自で管理し提出するのですよね。
 出勤簿は誰が管理し提出するのですか。あなたですか。各自ですか。
 ＞フォーマットはある程度こちらの都合の良いように変えることができる状況です。
 なぜ会社もそのようにしたんでしょうね。セキュリティーが甘いかも。
（疑問） 2021/04/05(月) 17:54

＞なぜ出勤した時だけ毎回判子を必要とするのだろうか。

出勤簿とはそういうもの。無知も甚だしい。

（疑問2） 2021/04/06(火) 08:04

コメント返信：

[ 一覧(最新更新順) ]

[[20210403200414]] 『勤務表に丸が付いていたら出勤簿にデジタル印を表』（ななし） ページの最後に飛ぶ

[[20210403200414]]　『勤務表に丸が付いていたら出勤簿にデジタル印を表』（ななし）　ページの最後に飛ぶ