关于分段比例法函数的应用.docVIP

关于分段比例法函数的应用 为了提高业绩合同运算效率，减少计算误差，本人针对分段记分法特点设立专用函数，具体函数代码如下： Function nem(a, b, c, d, e As Variant) If c e Then 当标杆值大于最低值时 Select Case a 如果实际完成值 Case Is = c 大于标杆值的时候 nem = b * 1.5 得分为权重的1.5倍 Case d To c 在标杆值和基本值之间时 nem = b * (1.5 - (a - c) / (2 * (d - c))) 分段比例计算 Case e To d 在基本值和最低值之间时 nem = b * (1 - (a - d) / (2 * (e - d))) 分段比例计算 Case Is = e 小于标杆值的时候 nem = b * 0.5 得分为权重的0.5倍 End Select ElseIf c e Then 当标杆值小于最低值时 Select Case a 如果实际完成值 Case Is = c 小于标杆值的时候 nem = b * 1.5 得分为权重的1.5倍 Case c To d 在标杆值和基本值之间时 nem = b * (1.5 - (a - c) / (2 * (d - c))) 分段比例计算 Case d To e 在基本值和最低值之间时 nem = b * (1 - (a - d) / (2 * (e - d))) 分段比例计算 Case Is = e 大于标杆值的时候 nem = b * 0.5 得分为权重的0.5倍 End Select End If End Function 以上代码中a、b、c、d、e分别代表实际完成值、权重、标杆值、基本值、最低值；实际的功能为分段比例考核计算，具体如下： 完成值越大越好时：完成值 标杆值 得分＝1.5*权重 完成值 标杆值 and 完成值 最低值 得分＝分段计算 完成值 最低值 得分＝0.5*权重 完成值越小越好时：完成值 标杆值 得分＝1.5*权重 完成值 标杆值 and 完成值 最低值 得分＝分段计算 完成值 最低值 得分＝0.5*权重 分段比例法函数在Excel中的应该方法 确保Excel工作簿宏的安全性为“低”。 设置/检查方法：在Excel菜单栏中点“工具(T)”——“宏(M)”—— “安全性(S)” ，如图1如示： 图1 如果Excel的安全性不为“低”，请设置为“低”，点“确定”后，保存并关闭工作簿，重新打开工作簿Excel的安全性将为“低”。 此设置后本电脑所有Excel工作表均为“低”，后续使用不需重复设置，原Excel安全性已为“低”的此步骤可以省略。 复制代码至Excel工作簿模块 在打开的Excel工作表页标签上右击，选择“查看代码(V)”，如图2所示： 图2 或者按Alt + F11 打开Exce