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

公開日：2018-01-31　最終更新日：2020-04-11

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

ストップウォッチを作る時の、基本的なVBAコードを以前に公開しましたが、
時々お問い合わせをいただくことがあり、それなりに重宝されているようです。
そこで、もう少し機能強化したものを作成した次第です。

※Office365でスムーズに動作しないので、Sleepを入れて対処してみました。

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

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

・ストップウォッチVBAコード・ストップウォッチVBA解説・ストップウォッチ機能強化版

追加する機能

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

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

シートレイアウト

VBAコード


  
    
      Option Explicit


      Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)


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

      　　　　Sleep 1

　　　　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()

　　Cells(2, 2) = 0

　　Range("B4").CurrentRegion.Offset(1).ClearContents

　　bLap = 0

　　cntLap = 0

      End Sub

Sub StartStop()

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

・ストップウォッチVBAコード・ストップウォッチVBA解説・ストップウォッチ機能強化版

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

Sub LapSplit()

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

Sub LapSplitClear()

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

Sleep

Excel2010では、Sleepが無くてもスムーズに動いていました。
Excel2013では、少しぎこちなさが見受けられました。
そして、Office365ではカクカクになってしまいました。
これに対処するために、Sleep 1を入れてみました。
Sleepは1/1000単位なので、ストップウォッチの機能としては問題ないと思います。

ダウンロード

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

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

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

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

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

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.マクロとは？VBAとは？VBAでできること｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.メッセージボックス(MsgBox関数)｜VBA入門
10.セルのクリア（Clear,ClearContents）｜VBA入門

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

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

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

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