怎样用EXCEL求和时间?例如分秒这种时间的求和?谢谢!!!
怎样用EXCEL求和时间?例如:4分56秒234分23秒564分44秒33……如何求和?谢谢!!!...
怎样用EXCEL求和时间?
例如:
4分56秒23
4分23秒56
4分44秒33
……
如何求和?谢谢!!! 展开
例如:
4分56秒23
4分23秒56
4分44秒33
……
如何求和?谢谢!!! 展开
展开全部
先把时间调整成以下格式,时:分:秒:毫秒 1:20:30:567
然后ALT+F11,进入EXCEL VBA
这是个时间函数的求和,和普通的SUM用法一样,之不过函数名是 tsum
Function tsum(rng As Range) '自定义函数
Dim sum1%, sum2%, sum3%, sum4%
Dim sum11$, sum22$, sum33$, sum44$
sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0
Application.Volatile
On Error Resume Next
For Each c In rng
a = Split(c, ":")
sum4 = sum4 + Val(a(UBound(a)))
sum3 = sum3 + Val(a(UBound(a) - 1))
sum2 = sum2 + Val(a(UBound(a) - 2))
sum1 = sum1 + Val(a(UBound(a) - 3))
Next
sum44 = Format(sum4 Mod 1000, "000")
sum33 = Format((sum4 \ 1000 + sum3) Mod 60, "00")
sum22 = Format(((sum4 \ 1000 + sum3) \ 60 + sum2) Mod 60, "00")
sum11 = ((sum4 \ 1000 + sum3) \ 60 + sum2) \ 60 + sum1
tsum = sum11 & ":" & sum22 & ":" & sum33 & ":" & sum44
End Function
然后ALT+F11,进入EXCEL VBA
这是个时间函数的求和,和普通的SUM用法一样,之不过函数名是 tsum
Function tsum(rng As Range) '自定义函数
Dim sum1%, sum2%, sum3%, sum4%
Dim sum11$, sum22$, sum33$, sum44$
sum1 = 0: sum2 = 0: sum3 = 0: sum4 = 0
Application.Volatile
On Error Resume Next
For Each c In rng
a = Split(c, ":")
sum4 = sum4 + Val(a(UBound(a)))
sum3 = sum3 + Val(a(UBound(a) - 1))
sum2 = sum2 + Val(a(UBound(a) - 2))
sum1 = sum1 + Val(a(UBound(a) - 3))
Next
sum44 = Format(sum4 Mod 1000, "000")
sum33 = Format((sum4 \ 1000 + sum3) Mod 60, "00")
sum22 = Format(((sum4 \ 1000 + sum3) \ 60 + sum2) Mod 60, "00")
sum11 = ((sum4 \ 1000 + sum3) \ 60 + sum2) \ 60 + sum1
tsum = sum11 & ":" & sum22 & ":" & sum33 & ":" & sum44
End Function
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
直接求和 函数 =sum()
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询