求助老师，用VBA实现时间格式精减！

netbluesky · 发表于 2024-3-1 23:28

用VBA实现：将B列的时间格式精减成 D列的格式

B列时间格式精确到毫秒级，请将毫秒舍掉
毫秒舍掉的同时，不要四舍五入到秒级

test.rar (613 Bytes, 下载次数: 20)

shiruiqiang · 发表于 2024-3-2 08:40

format(a列，“hh:mm:ss”)试试

netbluesky · 发表于 2024-3-2 08:54

shiruiqiang 发表于 2024-3-2 08:40
format(a列，“hh:mm:ss”)试试

用format 来实现的结果是，毫秒被四舍五入了，不符合要求！

^星^ · 发表于 2024-3-2 08:56

直接变成文本，然后用文本函数截取

nbtooyou · 发表于 2024-3-2 08:59

不知道是不是你想要的不。
代码：
Sub 获取时间()
Dim 最后位置 As Long
最后位置 = Cells(Rows.Count, "B").End(xlUp).Row

Dim i As Long
For i = 1 To 最后位置
      If IsDate(Cells(i, "B").Value) Then
         Cells(i, "C").Value = Format(Cells(i, "B").Value, "hh:mm:ss")
      End If
Next i
End Sub

netbluesky · 发表于 2024-3-2 09:01

^星^ 发表于 2024-3-2 08:56
直接变成文本，然后用文本函数截取

变成文本前要先转换，转换的过程毫秒被四舍五入了

^星^ · 发表于 2024-3-2 10:39

本帖最后由 ^星^ 于 2024-3-2 10:40 编辑

test.zip (21.11 KB, 下载次数: 12)

Enocheasty · 发表于 2024-3-2 11:04

用公式就可以了，把你的目标单元格乘于100000取整后再除于100000，格式h:mm:ss
=INT(B2*100000)/100000

huarong7984 · 发表于 2024-3-2 12:20

Enocheasty 发表于 2024-3-2 11:04
用公式就可以了，把你的目标单元格乘于100000取整后再除于100000，格式h:mm:ss
=INT(B2*100000)/100000

准确函数公式：=TEXT(INT(B3*1000000-5)/1000000,"HH:MM:ss")

Enocheasty · 发表于 2024-3-2 12:30

huarong7984 发表于 2024-3-2 12:20
准确函数公式：=TEXT(INT(B3*1000000-5)/1000000,"HH:MM:ss")

多谢指正，确实是的

		自动登录	找回密码
密码			免费注册

[求助] 求助老师，用VBA实现时间格式精减！

评分