从组合框在单元格中插入日期答案

【问题标题】：Insert dates in cell from a combobox从组合框在单元格中插入日期
【发布时间】：2017-08-14 22:15:43
【问题描述】：

我想使用 Combobox 在我的表单中的单元格中插入日期。我让我的按钮看起来像我想要的那样，但是当我在单元格中插入日期时，它是文本格式的。如何以日期格式设置单元格中的值？

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

谢谢

【问题讨论】：

ActiveCell.NumberFormat = "{pick your format}" 在添加日期之前。
感谢您的回答，但它不起作用。这会更改单元格的格式，但在单元格中的日期之后是文本格式。我认为有必要在这里改变一些东西：Combobox1.List(i) = Format(DateValue(Combobox1.List(i)), "dd mmm")
你使用的是什么格式？ “dd mmm”对我来说很好用（但由于您的组合框中没有年份，它将默认为工作表上的当前年份）。

标签： excel vba date combobox

【解决方案1】：

感谢您的回复。看看这两个日期有什么区别。某些函数存在格式不同的问题，无法正常工作。

When I insert a date with a Combobox

When I insert a date without a combobox

【讨论】：