多客户报价格之快递费计算

wowo000

各位老师：早上好！劳烦用VBA代码实现附件里函数公式的效果，数据量很大，请考虑代码运行速度，谢谢！

ykcbf1100

运单运费和核算运费之间是什么关系，公式没看清楚。

ykcbf1100

浙江省客户1,重量12公斤，按理运价应该是4.4元/公斤，算出来应该是52.8元和你公式算出来不一样呢。

ykcbf1100

J列和K列都是代码完成。
代码已更新。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.25
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     Set sh = ThisWorkbook.Sheets("寄件运单费")
   
4.     bt = 2
   
5.     For Each sht In Sheets
   
6.         If sht.Name <> sh.Name Then
   
7.             With sht
   
8.                 fn = .Name
   
9.                 r = .Cells(Rows.Count, 1).End(3).Row
   
10.                 arr = .[a1].Resize(r, 13)
    
11.             End With
    
12.             For i = bt + 1 To UBound(arr)
    
13.                 For j = 2 To UBound(arr, 2)
    
14.                     tl = IIf(j = 13, 11, Val(arr(2, j)))
    
15.                     s = fn & "|" & arr(i, 1) & "|" & tl
    
16.                     d(s) = Array(arr(i, j), arr(i, j - 1))
    
17.                 Next
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     With sh
    
22.         r = .Cells(Rows.Count, 1).End(3).Row
    
23.         arr = .[a2].Resize(r - 1, 13)
    
24.         For i = 2 To UBound(arr)
    
25.             For j = 2 To UBound(arr, 2)
    
26.                 tt = arr(i, 9)
    
27.                 t1 = Fix(tt): t2 = tt - t1
    
28.                 If t2 >= 0.5 Then
    
29.                     t3 = t1 + 1
    
30.                 Else
    
31.                     t3 = IIf(t2 > 0, t1 + 0.5, t1)
    
32.                 End If
    
33.                 arr(i, 10) = t3
    
34.                 s = arr(i, 5) & "|" & arr(i, 13) & "|" & IIf(t3 > 10, 11, t3)
    
35.                 If d.exists(s) Then
    
36.                     If arr(i, 10) > 10 Then
    
37.                         arr(i, 11) = d(s)(0) * (arr(i, 10) - 10) + d(s)(1)
    
38.                     Else
    
39.                         arr(i, 11) = d(s)(0) * arr(i, 10)
    
40.                     End If
    
41.                 End If
    
42.             Next
    
43.         Next
    
44.         .[a2].Resize(r - 1, 13) = arr
    
45.     End With
    
46.     Set d = Nothing
    
47.     MsgBox "OK！"
    
48. End Sub
    

复制代码

wowo000

ykcbf1100 发表于 2024-4-25 09:46
J列和K列都是代码完成，就是核算运费算出来和你的公式对不上呢。我手工核了一下，我的结果应该是对的，你自 ...

尊敬的草爷：“寄件运单费”表的第一行的重量进整是12公斤，客户1的浙江省报价是2.8加4.4，那么运费=4.4*（12-10）+2.8，即11.6。劳烦再给整整，多谢!

ykcbf1100

wowo000 发表于 2024-4-25 10:03
尊敬的草爷：“寄件运单费”表的第一行的重量进整是12公斤，客户1的浙江省报价是2.8加4.4，那么运费=4.4* ...

你是说>10公斤的是4.4*（12-10）+2.8，这2.8哪里来的？应该是2.4吧。
还有10公斤以下如何计算？

wowo000

ykcbf1100 发表于 2024-4-25 10:12
你是说>10公斤的是4.4*（12-10）+2.8，这2.8哪里来的？应该是2.4吧。
还有10公斤以下如何计算？

尊敬的草爷：客户1的浙江省报价10公斤是2.8，续重4.4一公斤。

ykcbf1100

wowo000 发表于 2024-4-25 10:40
尊敬的草爷：客户1的浙江省报价10公斤是2.8，续重4.4一公斤。

10公斤以下呢？

ykcbf1100

有点累啊，要多次追问，回复又不及时，耐心正在慢慢消失。