[已解决]新手求助！VBA中内容为时间的两个单元格之间的相减问题！

dongo1992

一个计算历时的问题，用b列的时间减去a列的时间，讲结果保存为“*时*分*秒”的格式，并保存在c列中，我不知道该用哪种方法，之前单纯用value值相减，结果显示是“对象格式不匹配”。

最佳答案

月排行榜 / 总排行榜

爱疯

2015-10-10 16:49

Sub test()
    Dim A, i
    Sheets(1).Activate
    A = Range("a1").CurrentRegion

    For i = 2 To UBound(A)
        A(i, 3) = CDate(A(i, 2)) - CDate(A(i, 1))
    Next i

    Range("c:c").NumberFormat = "h时mm分ss秒;@"
    [c1].Resize(UBound(A)) = Application.Index(A, 0, 3)
End Sub

问题2.rar (10.05 KB, 下载次数: 2)

2015-10-10 16:49 上传

点击文件名下载附件

跳转到最佳答案楼层

dongo1992

自己顶一下！

爱疯

公式和单元格格式，都是对的。下拉即可！

不知是要问什么问题？

dongo1992

爱疯 发表于 2015-10-10 16:26
公式和单元格格式，都是对的。下拉即可！

不知是要问什么问题？

谢谢！我的意思如果我用代码的来实现话，该怎么写呢

爱疯

代码执行后，希望C列里是值，还是公式？

dongo1992

爱疯 发表于 2015-10-10 16:40
代码执行后，希望C列里是值，还是公式？

得到结果，就是最终的值

爱疯

Sub test()
    Dim A, i
    Sheets(1).Activate
    A = Range("a1").CurrentRegion

    For i = 2 To UBound(A)
        A(i, 3) = CDate(A(i, 2)) - CDate(A(i, 1))
    Next i

    Range("c:c").NumberFormat = "h时mm分ss秒;@"
    [c1].Resize(UBound(A)) = Application.Index(A, 0, 3)
End Sub

问题2.rar (10.05 KB, 下载次数: 2)

2015-10-10 16:49 上传

点击文件名下载附件

爱疯

对于负值（比如C3），按excel默认方式处理的，即返回"连续#"。

dongo1992

爱疯 发表于 2015-10-10 16:51
对于负值（比如C3），按excel默认方式处理的，即返回"连续#"。

对，就是这样的，谢谢大神指导！我再研究一下代码！