C列にある日付をF列に年度で表示させたいのですが、エラーが出てしまい処理が出来ません。
どのように変えればよいか方法はあるでしょうか。
プログラミング初心者のためお力お貸し頂ければ幸いです。
追記
年度は4/1始まり3/31に終わりです。
例)
C列 F列
2007/1/18 → 2006
2008/6/2 → 2008
2009/6/8 → 2009
2009/6/22 → 2009
2012/3/19 → 2011
2004/6/23 → 2004
2013/3/6 → 2012
と表示されるようにしたいです。
↓ネットにあるものを参考に作成したものです。
Sub 年度() Dim n As Date, i As Long i = Cells(Rows.Count, "C").End(xlUp).Row n = Cells(i, 3) Cells(i, 6) = nendo(n, 3) End Sub Function nendo(n, x) nendo = Year(DateAdd("m", -x, n)) End Function
回答4件
あなたの回答
tips
プレビュー