VBAを使ったストップウォッチを時/分/秒で・・・

質問

エクセルでVBAを使って、ストップウォッチの様な形で時間を表示しながら計測したおのですが、以下のマクロだと少数点が表示されており、且つ、60秒に達したときに分に切り替わらない為、分に換算しなければなりません。

Private blnStop As Boolean
Private blnStart As Boolean

Sub StopWatch()
　　Dim dblTimer As Double
　　If blnStart = True Then
　　　　blnStop = True
　　　　Exit Sub
　　End If
　　blnStart = True
　　blnStop = False
　　dblTimer = Timer
　　Do Until blnStop = True
　　　　Cells(1, 1) = Int((Timer - dblTimer) * 100) / 100
　　　　DoEvents
　　Loop
　　blnStart = False
　　blnStop = False
End Sub

この様に、常に時間を特定のセルに表示させながら計測する様な形にしたいのですが、どうすれば「１時間20分50秒」の様な表示にできるでしょうか。

どなたかよろしくお願いいたします。

回答No.1

SI299792

B1: =A1/86400
にして、
セルの書式設定、表示形式、ユーザー定義で
h:mm:ss.00
にすればいいです。

直接A1に出したかったら、
Cells(1, 1) = Int((Timer - dblTimer) * 100) / 8640000
にして、A1にセルの書式設定をすればいいです。

ミリ秒が必要ないなら
h時間mm分ss秒
にしてもいいで