VBA运算多条件求费用

一一如终 · 发表于 2022-9-13 10:45

多条件求运算结果
PS:用VBA运行算出H列派送运费.

sdytsxd991122 · 发表于 2022-9-13 11:25

本帖最后由 sdytsxd991122 于 2022-9-13 11:28 编辑

sdytsxd991122 · 发表于 2022-9-13 11:27

一一如终 · 发表于 2022-9-13 12:18

sdytsxd991122 发表于 2022-9-13 11:27

666
同日期派送+同一收貨人只能收一个派送费（最低或者80/板）这个也可以实现不

盼盼198310 · 发表于 2022-9-13 13:55

....................

sdytsxd991122 · 发表于 2022-9-13 14:03

sdytsxd991122 · 发表于 2022-9-13 14:05

Sub sxdtest()
arr = Sheet1.Range("a3").CurrentRegion
On Error Resume Next
For i = 2 To UBound(arr)
      If arr(i, 1) & arr(i, 3) <> arr(i + 1, 1) & arr(i + 1, 3) Then
         arr(i, 8) = 0
         n = n + Val(arr(i, 5))
         arr(i, 8) = m
         If arr(i, 4) = "偏遠" Then arr(i, 8) = arr(i, 8) + 30
         If n < 4 Then arr(i, 8) = arr(i, 8) + 300
         If n >= 4 Then arr(i, 8) = arr(i, 8) + 80 * n
         If InStr(arr(i, 7), "特大") > 0 Then arr(i, 8) = arr(i, 8) + 80 * 1.5 * Val(arr(i, 5))
         If InStr(arr(i, 7), "超重") > 0 Then arr(i, 8) = arr(i, 8) + 120 * Val(arr(i, 5))
         n = 0
         m = 0
      Else
         n = n + Val(arr(i, 5))
         If InStr(arr(i, 7), "特大") > 0 Then m = m + 80 * 1.5 * Val(arr(i, 5))
         If InStr(arr(i, 7), "超重") > 0 Then m = m + 120 * Val(arr(i, 5))
      End If
Next
Sheet1.Range("a3").CurrentRegion = arr
End Sub

一一如终 · 发表于 2022-9-13 15:28

超重计算不对呢
17*120=2040

太极拍天雄 · 发表于 2022-9-13 16:02

把同日期、同一收貨人的板数进行求和后再按要求条件计算。

一一如终 · 发表于 2022-9-13 16:42

太极拍天雄发表于 2022-9-13 16:02
把同日期、同一收貨人的板数进行求和后再按要求条件计算。

谢谢

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

[求助] VBA运算多条件求费用

评分

评分