vbaを使用して日付の既存のセル値に日付を追加する方法

Question

セル値の日付に1ヶ月余分に追加する必要があります。

セルに日付が201604あります。その日付に余分な月を追加し、そのデータをファイル名として使用する必要があります。例：SREE 201605.xlsm

私のコードは：

Sub vba() 

Check_date = Worksheets("abc").Range("A2").Value 
format_date = format(dateadd(check_date("m", 1), "yyyymm")) 

end sub 

誰かが私に答えてくださいすることができます。

Answer 1

は考えてみましょう：

Sub dural() 
    Dim n As Long, s As String, d As Date 

    n = Range("A1").Value 
    d = DateSerial(Left(n, 4), Right(n, 2) + 1, 1) 
    s = Format(d, "yyyymm") & ".xlsm" 
    MsgBox s 
End Sub