excel VBA タイマー表示について

質問

お世話になります。
excelで計算問題のプログラムを組んでいます。
計算時間を表示しながら、問題を解くようにしたいと考えています。
タイマー表示を下記で行っていますが、セルに文字を入力するとタイマーが止まってしまいます。タイマーを動作させながら、文字入力を行うことは、Excelでは無理でしょうか？
キー入力中、タイマー停止であれば、達成済みです。

動作は次のようにしています。
１）問題スタートで、下記タイマーを起動
２）答えをキー入力しEnterキーで答え合わせ
３）指定問題数終了で、タイマー停止
４）正解率、トータル時間を表示

Do Until blnStop = True
Cells(3, 10) = Int((Timer - dblTimer) * 100) / 100
DoEvents
Loop

回答No.3

kkkkkm · ベストアンサー

> フォームが開いている間セルの操作を受け付けてくれません。

書き忘れてました
フォームのプロパティでShowModalをFalseにしてください。

お礼

ありがとうございました。
希望通りの表示が出来ました。
フォームの利用は初めてですので、これから勉強したいと思います。
１の方の方法も試してみたいと思います。

回答No.2

HohoPapa

シート上のセルに開始時刻、経過時間、終了時刻を記録しながら
並行して、
そのシート上でデータの入力などを行いたいということと思います。

私だったら、
Application.OnTime メソッド
を使います。

https://excel-ubara.com/excelvba4/EXCEL299.html
を参考に、以下のようにしてみてはいかがでしょうか。

Option Explicit

Public mOnTime As Date

Sub TimerProc()
　With ThisWorkbook.Sheets(1)
　　.Cells(3, 4).Value = Format(.Cells(2, 4).Value - Now, "hh:mm:ss")
　End With
End Sub

Sub OnTimeStart()
　Call TimerProc
　mOnTime = Now() + TimeSerial(0, 0, 1)
　Call Application.OnTime(mOnTime, "OnTimeStart")
End Sub

Sub OnTimeStop()
　'同一のProcedureとEarliestTimeがないとエラーになる
　On Error Resume Next
　Call Application.OnTime(mOnTime, "OnTimeStart", , False)
End Sub

Sub JobStart()
　With ThisWorkbook.Sheets(1)
　　.Cells(2, 4).Value = Format(Now, "hh:mm:ss")
　　OnTimeStart
　End With
End Sub

Sub JobStop()
　OnTimeStop
　With ThisWorkbook.Sheets(1)
　　.Cells(4, 4).Value = Format(Now, "hh:mm:ss")
　End With
End Sub

お礼

回答ありがとうございます。
ontimeメソッドはセルに入力中はタイマが止まり、入力を終えると、再稼働し正しい経過時間を示します。私の方法と同じく、タイマを動かし続けることが出来ません。

回答No.1

kkkkkm

こちらの方法を参考にしてみたらいかがでしょう。

ユーザーフォームに時計をつけてみる
https://e-vba.com/userformwatch/

補足

時計の起動／表示は、出来ましたが、フォームが開いている間セルの操作を受け付けてくれません。やり方が間違っているのでしょうか？
時計を動かしながら、セルの操作を行いたいのですが？