ストップウォッチ改（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

Sub StartStop()

これは、元々の、
ストップウォッチ（1/100秒）（Timer）

ここに掲載したVBAコードとほぼ同じです。

Sub LapSplit()

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

Sub LapSplitClear()

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

ダウンロード

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

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

同じテーマ「マクロVBAサンプル集」の記事

Beep音で音楽（Beep,Sleep）
日付の検索（配列の使用）
ストップウォッチ（1/100秒）（Timer）
ストップウォッチ改（1/100秒）（Timer）
重複の無いユニークなデータ作成
 WEBデータの取得方法
 右クリックメニューの変更（CommandBars）
エクセルのアイコン取得（FaceID）
素数を求めるマクロ
 入力規則のリスト入力を確認する
 配色を使用したカラー設定を固定カラーに再設定

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.変数宣言のDimとデータ型｜VBA入門
7.ひらがな⇔カタカナの変換｜エクセル基本操作
8.繰り返し処理（For Next)｜VBA入門
9.徹底解説(VLOOKUP,MATCH,INDEX,OFFSET)｜エクセル関数超技
10.セルに文字を入れるとは（Range,Value）｜VBA入門

ホーム
マクロVBA応用編
マクロVBAサンプル集
ストップウォッチ改（1/100秒）（Timer）

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。

VBAサンプル集
ストップウォッチ改（1/100秒）（Timer）