旧暦の月名を表示する関数 、和暦のカレンダーなどを作る場合などに日付を旧暦の月名に変換できます。
VBEの標準モジュールに下のコードを登録して「Excelマクロ有効フォーム」で保存してください。
関数の登録方法は⇒♯000 ユーザー定義関数を登録する方法
登録されたら、シート上からユーザー関数「 MonthOJ 」が使用できます。
使い方は
ワークシート上で = MonthOJ(日付) の関数として使用することで、旧暦の月名を取得できます。
【例】
MonthOJ(2010/03/02) ⇒ 弥生
Function MonthOJ(D As Date) As String
’ 旧暦の月名を表示する関数
’ MonthOJ(日付)
’ MonthOJ(2010/03/02) ⇒ 弥生
On Error GoTo EXITFUN
Dim MO As Variant
Dim MN As Long
MO = Split(“,睦月,如月,弥生,卯月,皐月,水無月,文月,葉月,長月,神無月,霜月,師走”, “,”)
MN = Month(D)
MonthOJ = MO(MN)
EXITFUN:
End Function
ここで紹介したコード使用による損害に対しては一切責任は負えません。