Excel VBA 44 Excelで選択したセルの西暦を和暦に変換

Excelで選択したセルの西暦を和暦に変換します。手動でメニューから変更するのが面倒なので作りました。

Sub ConvertToWareki()

Dim cell As Range

Dim wareki As String

' 選択範囲の各セルを処理

For Each cell In Selection

If IsDate(cell.Value) Then

' 和暦（元号）に変換

wareki = Format(cell.Value, "gggee年m月d日")

cell.Value = wareki

End If

Next cell

End Sub

"gggee年m月d日"の部分を変更することで処理結果を調整出来ます。

西暦を選択して実行・・・

処理結果。