分段计费_自定义函数

gongqiulin

留个脚印，下次来学

mimiboby

留个脚印，以后学习！！

yjh_27

'****************************************************************
'功能：    分段计费（提成、佣金）
'函数名：  FenDuanJiFei
'参数1：   FenDuan     分段数组
'参数2：   FenDuanLei  分段对应单价
'参数3：   danjia      分段单价（比例、系数）数组
        '   danjia 区间价格数组
        '   danjia = [{1,26,51;15,30,40;25,40,50}]   '分段按每段最小数记入首行，首列为最小计量单位（如整数则=1）；分段单价记入其他行。
        '   分段区间   1~25     26~50   51~
        '
        '    0          1         26      51
        '   价格1       15        30      40
        '   价格2       25        40      50

'参数4：   mode        模式，可省略，默认为：-1，
'                      为False 时，不分段，返回 统计总费用
'                      为-1时，    返回 统计总费用
'                      为n时，     返回 第n分段费用(n >1的整数）
'                      为"D"时，   返回   对应底薪
'                      为"-1g"时， 返回   统计总费用过程
'                      为"-1s"时， 返回   统计总费用公式
'                      为"ns"时，  返回  第n 分段费用公式
'参数5：   FLei        分类，可省略，默认为：0，
'                      为0时，参数2（FenDuanLei）对应单价数组（danjia）的行数
'                      为1时，参数2（FenDuanLei）对应单价数组（danjia）的分类值
'参数6：   ZhuanZhi    价格数组转置，可省略，默认为：0，
'                      为0时，单价数组（danjia）不转置
'                      为1时，单价数组（danjia）转置
'返回值：  一个数字型或字符型

yjh_27

Bettyexcel 发表于 2013-7-9 12:32
yjh_27 老师好！

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

K13 应为：12/25/2012

Bettyexcel

yjh_27 发表于 2013-7-10 00:16
K13 应为：12/25/2012

多谢老师。但是看不到代码？

yjh_27

Bettyexcel 发表于 2013-7-10 09:58
多谢老师。但是看不到代码？

按 Alt+F11

Bettyexcel

yjh_27 发表于 2013-7-10 11:08
按 Alt+F11

是的，已经进去VBA编程界面了，但是不论在sheet1/sheet2/sheet3/thisworkbook 中，编程区域均无内容。能帮忙看下吗？

Bettyexcel

还有打开EXCEL时，提示找不到模块。

yjh_27

Bettyexcel 发表于 2013-7-10 11:15
还有打开EXCEL时，提示找不到模块。

没发现你说的情况

Bettyexcel

yjh_27 发表于 2013-7-10 11:35
没发现你说的情况

奇怪了，我打开时一直提示找不到模块。老师，您能否将代码直接复制上来？谢谢了。可能我的电脑有问题，试了好几次，都打不开，百度也没百出来。