エクセルでの和暦新元号(令和)変換方法(Excel)

マイクロソフト社はOSの改元UPDATEについて
win7はマンスリー ロールアップKB4493453
WIN10はKB4501835
をやっと公開した。しかし前者はオプション、後者手動なので少なくとも後者は自力でUADATEが必要。以下参考。自己責任
https://support.microsoft.com/ja-jp/help/4493453/windows-7-update-kb4493453
https://www.softantenna.com/wp/windows/windows-10-version-1809-cumulative-update-kb4501835/
https://www.catalog.update.microsoft.com/Search.aspx?q=KB4501835
しかしOFFICE2007版は対象外。以下はそんなエクセルでの令和対策メモ
1:2019年限りの対策なら西暦日付を入力したセルの書式設定(Ctrl+1)で表示形式タブのユーザ定義(G/標準)を以下の書式に設定する
[>=43586]"令和1年"m"月"d"日";[$-411]ggge"年"m"月"d"日";@  または
[>=43586]"令和元年"m"月"d"日";[$-411]ggge"年"m"月"d"日";@  
この方法はシリアル値表示が和暦に変わるだけなので演算が可能だし明治・大正・昭和・平成・令和の連続表現が出来るがこの令和表現は手動固定方式なので今年限りの措置(もしこの方式で継続するのであれば、令和2年になればまた
[>=43831]"令和2年"m"月"d"日";[$-411]ggge"年"m"月"d"日";@ 
などとの対応が必要になる)
2:入力セルと表示セルが異なってもよい場合は様々な方法がある
①西暦入力セルA1とすれば任意のセルに以下の式を入力する
=IF(A1>=DATE(2019,5,1),"令和" & YEAR(A1)-2018 & "年" & MONTH(A1) & "月" & DAY(A1) & "日",A1)
あるいは
=IF(A1>=DATE(2020,1,1),"令和" & YEAR(A1)-2018 & "年" & MONTH(A1) & "月" & DAY(A1) & "日",IF(A1>=DATE(2019,5,1),"令和元年" & MONTH(A1) & "月" & DAY(A1) & "日",A1))
ただし書式は和暦に設定すること

②自分で関数を作る
VBAの標準モジュールに以下のコードを記述し和暦という関数を自作する(Alt+F11→挿入→標準モジュール)

Function 和暦(西暦 As Date) As String
Select Case True
Case 西暦 >= DateValue("2019/05/01")
和暦 = "令和" & Year(西暦) - 2018
Case 西暦 >= DateValue("1989/01/08")
和暦 = "平成" & Year(西暦) - 1988
Case 西暦 >= DateValue("1926/12/25")
和暦 = "昭和" & Year(西暦) - 1925
Case 西暦 >= DateValue("1912/07/30")
和暦 = "大正" & Year(西暦) - 1911
Case Else
和暦 = "明治" & Year(西暦) - 1867
End Select
和暦 = 和暦 & "年" & Month(西暦) & "月" & Day(西暦) & "日"
End Function

使うときには任意のセルに以下のように入力する

=和暦(2019/5/1) あるいは西暦入力セルA1として
=和暦(A1)

この方法は便利だがマクロ形式の保存ファイルになる

<おまけ>
OSのUPDATEしてもエクセルの今年の年号表示は令和1年となる。これを令和元年とするにはセルの条件付書式設定(ホーム→スタイル→新しい書式ルール→指定の値を含むセルだけを書式設定→次のセルのみの書式設定)で2019年5月1日から2019年12月31日までのセル値間について書式設定のユーザ定義(書式形式)を「"令和元年"m"月"d"日"」とすればOK
参考URL
https://forest.watch.impress.co.jp/docs/news/1182904.html
https://kokodane.com/tec3_3.htm
https://forest.watch.impress.co.jp/docs/news/1182431.html
https://tenoneupexcel.jimdo.com/3-%E4%BE%BF%E5%88%A9%E3%81%AA%E9%96%A2%E6%95%B0%E3%81%A70-1up/%E6%94%B9%E5%85%83%E5%AF%BE%E7%AD%96%E3%82%92%E8%80%83%E3%81%88%E3%82%8B/
http://www.eurus.dti.ne.jp/~yoneyama/Excel/waza/gengou.html
https://qiita.com/ht_deko/items/249db60e1c99ba440969
https://support.microsoft.com/ja-jp/help/4497197/how-to-prepare-windows-and-office-for-the-may-2019-japan-era-change
https://nozangyo.com/windowsupdate_temp_201904/#toc3
https://blogs.yahoo.co.jp/n_hirahira18/50501872.html

ブログ気持玉

クリックして気持ちを伝えよう!

ログインしてクリックすれば、自分のブログへのリンクが付きます。

→ログインへ

なるほど(納得、参考になった、ヘー)
驚いた
面白い
ナイス
ガッツ(がんばれ!)
かわいい

気持玉数 : 0