ストップウォッチ改（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）
Sub LapSplit()
同じテーマ「マクロVBAサンプル集」の記事
Beep音で音楽（Beep,Sleep）
日付の検索（配列の使用）
ストップウォッチ（1/100秒）（Timer）
ストップウォッチ改（1/100秒）（Timer）
重複の無いユニークなデータ作成
WEBデータの取得方法
右クリックメニューの変更（CommandBars）
エクセルのアイコン取得（FaceID）
素数を求めるマクロ
入力規則のリスト入力を確認する
配色を使用したカラー設定を固定カラーに再設定
新着記事NEW ・・・新着記事一覧を見る
IfステートメントとIIF関数とMax関数の速度比較｜VBA技術解説（6月23日）
Withステートメントの実行速度と注意点｜VBA技術解説（6月6日）
VBA+SeleniumBasicで検索順位チェッカー（改）｜VBA技術解説（6月2日）
マクロでShift_JIS文字コードか判定する｜VBA技術解説（6月1日）
Shift_JISのテキストファイルをUTF-8に一括変換｜VBAサンプル集（5月31日）
「VBAによる解析シリーズその2 カッコ」をやってみた｜エクセル（5月21日）
VBA+SeleniumBasicで検索順位チェッカー作成｜VBA技術解説（5月18日）
テーブル操作のVBAコード（ListObject）｜VBA入門（5月12日）
テーブル操作の概要（ListObject）｜VBA入門（5月12日）
VBAのスクレイピングを簡単楽にしてくれるSelenium｜VBA技術解説（5月6日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
3.RangeとCellsの使い方｜ExcelマクロVBA入門
4.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
5.変数とデータ型（Dim）｜ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換｜エクセル基本操作
7.繰り返し処理（For Next)｜ExcelマクロVBA入門
8.マクロって何？VBAって何？｜ExcelマクロVBA入門
9.空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）｜VBA技術解説
10.ExcelマクロVBAの基礎を学習する方法｜エクセルの神髄
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。