動作検証バージョン:Windows 11 Home + 64bit Excel(バージョン2308 ビルド16721.20002 クイック実行)
「vba 翌月1日入力」
といった検索でアクセスがありました。
Excel VBAで、翌月の1日をセルに入力するには、どのようなコードを書けばいいのかを調べていらしたのだろうと、推測しています。
[スポンサードリンク]
翌月1日の日付データをセル入力するサンプルマクロ
以下のExcelマクロを実行すると、A1セルに翌月1日の日付データが入力されます。
Sub 翌月1日をセルに入力する()
Range("A1").Value = _
DateSerial(Year(Now), Month(Now) + 1, 1)
End Sub
Range("A1").Value = _
DateSerial(Year(Now), Month(Now) + 1, 1)
End Sub
VBAの式
DateSerial(Year(Now), Month(Now) + 1, 1)
の戻り値を、Range.Valueプロパティを使って入力しています。
翌月1日を取得する「DateSerial(Year(Now), Month(Now) + 1, 1)」の意味は、ご紹介済みの記事をご覧ください。
翌月1日を表示する数式をセル入力するサンプルマクロ
「vba 翌月1日入力」
と検索なさった方が求めていらしたのは、上記のマクロだと思うのですが、翌月1日を自動的に表示するExcelの数式を入力するマクロもあわせて理解することをおすすめします。
Sub 翌月1日を表示する数式をセルに入力する()
Range("A2").Formula = _
"=DATE(YEAR(TODAY()), MONTH(TODAY())+1, 1)"
End Sub
Range("A2").Formula = _
"=DATE(YEAR(TODAY()), MONTH(TODAY())+1, 1)"
End Sub
こちらは、Range.Formulaプロパティを使って、Excelの数式を入力しています。
[スポンサードリンク]
Home » Excel VBA Rangeオブジェクト » セル数式 » VBAで翌月1日のデータをセルに入力する&翌月1日を表示する数式を入力する