excel - 组合框日期格式

Question

我正在处理 Excel 工作表，我需要一个日期范围内的所有数据。

我创建了一个带有两个组合框(一个用于开始日期，另一个用于结束日期)的用户表单来选择日期范围。

当我选择日期时，它以数字格式显示。例如41118，日期为 2012 年 7 月 28 日。

Private Sub ComboBox1_Change()
ComboBox1.Value = Format(ComboBox1.Value, "dd-mm-yyyy")
End Sub

问题已解决，但速度很慢，需要 10-15 秒才能选择日期。

Answer 1

在更改事件中更改组合框的值将再次触发该事件，这有点像循环。尝试在更改值之前禁用事件，然后再启用它们:

Private Sub ComboBox1_Change()
Application.EnableEvents = False
ComboBox1.Value = Format(ComboBox1.Value, "dd-mm-yyyy")
Application.EnableEvents = True
End Sub