エクセルの表を直してみる(5)

ここから、力業になってて。どうなんだろーか。適当すぎる...。

とりあえず、DateAddというのがあって、-1っていうのは、1年前の年にするってこと。
2017年4月5日を2016年4月5日に修正しています。
今が12月にその年度の4月をする場合に、修正はいらないので
If Month(Date) < 4 Then '今が1,2,3月の場合に
を満たさないのでそのまま。

今が1月でその年度の4月をする場合に、2017年4月になってしまったのを2016年4月にします。
If Month(Date) < 4 Then '今が1,2,3月の場合に
  If Month(Cells(行, 列)) > 3 Then '該当のセルの月が4から12であって
If Year(Cells(行, 列)) >= Year(Date) Then '該当のセルの年が、今より大きいか等しい場合に

大きいってありえないのだけど、「等しければ(2017=2017)」前年にするってやったら
小さくても前年にやっちゃったんだよねー。
Ifは全部end ifで閉じていきます。


If Month(Date) < 4 Then '今が1,2,3月の場合に

If Month(Cells(行, 列)) > 3 Then '該当のセルの月が4から12であって

If Year(Cells(行, 列)) >= Year(Date) Then '該当のセルの年が、今より大きいか等しい場合に

Cells(行, 列).Value = DateAdd("yyyy", -1, Cells(行, 列)) '1年前の日付にする

End If


End If


End If
スポンサーサイト

コメントの投稿

非公開コメント

プロフィール

とも

Author:とも
FC2ブログへようこそ!

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
FC2カウンター
検索フォーム
RSSリンクの表示
リンク
QRコード
QR