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

Question

I have a listview but when macro is launched, it changes date format from "[h]:mm:ss" to General.

My code says this

    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

Is there any way to fix it? In order to get format "[h]:mm:ss"? Thank you very much

Answer 1

Edit

try after you've replaced the .value with .text , it should look like this:

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

times and dates are just masks for a number in excel today's date or a time value are just numbers with a format mask like below

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

With the value you're setting your subitems to the underlying value of the cell

End of Edit

---

You could use the numberformat property

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

Answer 2

maybe you can apply this

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

ie output

myTimeString will display 03/24/2014 12:49:23 PM

Check this

Regards Claudio