wie benutzerdefinierte Datum in VBA zuweisen Excel

Question

Ich muss ein Datum für den Benutzer zuweisen, um manuelle Datum als Eingabe und Nutzung der Eingabe zu einem späteren Zeitpunkt. Wenn der Benutzer ein manuelles Datum eingegeben hat, muss er für die Namenskonventionen für den Dateinamen verwendet werden. Ex football 20160601.xlsx

Ich habe einige Website durchlaufen, konnte aber keine Antworten gemäß meiner Anforderung finden.

Mein Code:

Sub date() 
    date_test = Now()  

     Range("A1") = Format(date_test, "mm.dd.yy") ' how to aassign this date as a user defined date(as manual date) something like msg box but not msgbox. 

    End date 

Answer 1

Dim inputDate as Date 
Date = Format(InputBox("Enter a Date", "Input"),"yyyy-mm-dd") 

So etwas wie das?

Wenn Sie möchten, dass ein Datepicker das gewünschte Datum auswählt, erstellen Sie ein neues Benutzerformular und fügen Sie dem Formular das "Microsoft Datums- und Uhrzeitauswahl-Steuerelement" (Extras-> Zusätzliche Steuerelemente) hinzu. Dann können Sie seinen Wert wie folgt verwenden: Format(DatePicker1.Value,"yyyymmdd")