如何使用vba將日期添加到日期的現有單元格值

Question

我必須爲單元格值日期添加一個額外的日期。

我在單元格中有日期，即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