分段计费_自定义函数

yjh_27

分段计费按使用量不同，单价不同，使用地点不同单价不同：
        1~25     26~50   51~
'价格1    15        30      40
'价格2    25        40      50

做了个自定义函数计算分段费用。

目前只能分三段（需扩展见2楼），地点数可按单价数组定义原则扩展
danjia = [{1,26,51;15,30,40;25,40,50}]   '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。

Function fenduanjifei(a, b, Optional danjia = 0, Optional mode = 1)
'danjia = [{1,26,51;15,30,40;25,40,50}]   '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。
'区间   1~25     26~50   51~
'              1         26         51                          '递增排列
'价格1    15        30         40
'价格2    25        40         50
'a      已交数
'b      应交数
'a+b    分段数
'mode   价格选择

应用见
· 急求复杂的堆存费计算!急!求高手入

yjh_27

改数组

Function fenduanjifei(a, danjia, Optional mode = 1)
'a(1,i) 应交数
'a(2,i) 对应价格行
'danjia 区间价格数组
'danjia = [{1,26,51;15,30,40;25,40,50}]   '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。
'分段区间   1~25     26~50   51~
'价格1       15        30      40
'价格2       25        40      50

分段区间、价格种类（地点数）可按单价数组定义原则扩展


'mode   统计选择
'   1   统计总费用
'   2   分段费用
'   1s  统计总费用公式
'   2s  分段费用公式

Betty201005

顶!大家都来学习吧!!

Betty201005

1. For i = 4 To r
   
2.     dao = CDate(Cells(i, 11))
   
3.     'wei = Cells(i, 10)
   
4.     duicun = 0
   
5.     yijiaotian = 0
   
6.     For ii = 1 To 4
   
7.         If Cells(i, 11 + ii * 2) = "" Then Exit For
   
8.         tian = CDate(Cells(i, 11 + ii * 2)) - dao
   
9.         If duicun = 0 Then tian = tian + 1
   
10.         wei = Cells(i, 12 + ii * 2) ''到港、移库
    
11.         If wei = "露天" Then
    
12.             duicun = duicun + jisuan(yijiaotian, tian, 1)
    
13.             yijiaotian = yijiaotian + tian
    
14.         Else
    
15.             duicun = duicun + jisuan(yijiaotian, tian, 2)
    
16.             yijiaotian = yijiaotian + tian
    
17.         End If
    
18.         
    
19.         dao = CDate(Cells(i, 11 + ii * 2))
    
20.         
    
21.     Next
    
22.     tian = CDate(Cells(i, 9)) - dao
    
23.    
    
24.     If duicun = 0 Then tian = tian + 1
    
25.     wei = Cells(i, 10)      '入库
    
26.     If wei = "露天" Then
    
27.         duicun = duicun + jisuan(yijiaotian, tian, 1)
    
28.     Else
    
29.         duicun = duicun + jisuan(yijiaotian, tian, 2)
    
30.     End If
    
31.     Cells(i, 21) = duicun
    
32. Next i

复制代码

请问这段是什么意思?

yjh_27

Betty201005 发表于 2013-1-29 13:43
请问这段是什么意思?

1. 
   
2. For i = 4 To r               '循环处理每行数据
   
3.     dao = CDate(Cells(i, 11))
   
4.     'wei = Cells(i, 10)       '记录堆存位置
   
5.     duicun = 0               '堆存费
   
6.     yijiaotian = 0            ’已堆存天数
   
7.     For ii = 1 To 4          ’处理4次移库
   
8.         If Cells(i, 11 + ii * 2) = "" Then Exit For
   
9.         tian = CDate(Cells(i, 11 + ii * 2)) - dao        '本次堆存天数
   
10.         If duicun = 0 Then tian = tian + 1
    
11.         wei = Cells(i, 12 + ii * 2) ''到港、移库
    
12.         If wei = "露天" Then
    
13.             duicun = duicun + jisuan(yijiaotian, tian, 1)
    
14.             yijiaotian = yijiaotian + tian
    
15.         Else
    
16.             duicun = duicun + jisuan(yijiaotian, tian, 2)
    
17.             yijiaotian = yijiaotian + tian
    
18.         End If
    
19.         
    
20.         dao = CDate(Cells(i, 11 + ii * 2))
    
21.         
    
22.     Next
    
23.    
    
24.     tian = CDate(Cells(i, 9)) - dao
    
25.     If duicun = 0 Then tian = tian + 1          '无移库
    
26.     wei = Cells(i, 10)      '入库
    
27.     If wei = "露天" Then
    
28.         duicun = duicun + jisuan(yijiaotian, tian, 1)
    
29.     Else
    
30.         duicun = duicun + jisuan(yijiaotian, tian, 2)
    
31.     End If
    
32.     Cells(i, 21) = duicun
    
33. Next i

复制代码

yjh_27

应用

8L

求指点。。。该设一个什么样的函数。。。

补充内容 (2013-4-26 12:00):
详细说明见 17L

Bettyexcel

yjh_27 老师好！

如果当堆存位置为“EG”时，无费用产生，即费用为0。这里应该怎么写？ 请看附件的表格，谢谢！

yjh_27

应用
提成核算问题
4L

yjh_27

应用(底薪+提成）
发工资了。可工资表不知道哪个公式才正确. 论坛朋友有帮忙,方法多,可惜结果也多..救命

20L

好002

yjh_27 发表于 2013-5-17 00:38
应用(底薪+提成）
发工资了。可工资表不知道哪个公式才正确. 论坛朋友有帮忙,方法多,可惜结果也多..救命 ...

yjh_27老师..谢谢您.