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

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

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

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

joy.008@163.com · 发表于 2023-3-5 16:10

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) = "被叫" Or arr(i, 4) = "免费" 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-3-5 16:10

joy.008@163.com · 发表于 2023-3-5 16:11

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) = "被叫" Or arr(i, 4) = "免费" 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-3-5 16:12

统计费用.rar (18.21 KB, 下载次数: 2)

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

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

评分