excel里时间(时,分,秒,百分秒)进
是否有这个函数,我不太清楚,我用VBA自己编写了一个,两种方式,任你选择,第二种方式,可以根据实际情况调整循环的大小、单元格的位置。
如果不用宏,直接用函数tsum()也行
Sub kk() '手工测试
Dim rng1 As Range
Set rng1 = Application。 InputBox("请用鼠标选定求和范围", Type:=8)
ActiveCell = tsum(rng1)
End Sub
Sub kkk() ' 批量处理
Dim rng As Range
For i = 1 To 10
Set rng = Range(Cells(i, 1), Cells(i,...全部
是否有这个函数,我不太清楚,我用VBA自己编写了一个,两种方式,任你选择,第二种方式,可以根据实际情况调整循环的大小、单元格的位置。
如果不用宏,直接用函数tsum()也行
Sub kk() '手工测试
Dim rng1 As Range
Set rng1 = Application。
InputBox("请用鼠标选定求和范围", Type:=8)
ActiveCell = tsum(rng1)
End Sub
Sub kkk() ' 批量处理
Dim rng As Range
For i = 1 To 10
Set rng = Range(Cells(i, 1), Cells(i, 2))
Cells(i, 3) = tsum(rng)
Next
End Sub
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。
收起