VBA セルに入力した日付を隣のセルに表示させる

Question

セルに何かを入力した場合、その入力日を隣のセルに表示させたいのですが、
いろいろ調べ、O列にに入力した場合、日付を隣のセルに表示させたいのですが、
これで動くのは動くのですが、
私の知識ではこれが限界で。。。。
もっと良い方法があれば教えていただけると幸いです。

よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If Application.Intersect(Range("O4:O10000"), Target) Is Nothing Then Exit Sub
If .Count > 1 Then Exit Sub
If IsEmpty(.Value) Then
.Offset(, 1).ClearContents
Else
.Offset(, 1).Value = Date
End If
End With
End Sub

Comments

[sazi]

セルに隣を参照する式を入れておくのでは駄目なんですか？

[tosi]

良く出来ているんじゃないですか。何か問題あるんでしょうか。

Answer 1

他で同様の仕様を確認できました。
ありがとうございました。