１５２：時間を測定マクロ

時間を測定するマクロをご紹介します。

スタートマクロを作ります。

Sub start()
'
A5のセルに時間を入れるマクロです。
    Range("A5").Select
    ActiveCell.FormulaR1C1 = Now
    Range("A6").Select
End Sub

ストップマクロを作ります。

Sub stope()
'A6のセルに時間を入れるマクロです。
    Range("A6").Select
    ActiveCell.FormulaR1C1 = Now


End Sub

スタートマクロをStartボタンに関連付け、ストップマクロをStopボタンに関連づけて

A7のセルに、＝A6-A5　の式を入れれば、掛かった時間が計算されます。

以下のような感じです。必要に応じて、A５の場所等は自分で変更してください。