入力するのにかかった時間を表示する方法

質問

たとえば、A1～Z10まで入力する欄があり
始点をA1、終点をZ10として
どれだけ入力するのに時間をかけたか表示したい
場合、どういったマクロを組めば良いでしょうか？
終点のZ10入力後、ENTERを押した時点で
かかった時間を表示するメッセージボックスなど
出せたらいいなと思っています。

どうか、ご教授ください、、、。

回答No.2

mu2011

一例です。
対象シートタブ上で右クリック→コードの表示→サンプルコード貼り付けてお試し下さい。

Dim stim As Variant
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
stim = Time
ElseIf Not Intersect(Target, Range("Z10")) Is Nothing Then
MsgBox "所要時間は" & Format(Time - stim, "h時間m分s秒でした")
End If
End Sub

回答No.1

emaxemax

標準モジュールではなく、入力欄があるシートのモジュールに以下をコピペしてみてください。

Dim t As Date

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$Z$10" Then Exit Sub
If Target.Address = "$A$1" Then
t = Now()
Else
If t = 0 Then
MsgBox "A1セルに入力がありません！"
Exit Sub
Else
MsgBox Format(Now() - t, "h時間m分s秒かかりました。")
t = 0
End If
End If
End Sub