Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
VBAタイマーで他セル入力するとタイマーが止まってしまう
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30801#CommentId85460
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
湯
 (社会人)
投稿日時
2022/10/7 17:34:39
度々お世話になっております。
VBAを用いて、あるエクセルシートにストップウォッチ機能を付けたいと思っています。
下記コードのようにストップウォッチスタートボタンを作成したのですが、スタート後にエクセル内の他セルの編集をするとタイマーが止まってしまいます。
ストップボタンを押すまでストップウォッチのカウントを止めない方法はありますでしょうか?
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("A1") = 0 Then
StartTime = Timer
PauseTime = 0
LastTime = 0
Else
StartTime = 0
PauseTime = Timer
End If
StartIt:
DoEvents
If StopIt = True Then
LastTime = TotalTime
Exit Sub
Else
FinishTime = Timer
TotalTime = FinishTime - StartTime + LastTime - PauseTime
TTime = TotalTime * 100
HM = TTime Mod 100
TTime = TTime \ 100
hh = TTime \ 3600
TTime = TTime Mod 3600
MM = TTime \ 60
SS = TTime Mod 60
Range("A1").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
If ResetIt = True Then
Range("A1") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
LastTime = 0
PauseTime = 0
End
End If
GoTo StartIt
End If