带有列表的Excel VBA填充组合框显示#####？答案

【问题标题】：Excel VBA filling combobox with list shows #####?带有列表的Excel VBA填充组合框显示#####？
【发布时间】：2016-05-31 03:20:23
【问题描述】：

我在工作表的一列中有一个时间列表（显示为下午 1:00），我正在尝试将其加载到用户窗体中：

Dim Converter() As String
ReDim Converter(LastRow)
For i = 0 To (LastRow)
    Converter(i) = Cells(i, 1).Text
Next i
JobStartSelect.List = Converter()

当我缩小到 excel 将一些较长时间转换为 ##### 的点时，我注意到我的组合框列表也会显示 #####，即使列表框本身有足够的空间.有没有办法解决这个问题？

最好我可以将它作为时间值完全加载到组合框中，这可能会解决这个问题，因为我打算用它进行计算。就目前而言，我使用文本填充组合框，然后单独加载值以进行计算。

【问题讨论】：

如果您想知道为什么会收到####，那么您可能想阅读以下内容：stackoverflow.com/a/17363466/1153513
解决方案取决于您在 A 列中实际存储的内容。日期/时间是实际日期/时间，还是您认为有效日期/时间但未被识别为的文本这样的Excel？为了更好地理解我的问题，您可能需要阅读以下内容：stackoverflow.com/questions/37100821/…

标签： excel vba combobox

【解决方案1】：

试试

Converter(i) = Cells(i, 1).Value2

或

Converter(i) = format(Cells(i, 1),"hh:mm:ss AM/PM")

【讨论】：

它似乎和.Value做同样的事情？ - 它把我所有的东西都显示为小数。我想显示 AM/PM 列表。