從組合框的單元格中插入日期

我想從組合框的窗體中的單元格中插入日期。我讓我的按鈕看起來像我想要的樣子，但是當我在單元格中插入日期時以文本格式顯示。如何以日期格式設置單元格中的值？從組合框的單元格中插入日期

Private Sub UserForm_Initialize() 

Dim i As Integer 

Combobox1.List = Worksheets(3).Range("AM3:AM13").Value 

For i = 0 To Combobox1.ListCount - 1 
    Combobox1.List(i) = Format(DateValue(Combobox1.List(i)), "dd mmm") 
Next i 

End Sub 


Private Sub ComboBox1_Change() 
'Nothing here 
End Sub 

Private Sub InsertButton_Click() 
    ActiveCell.Value = Combobox1.Value 
End Sub

感謝

來源

2017-08-14 Boris Zahariev

'ActiveCell.NumberFormat = 「{挑選您的格式}」'你添加日期之前。 –

感謝您的回答，但它不起作用。這改變了單元格的格式，但在該單元格之後的單元格是文本格式。我認爲有必要改變這裏： 'Combobox1.List（i）= Format（DateValue（Combobox1.List（i）），「dd mmm」）' –

你使用什麼格式？「dd mmm」對我來說工作得很好（但是由於你的組合框沒有年份，它將默認工作表中的當前年份）。 –