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

最終更新日：2018-01-31

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

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

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

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

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

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

ストップウォッチを作ってみましょう。機能は簡単に、・ボタンを押すと、0からスタートし時間表示が進む。・もう一度ボタンを押すとストップする。これだけです。つまり、１つのボタンで、マクロをスタートさせたり、ストップさせたりする方法の紹介になります。

追加する機能

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

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

シートレイアウト

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