Excelで選択したセルの和暦を西暦に変換します。手動でメニューから変更するのが面倒なので作りました。
Sub ConvertToSeireki()
Dim cell As Range
Dim seireki As Date
' 選択範囲の各セルを処理
For Each cell In Selection
If IsDate(cell.Value) Then
' 西暦に変換
seireki = CDate(cell.Value)
cell.Value = Format(seireki, "yyyy年m月d日")
End If
Next cell
End Sub
"yyyy年m月d日"の部分を変更することで処理結果を調整出来ます。
和暦を選択して実行・・・
処理結果。
