エクセル複数のセル内容変更したら更新日を自動表示

質問

エクセル初心者です。
Ｂ２列からＧ２列にＢからＧ社名（計６社）が記入されてます。

Ｂ３列からＧ３列以降に上記各社の金額を随時入力します。

Ｈ２列からＭ２列のセルは上記Ｂ社からＧ社の更新日と記入しています。

Ａ３列以降には品名が記入されています。

Ｂ３列からＧ３列のセルの内容を更新すると、それぞれ該当する社名の
Ｈ３列からＭ３列のセルに更新日付が自動的に表示させたいと思っております。

例えば、
Ｂ社の「Ｂ５」へ新規に金額入力したり、金額更新した時に、該当するセル「Ｈ５」に
その日の日付が自動で表示される。
Ｄ社の「Ｄ６」へ新規に金額入力したり、金額更新した時に該当する「Ｊ６」に
その日の日付が自動表示される。

そして、違う日にもう一度、同じ欄に入力すれば、その入力した日付に随時更新されるようにするための方法を教えていただければ幸いでございます。

特定のセルの場合の方法は検索等で確認できましたが、複数の場合の方法が分かりません。

何卒、宜しくお願いいたします。

回答No.2

qualheart · ベストアンサー

時間まで表示したいなら、

Cells(r, c).Value = Date
の部分を
Cells(r, c).Value = Now
に変えればOKです。

ご参考まで。

お礼

ご丁寧にありがとうございました。

回答No.1

qualheart

開発タブの「Visual Basic」をクリックしてVisual Basicを開いて、上記操作を行うシートに以下のコードをペーストすればOKだと思います。

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column >= 2 And Target.Column <= 7 And Target.Row >= 3 Then
r = Target.Row
c = Target.Column + 6
Cells(r, c).Value = Date
End If

End Sub

ご参考まで。

お礼

早々のご教授ありがとうございます。

思った通り出来ました。
ｖｂａはこんなに短い内容で出来るんですね。

日付は時間（秒まで）表示可能でしょうか？