VBA 日付 変更について

教えてください
条件　セルＢ２にワードAorBと記載
セルA1に日付が記載されており条件としてセルＢ2に条件Aが記載されている場合は1年後　Bの場合は3年後の月末をＢ1に出力するプログラムはどう組めばいいでしょうか？
例セルA1 2017年6月　セルB2条件A 　セルB1 2018年6月末

No.1 ベストアンサー 回答者： fujillin 回答日時： 2017/06/08 17:35

こんにちは

B2セルがA、B以外の場合の処理が不明なので、その際は、とりあえず何もしません。

「月末」の意味するところが文字通り「月末」という文字なのか、6月30日のようなDate型の値なのかわからないので、以下の例はDate型の実際の日付けを返しています。
「月末」などのように表示したい場合は、セルの表示書式の設定でどうにでもなると思いますので…

また、A1セルの値は日付型で入力されているものと仮定しています。

Dim d As Date, a As Integer, v

a = 0
d = Range("A1").Value
v = Range("B2").Value

If v = "A" Then a = 1 Else If v = "B" Then a = 3
If a > 0 Then Range("B1").Value = DateSerial(Year(d) + a, Month(d) + 1, 1) - 1

この回答へのお礼

対応できましたありがとございます

お礼日時：2017/06/08 17:50