Sub 今の時間を取得する() 時刻1 = Format(Time, "hh時mm分") 時刻2 = Format(Time, "hh時mm分ss秒") Range("B1") = 時刻1 Range("B2") = 時刻2 End Sub