格式化以在组合框和链接单元格输出中显示时间到毫秒值

Question

我正在制作一个工作表，该工作表允许用户在预先记录的数据的两个时间值之间过滤数据。 The time format on this data goes down to the tenth of a second (HH:MM:SS.0) and while the combobox list will display all of these values, when one is selected, it is truncated to just the second value.我做了一些查找，发现了很多关于当前时间调用时间到毫秒的信息，但不仅仅是格式化显示。以下是我的组合框代码当前的读取方式：

Private Sub ComboBox21_Change()

With ComboBox21
    .Value = Format(.Value, "hh:mm:ss")
End With

End Sub

我尝试了几个不同的选项，包括在末尾添加“.0”，但没有成功。另外，我注意到进行选择时链接单元格中的值似乎反映了选择本身的内容。我的印象是链接单元格会显示选择的相对数量与可用选择的总数，这就是我真正需要的。有谁知道如何解决这一问题？

Answer 1

Format 函数似乎无法处理毫秒。

我会改用Application.Text 函数。但是这个函数需要第一个参数是数字。所以我们必须对此进行测试：

Private Sub ComboBox21_Change()

 With ComboBox21
  If IsNumeric(.Value) Then
   .Value = Application.Text(CDbl(.Value), "hh:mm:ss.000")
  End If
 End With

End Sub

编辑：

由于我们在此ComboBox 的_Change 事件中更改ComboBox 的.Value，因此这将始终运行两次。更好的是：

Dim stopCBEvents As Boolean

Private Sub ComboBox21_Change()

 If Not stopCBEvents Then
  With ComboBox21
   'MsgBox .Value
   If IsNumeric(.Value) Then
    stopCBEvents = True
    .Value = Application.Text(--.Value, "hh:mm:ss.000")
    stopCBEvents = False
   End If
  End With
 End If

End Sub

Answer 2

你可以这样做：

.Value = Format(.Value, "hh:mm:ss") & Right(Format(.Value * 24 * 60 * 60, "0.0"), 2)

将零的数量和 2 更改为所需的长度。这将是一个字符串，您需要将其转换回数字。您可以通过引用链接的单元格在 excel 中执行此操作：

=--A1