VBA 根据时长统计费用，如何写代码

hnyeke · 发表于 2023-2-26 16:59

有一份打电话的记录表，如何根据通话的时长统计费用，被叫不收费，详见附件。请高用帮忙，谢谢。

gwjkkkkk · 发表于 2023-2-26 17:43

请参考附件。。。

joy.008@163.com · 发表于 2023-2-26 17:51

Sub tjsc()
'https://club.excelhome.net/thread-1654788-1-1.html
Dim arr, i%, k%
arr = Sheet1.Range("E1").CurrentRegion
For i = 2 To UBound(arr)
k = 0
If Right(arr(i, 4), 2) = "被叫" Then arr(i, 5) = 0: GoTo NN
If InStr(arr(i, 2), "分") > 1 Then k = Left(arr(i, 2), InStr(arr(i, 2), "分") - 1)
If InStr(arr(i, 2), "秒") > 1 Then k = k + 1
arr(i, 5) = k * 0.15
NN:
Next

[E1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

joy.008@163.com · 发表于 2023-2-26 17:52

回复需要审核，请等待通过

洋务德雷 · 发表于 2023-2-26 18:16

试用一下吧

hnyeke · 发表于 2023-2-26 20:29

joy.008@163.com 发表于 2023-2-26 17:51
Sub tjsc()
'https://club.excelhome.net/thread-1654788-1-1.html
Dim arr, i%, k%

还有一点小错误：如果是2分，3分，。。。。9分时（后面没有X秒时），都以最短时间计算。

joy.008@163.com · 发表于 2023-2-27 15:50

joy.008@163.com · 发表于 2023-2-27 15:51

hnyeke 发表于 2023-2-26 20:29
还有一点小错误：如果是2分，3分，。。。。9分时（后面没有X秒时），都以最短时间计算。

你运行测试了么?

hnyeke · 发表于 2023-2-27 15:53

joy.008@163.com 发表于 2023-2-27 15:51
你运行测试了么?

问题已解决了，谢谢。

hnyeke · 发表于 2023-3-5 16:01

joy.008@163.com 发表于 2023-2-26 17:52
回复需要审核，请等待通过

假如是“免费”（就免费二字），如何使记费为0

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

[求助] VBA 根据时长统计费用，如何写代码

评分

评分

评分