VBA 値が月末の時は月に1を足して日は1とする

質問

よろしくお願いします。

次へのコマンドボタンを押すと下の段にカーソルが移動します。
※1　その時に日に1を足して表示しますが、前段の値が月末の時は、
自動的に月に1を足して日は1とする。
※2　同じように月が12の場合は年に1を足して月は1、日も1とする

TextBox1⇒年
TextBox2⇒月
TextBox3⇒日

ActiveCell.offset(1, 0).Activate
TextBox3.Value = TextBox3.Value + 1
ActiveCell.Value=TextBox1.Value &"/"& TextBox2.Value &"/"& TextBox3.Value

回答No.2

imogasi · ベストアンサー

こんなことを質問しているのは、エクセルでは、「日付を入力すると、日付シリアル値という、１９００年１月１日から数えて、その日が何番目の日に当たるかの、順序数でセルの値が保持される、」ことを明確に勉強してないということではないか。
VBAをやるには、VBA独自（プロクラムコードなど）のことだけでなく、エクセルのしくみや、機能を先に勉強しておくべきなんだ。
変数のことや、文字コード関連、フォントなど沢山あると思う。
＞自動的に月に1を足して日は1とする
とは、これを特殊パターンとして捉えるのでなく、次の日、すなわち＋１した日付を作ればよい。
後はその日付シリアル値から、西暦年や月や日の数字は、セルの表示やプログラムの中での「表示形式の問題」に引き渡されるのだ。
＋１した日付シリアル数が次月に当たれば（月末日を越えれば）、月数も＋１され、日の数字も、月末数字を考慮して、正しく表示される。
和暦の年号なども、裏（エクセルのシステ側）で計算して処理しているわけだ。
だから月末日を判定して
その場合だけ、＋１した値を新しい変数などに保持すればよい。
月末日の判定は、＋１した月数の、１日の前日（－１した数）で出せる。
ーーー
テスト例を挙げておく
A1:B4　B列は結果。
2019/7/30
2019/7/31 月末
2019/8/1
2019/8/31 月末
コード（標準モジュール）
Sub test01()
For i = 1 To 4
x = Cells(i, "A")
If x = DateSerial(Year(x), Month(x) + 1, 1) - 1 Then
Cells(i, "B") = "月末"
End If
Next i
End Sub
＝＝＝＝
勿論EOMONTH関数を使う、などのやり方があるのは存じているよ。
http://officetanaka.net/excel/function/function/eomonth.htmhttp://officetanaka.net/excel/function/function/eomonth.htm
エクセル関数愛好者などはどうぞ。
＞このEOMONTH関数は、VBAでWorksheetFunctionから呼び出すこともできます。

回答No.1

watabe007

参考に
Private Sub CommandButton1_Click()
　　ActiveCell.Offset(1).Activate
　　With ActiveCell
　　　　.Value = .Offset(-1).Value + 1
　　　　Me.TextBox1.Value = Year(.Value)
　　　　Me.TextBox2.Value = Month(.Value)
　　　　Me.TextBox3.Value = Day(.Value)
　　End With
End Sub