2,462
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim t, t1 As Date
Dim m, n As Integer
t = "5-31-1999 00:00:00": n = 4: t1 = "6-30-1999 00:00:00"
For m = 1 To DateDiff("h", t, t1)
Sheet1.Cells(n, 5) = t
n = n + 1
t = DateAdd("h", 1, t)
Next
End Sub
Sub test()
Dim t, t1 As Date
Dim m, n As Integer
t = "5-31-1999 00:00:00": n = 4: t1 = "6-30-1999 00:00:00"
For m = 1 To DateDiff("h", t, t1)
Sheet1.Cells(n, 5) =Format(t, "yyyy/mm/dd hh:mm:ss")
n = n + 1
t = DateAdd("h", 1, t)
Next
End Sub
Sheet1.[E4].Resize(n - 4).NumberFormat = "yyyy/mm/dd hh:mm:ss"
Sub test()
Dim t As Date, t1 As Date
Dim m As Double, n As Integer
t = "5-31-1999 00:00:00": n = 4: t1 = "6-30-1999 00:00:00"
For m = t To t1 Step 1 / 24
Sheet1.Cells(n, 5) = m
n = n + 1
Next m
End Sub