Time関数を使用したプログラミング例を紹介します。
例題
例題は、Time関数を使用して<STAT/STOP>ボタンをクリック（1回目）するとクリックされた時点での時刻が開始時刻にセットされ、もう一度クリック（2回目）するとクリックされた時点での時刻が終了時刻にセットされます。また、2回目のクリックでは開始時刻～終了時刻までの秒数を算出して結果にセットするプログラミング方法です。
[実行前]：
※開始時刻と終了時刻を取得する<STAT/STOP>ボタンを用意します。
[実行後]：
※<STAT/STOP>ボタンをクリックすると、開始時刻（A2セル）にクリックされた時刻がセットされます。
※もう一度<STAT/STOP>ボタンをクリックすると、クリックされた時刻が終了時刻（B2セル）にセットされます。また、同時に開始時刻～終了時刻までの経過秒数を算出して結果（C2セル）にセットします。
プログラミング
プログラミングは以下の通りとなります。
[記述例]：
Sub サンプル()
If (Range("G2") = "開始") Then
Range("B2") = Time
Range("C2") = DateDiff("s", Range("A2"), Range("B2"))
Range("G2") = ""
Else
Range("A2") = Time
Range("B2:C2") = ""
Range("G2") = "開始"
End If
End Sub
内容を説明すると、
［G2セルが”開始”の場合］：終了時刻（B2セル）に現在の時刻がセットされ、DateDiff関数を使用して開始時刻（A2セル）～終了時刻（B2セル）の経過秒数を結果（C2セル）にセットします。更に、状況（G2セル）をクリアします。
［G2セルが”開始”以外の場合］：開始時刻（A2セル）に現在の時刻がセットされ、終了時刻（B2セル）と結果（C2セル）をクリアします。更に、状況（G2セル）に”開始”の文字をセットします。
との意味になります。
※上記の記述例は、VBE（VBA記述画面）に記述しないと実行ができません。VBEの開き方についてはこちらを参考にして下さい。また、ボタンにプログラムを割り当てるにはこちらを参考にして下さい。
ダウンロード
上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。