公開:16.9.2
Public Sub counttime() Dim starttime, stoptime 'カウント開始 starttime = Time MsgBox "開始" '経過時間を表示 stoptime = Time - starttime MsgBox "完了(" & Minute(stoptime) & "分" & Second(stoptime) & "秒)" End Sub