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

时间:2016-01-26 11:25:38

标签: excel vba excel-vba

我有一个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”? 非常感谢你

2 个答案:

答案 0 :(得分:1)

修改

尝试替换.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"

答案 1 :(得分:0)

也许你可以申请这个

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

即输出

  

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

检查this

此致 克劳迪奥