VBA ComboBox Time - 与其他人相反

Question

我的UserForm有一个组合框，应该显示时间。我在工作簿中的3张表中添加了4行包含小时数。

Sheet1被命名为EE Data，Rows = P1：P4，Format = Time。此范围已使用名称管理器命名为TZ。

我已经搜索过并且能够发现人们在使用下拉列表选择组合框时显示组合框显示时间的问题。我的问题与之相反，即下拉列表以十进制显示时间，而不像excel表中的源时间。请告诉我如何解决此问题。

以下是我正在使用的代码。

Private Sub PR()                                           
Dim cLoc As Range
Dim ws As Worksheet
Set ws = Worksheets("EE Data")
 For Each cLoc In ws.Range("TZ")
 With UserForm1.ComboBox1
 .AddItem cLoc.Value
  End With
 Next cLoc
 End Sub

谢谢！

P1是上午8:30 P2是上午9点 P3是上午10点 P4是上午11:00

TimeError

Answer 1

转到Combobox的属性并将Property“Row Source”设置为“TZ”（你的Range名称）。