VBAで和暦年を取得する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「excel vba 和暦年取得」
「excel vba 元号の年取得」
といった検索で、このサイト・インストラクターのネタ帳へアクセスがありました。

Excel VBA（Visual Basic for Applications）で、西暦年ではなく、平成〇年・昭和〇年のように元号を使った年表記を行うにはどうすればいいのか、探していた方による検索キーワードです。

「excel vba format 和暦元号アルファベット」
という検索は、より具体的に元号を「H」や「S」などのアルファベットで表記する方法を、探していらしたのでしょう。

［スポンサードリンク］

現在の和暦年を取得するサンプルマクロ

以下のSubプロシージャのようにFormat関数を使うことで、元号・和暦年を取得できます。

Sub 現在の和暦年を取得する()
　MsgBox Format(Now, "ggge年")
　MsgBox Format(Now, "gge年")
　MsgBox Format(Now, "ge年")
　MsgBox Format(Now, "e年")
End Sub

VBAのNow関数で取得した現在の日時から、Format関数を使って和暦の年を取得しています。

Format関数の第2引数に、
「ggge」を指定すると「平成29」
「gge」を指定すると「平29」
「ge」を指定すると「H29」
「e」を指定すると「29」
がそれぞれ取得できます。

完全に一致しているわけではありませんが、Excelのユーザー定義書式に使える記号を、VBAのFormat関数でもかなり使えます。

「エクセルvba 和暦を二けたで表示したい」
という検索をなさった方には、以下のSubプロシージャが参考になるでしょう。

Sub 指定した日の和暦年を取得する()
　Const DTM = #11/23/1995#

　MsgBox Format(DTM, "ggge年")
　MsgBox Format(DTM, "gggee年")
End Sub

Windows 95の日本での発売日「1995年11月23日」から、
「ggge」という指定で「平成7」
「gggee」という指定で「平成07」
がそれぞれ取得できます。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「VBA関数」の記事一覧