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

Question

我有一个listview，但是启动宏时，它将日期格式从“ [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 .text替换为.value with .text之后，请尝试如下所示：

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

时间和日期只是excel中今天日期的数字的掩码，或者时间值只是具有以下格式掩码的数字

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将显示2014/03/24下午12:49:23

检查一下

问候克劳迪奥