[[20220218160455]]　『A列からQ列のセルに入力(更新)がされた時にR列に刀x（M.AGENT 092）　ページの最後に飛ぶ

『A列からQ列のセルに入力(更新)がされた時にR列に入力(更新)した時間を自動表示』（M.AGENT 092）

はじめまして。
私の勤める会社では、それぞれの担当者が必要な情報を共有ブックにしているエクセルファイルに書き込み、最新の情報をシェアするようなことをしております。

そこで、更新が行われた時間を表示できるようにしたいと思い、サイトを探しまして似たような質問を見つけましたが、私の求める形ではないため今回こちらに質問させていただいております。

ご教示いただきたいVBAは以下となります。

A列からQ列のセルに入力(更新)がされた時に、R列に入力(更新)した時間を自動表示する。

入力した時間は例えば以下の通りにしたいです。(2022/02/18/16:18)

行に関しては最大で100列あれば充分となります。

質問が簡単ではありますがお力添え頂ければ幸いです。

よろしくお願い致します。

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

こちらが今使用している共有ブックの例です

=文字例

  A列　B列  C列　D列  E列　F列  G列　H列  I列　J列  K列　L列  M列　N列  O列　P列  Q列　R列
1 **   **   **   **   **   **   **   **   **   **   **   **   **   **   **   **   **   2022/02/18/16:18
2
3
4
5
6
7
8
9
10

（M.AGENT 092） 2022/02/18(金) 16:38

提示された仕様のどこが分からないのですか？
コードを提示してください。
それとも、ただのコード作成依頼でしたら、
付き合いませんので、あしからず。
（tkit） 2022/02/18(金) 16:40

承知いたしました。
失礼なことをお願いし申し訳ございませんでした。
（M.AGENT 092） 2022/02/18(金) 16:47

 取り敢えず、こんなのを当該シートの「シートモジュール」に書いて見るとどんな具合になりますか？　(※標準モジュールではない）

 Private Sub Worksheet_Change(ByVal Target As Range)
     Dim aRow As Range

     If Not Intersect(Range("A:Q"), Target) Is Nothing _
             And Target.CountLarge < 10000 Then

         Application.EnableEvents = False
         For Each aRow In Target.Rows
             Cells(aRow.Row, "R") = Now
         Next aRow
         Application.EnableEvents = True
     End If
 End Sub

（半平太） 2022/02/18(金) 17:18

半平太さま

ご教示いただいたもので正常に作動しました！

ご対応いただきありがとうございます(T__T)
（M.AGENT 092） 2022/02/18(金) 17:27

コメント返信：