ストップウォッチ改（1/100秒）（Timer）

最終更新日：2018-01-31

ストップウォッチ改（1/100秒）（Timer）

ストップウォッチを作る時の、基本的なVBAコードを以前に公開しましたが、

時々お問い合わせをいただくことがあり、それなりに重宝されているようです。

そこで、もう少し機能強化したものを作成した次第です。

公開済みのストップウォッチ

ストップウォッチ（1/100秒）（Timer）

追加する機能

・ラップタイム（区間の時間）
・スプリットタイム（その時点までの時間）

これらを取得するためのボタンを追加してみました。

シートレイアウト

VBAコード

Option Explicit

Private blnStop As Boolean
Private blnStart As Boolean
Private dblTimer As Double
Private bLap As Double
Private cntLap As Long

Sub StartStop()
　　If blnStart = True Then
　　　　blnStop = True
　　　　Exit Sub
　　End If
　　bLap = 0
　　cntLap = 0
　　blnStart = True
　　blnStop = False
　　dblTimer = Timer
　　Do Until blnStop = True
　　　　Cells(2, 2) = Int((Timer - dblTimer) * 100) / 100
　　　　DoEvents
　　Loop
　　blnStart = False
　　blnStop = False
End Sub

Sub LapSplit()
　　cntLap = cntLap + 1
　　Cells(cntLap + 4, 2) = cntLap
　　Cells(cntLap + 4, 3) = Int((Timer - dblTimer) * 100) / 100 - bLap
　　Cells(cntLap + 4, 4) = Int((Timer - dblTimer) * 100) / 100
　　bLap = Cells(cntLap + 4, 4)
End Sub

Sub LapSplitClear()
　　Range("B4").CurrentRegion.Offset(1).ClearContents
　　bLap = 0
　　cntLap = 0
End Sub

Sub StartStop()

これは、元々の、
ストップウォッチ（1/100秒）（Timer）
ここに掲載したVBAコードとほぼ同じです。

Sub LapSplit()

ラップタイム、スプリットタイムを履歴のように記録します。

Sub LapSplitClear()

ラップタイム、スプリットタイムの履歴を消去します。

ダウンロード

以下でサンプルファイルをダウンロードできます。

エクセルのサンプルダウンロード