指定の日付の文字列をシリアル値にして、和暦にしてダイアログで表示します。 Sub Sample74() MsgBox Format(DateValue("2016/1/1"), "ggge年mm月dd日") End Sub