152:時間を測定マクロ

100:エクセル

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

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

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 の式を入れれば、掛かった時間が計算されます。

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

コメント

タイトルとURLをコピーしました