在列表视图中更改date格式EXCEL VBA

我有一个列表视图，但是当macros启动时，它将date格式从“[h]：mm：ss”更改为常规。

我的代码说这个

itmX.SubItems(4) = Range("F" & i).Value itmX.SubItems(5) = Range("G" & i).Value itmX.SubItems(6) = Range("H" & i).Value itmX.SubItems(7) = Range("I" & i).Value 

有什么方法可以解决吗？ 为了得到格式“[h]：mm：ss”？ 非常感谢你

Answer 1

编辑

尝试在.value with .textreplace.value with .text之后，它应该看起来像这样：

 timX.SubItems(4) = Range("F" & i).Text 

时间和date只是在excel今天的date中的一个数字的掩码，或者时间值只是具有像下面的格式掩码的数字

 26/01/16 = 42395 1:02:03 = 0,0430902777777778 

有了这个value你可以将子项设置为单元格的基础值

编辑结束

---

您可以使用numberformat属性

 ThisWorkbook.Worksheets("Name of your worksheet").Range("A1").NumberFormat = "[H]:mm:ss" 

Answer 2

也许你可以申请这个

 myTimeString.Text = Format(Now, "MM/dd/yyyy h:mm:ss tt") 

即输出

myTimeString将显示03/24/2014 12:49:23 PM

检查这个

问候克劳迪奥