Sub 処理完了時間を計測表示する()
    
    '開始時間を取得
    開始時間 = Time

        Application.Wait Now + TimeValue("0:00:03") 'テストのため3秒待機
    
    '完了時間を取得
    完了時間 = Time
    
    '処理にかかった時間を引き算で計算
    処理時間 = 開始時間 - 完了時間
    
    'Minuteを使って見やすくする
    MsgBox "処理時間 " & Minute(処理時間) & "分 " & Second(処理時間) & "秒"
    
End Sub