Dim t As Single
    t = Timer   '時間計測開始

    'ミリ秒以下の数値丸める。
    Debug.Print "処理時間は " & Round(Timer - t, 2) & " 秒です。"