Private Sub cboMonth1_Change()
Dim rng As Range
Dim rngStart As Range
Dim rngEnd As Range
Dim dt As Worksheet
Dim strStart As String
Dim strEnd As String
Dim ICell As Range
Set dt = Worksheets("Sheet1")
If Me.cboMonth1.Value = "January" Then
Set rng = Range("J2")
ElseIf Me.cboMonth1.Value = "February" Then
Set rng = Range("AO2")
End If
If rng.MergeCells Then
Set rng = rng.MergeArea
Set rngStart = rng.Cells(1, 1)
Set rngEnd = rng.Cells(rng.Rows.Count, rng.Columns.Count)
strStart = Mid(rngStart.Address, 1, Len(rngStart.Address) - 1)
strEnd = Mid(rngEnd.Address, 1, Len(rngEnd.Address) - 1)
Me.cboStartDate.Clear
For Each ICell In dt.Range(strStart & "3 : " & strEnd & "3")
Me.cboStartDate.AddItem (ICell.Value)
Next ICell
Else
MsgBox ("Not merge cells")
End If
End Sub
单元格格式：
Custom dd/mm示例：在单元格J3中，它包含1/1/1900，但是J3值在组合框中显示12/31/1899，最后一项将显示30/1/1900。我期望如果选择1月，则组合框将包含1/1/1900-31/1/1900的日期。
我尝试打印单个值
MsgBox (dt.Range("J3").Value)，但它给我12/31/1899，但该单元格的内容是1/1/1900。*请注意，我没有任何可更改单元格内容的代码。
最佳答案
问题是VBA如何存储日期和时间-实际上它们是Doubles，其中Integer部分是自1899年12月31日以来的天数。问题在于它根本无法在“ 0”天和“ 1”天正常工作。我不确定问题是浮点精度还是在Excel-VBA转换中丢失了一些东西，但是您可以通过以下代码看到效果：
Debug.Print Format(CDate(0), "dd/mm/yyyy") 'Outputs 12/30/1899
Debug.Print Format(CDate(1), "dd/mm/yyyy") 'Outputs 12/30/1899
Debug.Print Format(CDate(2), "dd/mm/yyyy") 'Outputs 01/01/1900
Debug.Print Format(CDate(3), "dd/mm/yyyy") 'Outputs 01/02/1900
解决方案（尽管令人讨厌）是使用单元格的Text并将其强制转换为日期（除非您只需要字符串，在这种情况下根本不要强制转换）：
For Each ICell In dt.Range(strStart & "3 : " & strEnd & "3")
Me.cboStartDate.AddItem CDate(ICell.Text)
Next ICell
具有1/3/1900之前日期转换的不可逆性的更多提示性演示代码：
Debug.Print CDate(ActiveSheet.Range("J3").Text) 'Outputs 01/01/1900
Debug.Print CDate(ActiveSheet.Range("J3").Value) 'Outputs 12/30/1899
Debug.Print CDbl(CDate(ActiveSheet.Range("J3").Text)) 'Outputs 2
Debug.Print CDbl(CDate(ActiveSheet.Range("J3").Value)) 'Outputs 1