ＶＢＡ(エクセル）での条件付日付表示について

質問

A列に数字を入力、A25でA列の合計をするべく「=SUM(A1:A24)」という計算式の入ったシートがあるとします。（以下、B、C…と同じような列が続く）
A列に入力されている数字が変更され、A25の合計値が変わった場合、その下のセル（A26）に日付と時刻を表示させたいのですが、うまくいきません。

ネットで検索したら、特定のセルの値が変更された時に日付と時刻を表示させる方法は何となくわかったのですが、この場合だと、直接A25のデータ変更された時のみA26に日付が表示されるだけで、A25の合計値がいくら変わったところで最新の時刻を表示させる事が出来ません。
どうすれば、A26に時刻を表示出来るのでしょうか？
EXCEL、VBA初心者共に初心者で、あまりよくわかっていなくて申し訳ないのですが、どうぞご教授よろしくお願いします。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Dim i As Range
Set myRng = Me.Application.Intersect(Target, Me.Range("25:25"))
If Not myRng Is Nothing Then
Application.EnableEvents = False
For Each i In myRng
If IsEmpty(i.Value) Then
i.Offset(1, 0).ClearContents
Else
i.Offset(1, 0).Value = Now
End If
Next i
Application.EnableEvents = True
End If
End Sub

回答No.1

keithin · ベストアンサー

計算の「元になるデータを記入したセル(範囲)」に変更があったら，時刻を更新します。

手順：
今のマクロを削除します
次のマクロに差し替えます

private sub Worksheet_Change(byval Target as excel.range)
　dim myRng as range
　dim h as range
　set myrng = application.intersect(target, range("1:24"))
　if myrng is nothing then exit sub

　for each h in myrng
　　cells(26, h.column) = now
　next
end sub

＃補足
元のアナタのマクロには，時刻の表示をクリアする命令も組み込まれています。
今のアナタのシートで，具体的に「何をしたら」時刻の表示をクリアしたいのか，もう一度要件をよく考えて（あるいはクリアする必要がそもそもあるのか無いのかを考えて），マクロをステップアップしてみてください。