お世話になります。 Excel VBAのプログラムについてご教授をお願いいたします。 添付した写真よ

お世話になります。
Excel VBAのプログラムについてご教授をお願いいたします。

添付した写真ような管理表が例になります。
工程ごとの開始、完了を担当した作業者名を入力すると、入力した日付を表示させるようにしたいのです。

例えば工程1だと、F5セルに工程1を開始した作業者名を入れると、G5セルに作業者名を入力した日付が表示される。
工程数も増やせる、作業者名の入力範囲も上限なしの仕様にしたいのですが、、、

お手数ですがご教示いただけますと幸いです。

質問者からの補足コメント

• コメントいただきありがとうございます。ならびに見えずらく申し訳ありません。
  
  画像切り取ったものを添付しましたのでご教示いただけますと幸いです。

  
    補足日時：2023/12/12 11:41

• コメントいただきありがとうございます。
  画像が見えづらい状態で申し訳ありませんでした。snipingツールで切り取った画像を追加で貼り直しましたので確認をお願いします。

  
    補足日時：2023/12/12 12:17

• snippingツールで貼り付けましたが、遠目のキリトリは見えづらいようですので
  近づけて切り取りました。
  お手数ですが、ご教示お願いいたします。

  
    補足日時：2023/12/12 12:21

• 度々失礼しました。
  遠目だとsnippingツールでも粗くなってしまうので、近めでキリトリしたものを添付いたします。

  
    補足日時：2023/12/12 13:05

• tatsumaru77様ありがとうございます。
  おっしゃるとおり、
  
  ６行以降に作業者名を入力し、右横のセルに入力された日付を表示させる、が正しいです。
  
  F列に名前を入力したら、隣のG列にF列で入力された日付を表示
  H列に名前を入力したら、隣のI列にH列で入力された日付を表示
  J列に名前を入力したら・・・・
  同じ仕様にしたいです

  No.4の回答に寄せられた補足コメントです。 補足日時：2023/12/12 14:07

No.5 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/12/12 17:33

その画像が表示されているシートに以下のマクロを登録します。

（シートモジュールです）

Private Sub Worksheet_Change(ByVal Target As Range)
'6行未満は対象外
If Target.Row < 6 Then Exit Sub
'6,8,10,12,14行・・・以外は対象外
If Target.Column < 6 Then Exit Sub
If (Target.Column - 6) Mod 2 <> 0 Then Exit Sub
Target.Offset(, 1).Value = Date
End Sub

この回答へのお礼

tatsumaru77様　ありがとうございます。
さきほどマクロ起動してみたら思いとおりになりました。
わざわざお時間割いていただき感謝いたします。

お礼日時：2023/12/12 17:56

No.4 回答者： tatsumaru77 回答日時： 2023/12/12 13:25

新しい画像で確認しました。

作業者名を入力する列は、F列以降１列おきにする。（F,H,J,L・・・)
上記列の６行以降に作業者名を入力し、右横のセルに日付を自動設定する。
で間違いないでしょうか。

例　F6に作業者名を入力し、G6に日付を設定する。
あなたから提示された「例えば工程1だと、F5セルに工程1を開始した作業者名を入れると、G5セルに作業者名を入力した日付が表示される。」は誤りかと思います。F5に入力された場合は、「処理しない」が妥当かと思います。

No.3 回答者： fujillin 回答日時： 2023/12/12 11:56

こんにちは

画像がよく見えないのと、何を知りたいのか不明（丸投げなのか？）なので、何を回答すれば良いのかもよくわかりませんけれど・・

入力に対応して、その右のセルに日付を表示すれば良さそうなので、
Worksheet_Change イベントのプロシージャで処理すれば良いでしょう。
以下、似た様な例を解説しているサイトです。
https://seigi-ojisan1972.com/?p=2653
https://gcgx.games/excel/vba/auto_date.html

※ 入力セルの範囲チェックをなさりたい内容に合うようにすれば、ほぼできると思います。

No.2 回答者： tatsumaru77 回答日時： 2023/12/12 11:30

画像がよく見えないのですが、完了の担当者の列は、F,J,N,R・・・列でしょうか。

そして、上記の列の5行目以降が、担当者の入力セルでしょうか。

No.1 回答者： 高木さんWIN 回答日時： 2023/12/12 11:17

カメラでの撮影画像より、画面の画像を切り取って（列方向は半分位でもよさそう）掲載した方が見やすいですよ。

あくまでＰＣ私用の場合なら、
Snipping Tool を活用する
https://askpc.panasonic.co.jp/beginner/guide/ten …
等を用いて。
Win11は未所持なのでわかりませんが類似した機能はあるのかも。