【VBA】エクセルで年度を計算するやりかた
enomotoマクロを組んだことがない、という方はこちらを参考にしてはじめの設定をしてください。
次のコードで日付の年度を計算する関数を作成できる。
Private Function nendo(ByVal inputDate As Date) As String
Dim threeMonthsBefore As Date
' 日付の3ヶ月前を計算
threeMonthsBefore = DateAdd("m", -3, inputDate)
' 3ヶ月前の日付の年を取得
' nendo = Year(threeMonthsBefore) & "年度"
nendo = Year(threeMonthsBefore)
End Function
関数で隣のセルの年度を表示させることができる。
Enterを押下すると
Function ***(***) As ***で関数を定義することができる。オリジナルの関数を作成できるということ。Private Function とすることで、このモジュールのみ、このエクセル内のみで使用可能な関数とした。年度=3カ月前は何年だったか、というコンセプトは、こちらと同じだ。
Follow me!
