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

wowo000

ykcbf1100 发表于 2024-4-25 10:43
10公斤以下呢？

尊敬的草爷：10公斤以下的就直接标出所对应的价格即可。辛苦给整整，谢谢您！

wengjl

报价描述：
A、10KG及以内的价格按报价表计
B、超过10KG部分，按报价表的最右例价格计
是这样吧！

于是计算 金额  在数学中即为一个分段函数

wowo000

wengjl 发表于 2024-4-25 10:55
报价描述：
A、10KG及以内的价格按报价表计
B、超过10KG部分，按报价表的最右例价格计

尊敬的wengjl：是的。劳烦给整整，谢谢！

ykcbf1100

更新一下。

ykcbf1100

wengjl 发表于 2024-4-25 10:55
报价描述：
A、10KG及以内的价格按报价表计
B、超过10KG部分，按报价表的最右例价格计

并不是，你看5楼。

ykcbf1100

wowo000 发表于 2024-4-25 10:56
尊敬的wengjl：是的。劳烦给整整，谢谢！

你不要误导人家，你自己5楼的说明并不是这样的。

笨鸟飞不高

多客户价格快递费计算.zip (64.7 KB, 下载次数: 6)

2024-4-25 11:44 上传

点击文件名下载附件

wowo000

ykcbf1100 发表于 2024-4-25 11:09
更新一下。

衷心感谢您！尊敬的草爷。我自己再琢磨一下。

wowo000

笨鸟飞不高 发表于 2024-4-25 11:45

尊敬的笨鸟飞不高老师：可否不要自定义函数？不好移植代码适应真实数据。有劳重新赐代码，谢谢！

baofa2

1. Sub test0()
   
2.   Dim ar, br(), cr, dict() As Object
   
3.   Dim i As Long, j As Long, x As Long, y As Long
   
4.   
   
5.   ReDim br(2 To Worksheets.Count), dict(1 To Worksheets.Count)
   
6.   
   
7.   Set dict(1) = CreateObject("Scripting.Dictionary")
   
8.   For j = 2 To Worksheets.Count
   
9.     Set dict(j) = CreateObject("Scripting.Dictionary")
   
10.     cr = Worksheets(j).Range("A1").CurrentRegion.Offset(1).Value
    
11.     For i = 2 To UBound(cr) - 1
    
12.       dict(j).Add Trim(cr(i, 1)), i
    
13.     Next
    
14.     For i = 2 To UBound(cr, 2)
    
15.       dict(j).Add Trim(cr(1, i)), i
    
16.     Next
    
17.     br(j) = cr
    
18.     dict(1).Add Worksheets(j).Name, j
    
19.   Next
    
20.   
    
21.   With Sheet1
    
22.     .Activate
    
23.     ar = .Range("M3", .Cells(.Rows.Count, "E").End(xlUp)).Value
    
24.   End With
    
25.   
    
26.   For i = 1 To UBound(ar)
    
27.     If dict(1).Exists(Trim(ar(i, 1))) Then
    
28.       j = dict(1)(Trim(ar(i, 1)))
    
29.       If dict(j).Exists(Trim(ar(i, 9))) Then
    
30.         y = dict(j)(Trim(ar(i, 9)))
    
31.         If Val(ar(i, 6)) Then
    
32.           If dict(j).Exists(Trim(ar(i, 6))) Then
    
33.             x = dict(j)(Trim(ar(i, 6)))
    
34.             ar(i, 1) = 1 * br(j)(y, x)
    
35.           Else
    
36.             If Val(ar(i, 6)) > 10 Then
    
37.               x = dict(j)("10")
    
38.               ar(i, 1) = 1 * br(j)(y, x) + (Val(ar(i, 6)) - 10) * br(j)(y, x + 1)
    
39.             End If
    
40.           End If
    
41.         End If
    
42.       End If
    
43.     Else
    
44.       ar(i, 1) = "没有报价表"
    
45.     End If
    
46.   Next
    
47.   
    
48.   Range("U3").Resize(UBound(ar)) = ar   '改为 Range("K3")
    
49.   
    
50.   For j = LBound(dict) To UBound(dict)
    
51.     Set dict(j) = Nothing
    
52.   Next
    
53.   Beep
    
54. End Sub

复制代码