快递运输收费标准
区域划分 包含地区 运费标准
一区 北京、上海、广州 5元
二区 江苏、浙江、广东(除广州外) 6元
(单张订单重量在10公斤(含)以上将按实际运费收取;天津、苏州、无锡、杭州支持货到付款区域内不受订单重量限制,一律6元)
安徽、天津、山东、广西
湖南、江西、海南、河南
河北、福建、辽宁、山西
黑龙江、吉林
三区 甘肃、湖北、四川、重庆 15元
(单张订单重量在10公斤(含)以上将按实际运费收取)
新疆、陕西、云南、内蒙
宁夏、西藏、青海、贵州
快递运输免运费规则(单张订单重量在10公斤(含)以上,不适用于本规则,将按实际运费收取)
地区 钻石(双钻)会员 金牌会员 其他会员
一区 北京(含郊县)、上海(包括外环以外的郊区,除三岛地区)、广州市 单张订单满50元(含)以上快递运输运费全免 单张订单金额满200元(含)以上快递运输运费全免;单张订单金额不足200元收取快递运输运费5元 单张订单金额满400元(含)以上快递运输运费全免;单张订单金额不足400元收取快递运输运费5元
二区 江苏、浙江、安徽、天津、山东、广西、湖南、江西、海南、河南、广东(除广州外)、河北、福建、辽宁、山西、黑龙江、吉林 单张订单满100元(含)以上快递运输运费全免 单张订单满200元(含)以上快递运输运费全免;单张订单金额不足200元收取快递运输运费6元 单张订单金额满400元(含)以上快递运输运费全免;单张订单金额不足400元收取快递运输运费6元
三区 甘肃、湖北、四川、重庆、新疆、陕西、云南、内蒙、贵州、宁夏、西藏、青海 单张订单满400(含)以上快递运输运费全免;单张订单金额不足400元收取快递运输运费15元 单张订单金额满800(含)以上快递运输运费全免;单张订单金额不足800元,收取快递运输运费15元 不计金额,每张订单固定收取快递运输运费15元
提醒注意:
1.如果您选择的是指定的圆通、申通或者顺丰快递,则没有免运费优惠;快递运输指京东快递或京东选用的价格较低廉的快递公司、邮局快包、中铁快运等;
2.北京郊县不提供货到付款的配送方式;
3.如订单收货地址超出所选快递的配送范围,京东商城有可能直接转运邮局包裹等全国各地可到达的运输方式;
4.香港、澳门、台湾、钓鱼岛地区的快递费一律按实际运费收取;
5.不支持跨各物流中心所覆盖的城市发货,如您的收货地址是天津,则不能从上海物流中心或广州物流中心发货;
6.下订单是系统自动计算运费,发货过程中若实际运费低于系统自动计算的运费,我司会将多出的运费以积分的形式返还到您的京东账户中。(1元人民币=10个积分,遇“分”则四舍五入。例如:实际运费多收取1.58元,则返还积分16分;实际运费多收取了1.32元,则返还积分13分)。
物流中心 覆盖省份
北京 北京、天津、河北、山西、河南、辽宁、吉林、黑龙江、内蒙古、山东、湖北、四川、重庆、贵州、云南、西藏、陕西、甘肃、青海、宁夏、新疆
上海 江苏、浙江、上海、安徽、钓鱼岛
广州 广东、广西、福建、湖南、江西、海南、台湾、香港、澳门
WPS输入目的地,重量后自动计算运费
举例不够完整
需要知道其他的计算规则
一般用IF+VLOOKUP
自动计算
D3=IF(C3<3,VLOOKUP(B3,A:B,2,0),VLOOKUP(B3,A:B,2,0)+VLOOKUP(B3,A:C,3,0)*(C3-3))
或
=IF(C3<=3,VLOOKUP(B3,A:B,2,0),VLOOKUP(B3,A:B,2,0)+VLOOKUP(B3,A:C,3,0)*(C3-3))
小于3公斤,根据自己需要,是否要等于?
Public flZD, jf1ZD, jf2ZD, jf3ZD
Public jgArr(1 To 6) As Double '价格数组
Const ksLh1 = 1
Const ksLh2 = 9
Const ksLh3 = 15
Sub jgJs()
'2018-07-29编制
'裴老师vba工作室 TEL:18896773754 QQ:3030490161
'flZD 'key-省份 item-类别(1,2,3)
Dim hH As Long, lH As Integer, zL As Double
Dim qY As String
Dim szJe As Double, xzJe As Double, czJe As Double '首重金额 续重金额 超重金额
'字典初始化
Set flZD = CreateObject("scripting.dictionary")
Set jf1ZD = CreateObject("scripting.dictionary")
Set jf2ZD = CreateObject("scripting.dictionary")
Set jf3ZD = CreateObject("scripting.dictionary")
With Sheets("新价格表")
For i = 1 To 3
Select Case i
Case 1
lH = ksLh1
Case 2
lH = ksLh2
Case 3
lH = ksLh3
End Select
hH = 4
Do While .Cells(hH, lH) <> ""
qY = .Cells(hH, lH).Text
flZD.Add qY, i
Select Case i
Case 1
jf1ZD.Add qY, hH
Case 2
jf2ZD.Add qY, hH
Case 3
jf3ZD.Add qY, hH
End Select
hH = hH + 1
Loop
Next i
End With
hH = 2
Do While Cells(hH, 4) <> ""
qY = Cells(hH, 6).Text
zL = Cells(hH, 4).Value
Call js_zcx(qY, zL, szJe, xzJe, czJe)
Cells(hH, 8) = szJe
Cells(hH, 9) = xzJe
Cells(hH, 10) = czJe
Cells(hH, 11) = szJe + xzJe + czJe
hH = hH + 1
Loop
End Sub
Sub js_zcx(qY, zL, ByRef szJe, ByRef xzJe, ByRef czJe)
Dim lB As Integer, hH As Long
lB = flZD(qY)
Select Case lB
Case 1
hH = jf1ZD(qY)
For i = 1 To 6
jgArr(i) = Sheets("新价格表").Cells(hH, ksLh1 + i).Value
Next i
Case 2
hH = jf2ZD(qY)
For i = 1 To 4
jgArr(i) = Sheets("新价格表").Cells(hH, ksLh2 + i).Value
Next i
Case 3
hH = jf3ZD(qY)
For i = 1 To 5
jgArr(i) = Sheets("新价格表").Cells(hH, ksLh3 + i).Value
Next i
End Select
Select Case lB
Case 1 '计算
Select Case zL
Case Is > 3
szJe = jgArr(5)
xzJe = 0.5 * Application.WorksheetFunction.RoundUp((zL - 1) / 0.5, 0) * 2 * jgArr(6)
czJe = 0
Case 1.01 To 3
szJe = jgArr(3)
xzJe = 0.5 * Application.WorksheetFunction.RoundUp((zL - 1) / 0.5, 0) * 2 * jgArr(4)
czJe = 0
Case 0.51 To 1
szJe = jgArr(3)
xzJe = 0
czJe = 0
Case 0.31 To 0.5
szJe = jgArr(2)
xzJe = 0
czJe = 0
Case Is <= 0.3
szJe = jgArr(1)
xzJe = 0
czJe = 0
End Select
Case 2 '计算
Select Case zL
Case Is > 1
szJe = jgArr(3)
xzJe = Application.WorksheetFunction.RoundUp((zL - 1), 0) * jgArr(4)
czJe = 0
Case 0.51 To 1
szJe = jgArr(3)
xzJe = 0
czJe = 0
Case 0.31 To 0.5
szJe = jgArr(2)
xzJe = 0
czJe = 0
Case Is <= 0.3
szJe = jgArr(1)
xzJe = 0
czJe = 0
End Select
Case 3 '计算
Select Case zL
Case Is > 1
szJe = jgArr(4)
xzJe = 0.5 * Application.WorksheetFunction.RoundUp((zL - 1) / 0.5, 0) * 2 * jgArr(5)
czJe = 0
Case 0.51 To 1
szJe = jgArr(3)
xzJe = 0
czJe = 0
Case 0.31 To 0.5
szJe = jgArr(2)
xzJe = 0
czJe = 0
Case Is <= 0.3
szJe = jgArr(1)
xzJe = 0
czJe = 0
End Select
End Select
End Sub