Kombinationsfeld in einem Datumsformat

Question

mein Benutzerformular verfügt über drei separate Kombinationsfelder für die Benutzer, um die folgenden auszuwählen: Jahr, Monat, Datum (sie sind nicht abhängig). Wenn der Benutzer beispielsweise 2017 (das Jahr), Mai (den Monat) und 23 (den Tag) auswählt, möchte ich, dass die vba in die zweite Spalte meines Datenbankblatts eintritt: "2017/05/23". Ich will es genau in diesem Format als Wert.

Der folgende Code funktioniert nicht. Jede Hilfe wäre willkommen.

Answer 1

Sie teilen das Jahr durch den Monat und teilen das dann durch den Tag. Das ist der Wert, den deine Zelle bekommt.

Erstellen Sie stattdessen ein aktuelles Datum.

.Cells(lRow, 2).Value = DateSerial(cboYear, cboMonth, cboDay) 

Und dann Format, das jede mögliche Weise, datieren Sie es wünschen, mit NumberFormat:

.Cells(lRow, 2).NumberFormat = "yyyy/MM/dd" 

---

DateSerial erwartet ganzzahlige Werte. Wenn Ihre cboMonth Strings (Monatsnamen) enthält, dann müssen Sie es ein bisschen härter arbeiten - die einfachste ist wahrscheinlich nur eine Schlüssel Sammlung verwenden - einen String-Schlüssel angeben, wenn .Add die ganzen Zahlen der Sammlung ing:

Static months As Collection 
If months Is Nothing Then 
    Set months = New Collection 
    With months 
     .Add 1, "January" 
     .Add 2, "February" 
     .Add 3, "March" 
     '... 
     .Add 12, "December" 
    End With   
End If 

Und dann haben Sie eine einfache Lookup:

Dim monthId As Integer 
monthId = months(cboMonth) 

So Ihre DateSerial wäre:

.Cells(lRow, 2).Value = DateSerial(cboYear, monthId, cboDay)