入力した日付の表示

質問

このコーナーを閲覧して勉強をさせていただいています。

Ａ１に文字を入力すると、その日付を表示させるにはという質問に対して、次のような回答がありました。

早速利用させて貰おうかと思っているのですが、これで、任意の場所（Ｈ１）に表示させるにはどうしたらいいのでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Target.Offset(1).Value = Date
End Sub

横から口を出すような格好になってすみません。

回答No.1

n-jun · ベストアンサー

＞Target.Offset(1).Value = Date
Range("H1").Value = Date

固定で良ければ。

お礼

ありがとうございました。
ソフトを作る際のレパートリーが増えました。