Wie Sie dem vorhandenen Zellenwert des Datums mit vba

Question

Datum hinzufügen Ich muss einen zusätzlichen Monat zum Datum der Zelle hinzufügen.

Ich habe Datum in der Zelle, d. H. 201604. Ich muss einen zusätzlichen Monat zu diesem Datum hinzufügen und müssen diese Daten als Dateiname verwenden. Beispiel: sree 201605.xlsm

Mein Code:

Sub vba() 

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

end sub 

kann mir jemand bitte beantworten.

Answer 1

Bedenken Sie:

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