VBA学習ツール無料配布！#46 テーマ:vbaで日付計算をしよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("読み込み＆書き込みシート")
    ' シート「読み込み＆書き込みシート」をアクティベートする
    ws.Activate
    Dim todayCell As Range: Set todayCell = ws.Cells(6, 2)
    Dim afterCell As Range: Set afterCell = ws.Cells(12, 2)
    ' 今日の日付を取得する
    Dim today As Date: today = Date
    ' 加算する日数を取得する
    Dim afterDayNum As Integer: afterDayNum = ws.Cells(9, 3).Value
    ' 後日の日付を計算, 取得する
    Dim afterDay As Date: afterDay = DateAdd("d", afterDayNum, today)
    ' 日付を入力する
    todayCell.Value = today
    afterCell.Value = afterDay
    MsgBox "日付計算を完了しました！", vbInformation
End Sub