日付を年度に変換するVBA
いつもありがとうございます。ナカマサです。
事務仕事をしていて、EXCELで日付のデータを年度に変換するって作業がたまにないですか?
(私だけ、、、?)
で、関数とかで変換作業をすると思うんですが、まぁいちいち作るのがめんどくさい。
なので、VBAで日付を年度に変換する自作関数を作ってみましたので共有します。
Function Nendo(Hiduke As Date) As Long
If Month(Hiduke) > 3 Then '月が3より大きい場合は、日付の「年」を表示
Nendo = Year(Hiduke)
Else
Nendo = Year(Hiduke) - 1 '月が3以下場合は、日付の「年」-1を表示
End If
End Function
VBAが分かる人からすると、実にしょーもない内容だと思いますがご容赦ください。
(複雑なプログラムも書けるんだから!笑)
使い方はこんな感じです。
1、VBAの標準マクロを作成
※Alt + F11で以下の画面が開きます。
2、上記のテンプレートをコピペ
コピペできればこの画面はとじてOKです。
3、ワークシート上で使ってみる
SUM関数を使うのと同じように、Nendo関数が使えるようになっているはず・・・。
→「=Nendo(日付)」で年度が表示されます。
プログラムを入れたEXCELは、保存をする際に「マクロ有効ブック」として保存してください。
複雑なプログラミングより、シンプルで使えるもののほうがいいでしょ?笑
少しでも皆様の参考になっていれば幸いです。
こんなのを作って欲しいというリクエストがあれば、コメントでご意見をいただけるとありがたいです。
今回はここまで!ではまた!
この記事が気に入ったらサポートをしてみませんか?