特定の項目セルにスキャン（入力）すると連続で5行に自動で日付がはいる

VBA 日付の自動化ついて質問です。
Office365 を使用しています。

添付ファイルのように特定の項目の「受付NO」をバーコードでスキャン（入力）した場合、
当日の日付を、赤丸で囲んでるA列に5行に自動で入るコードを知りたいです。

Ｃ列の特定の項目には自動で入るように関数を組んでいます。
（部品番号を入れると、部品名が表示される,受付NOを入れると個数1が表示される）


自分なりにVBAのコードをシートに反映しましたが
関数を組んでる「商品名」と「個数」の左側には日付が入らないことがわかったため、
「受付NO」をスキャン（入力）した時点で当日の日付が一気に入力されるコードをしりたいです。


どなたかよろしくお願いします。m(__)m

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/07/31 17:00

こんにちは

どのような仕組みになっているのか、説明がないのでまったくわかりませんけれど・・

＞「商品名」と「個数」の左側には日付が入らないことがわかったため、～
入力できない仕組みが組まれている（例：プロテクト（＝保護）がかかっている等）のなら、ＶＢＡで行っても入力はできない可能性が高いです。
通常の保護程度なら、ＶＢＡから外すことは可能ですけれど・・

コード入力もVBA等で行っているのなら、セル位置はわかっているのでしょうから、そのセルが変数 r に取得できているとするなら、
　r.Offset(, -2).Resize(5).Value = DateValue(Now())
などとすることで、日付の入力は可能です。
セルの書式設定があらかじめできていないような場合には、同様の方法で書式も設定してください。