エクセル マクロVBAで経過時間を分で表す方法

ストップウォッチの機能をもつVBAの数式が以下です。

Sub スタート()
Range("A1").Value = Now '現在の日時をセルA1に書き込みます。
End Sub

Sub ストップ()
Range("C1").Value = Format(Now - Range("A1").Value, "h:mm:ss") 'かかった時間をセルA1に書き込みます。
End Sub

このかかった時間の表示をｍｍ（分）で表したいのですがどう編集すればよいか
分かりません。ご回答よろしくお願い致します。

No.3 ベストアンサー 回答者： tom04 回答日時： 2018/05/28 08:48

こんにちは！

＞このかかった時間の表示をｍｍ（分）で表したいのですが・・・

Sub ストップ()
With Range("C1")
.NumberFormatLocal = "[mm]"
.Value = Now - Range("A1").Value
End With
End Sub

ではどうでしょうか？m(_ _)m

この回答へのお礼

1番わかりやすかったです！
とても助かりました。
ありがとうございます。

他のお二方もありがとうございました。

お礼日時：2018/05/28 16:44

No.2 回答者： ArranMALT 回答日時： 2018/05/28 00:00

未完成ですが、いかがでしょうか

Sub ストップ()

Dim d As Date
d= Now
Range("C1").NumberFormatLocal = "G/標準"
Range("C1").Value = (Minute(d)+Hour(d)*60)-(Minute(Range("A1").Value)+Hour(Range("A1").Value) * 60)
'かかった時間をセルA1に書き込みます。

End Sub

年月日をまたぐ計算が抜けてます。
年月日をまたぐ計算が必要なら、Day(d)、Month(d)、Year(d)をそれぞれ計算してください。

No.1 回答者： よろずやkinchan 回答日時： 2018/05/27 23:28

(Now - Range("A1").Value)の値を24倍すれば時間

24×60倍すれば分
24×60×60倍で秒になります。
へたに計算すると丸められちゃいますのでお気を付けください。
ま、秒で丸めて分にするときに切り捨てる、とか色々お試しください。