发工资了。可工资表不知道哪个公式才正确. 论坛朋友有帮忙,方法多,可惜结果也多..救命

yjh_27

·   分段计费_自定义函数         

自定义函数说明

hnwxm

接受用vba做吗？

丢丢表格

yjh_27 发表于 2013-5-17 00:36
·   分段计费_自定义函数         

自定义函数说明

上次不是回复了，又来发帖~~不能用吗？？

好002

hnwxm 发表于 2013-5-17 09:44
接受用vba做吗？

hnwxm老师.您好!公式简单明了.如果老大.要改,VBA我都不懂改了,谢谢您.

hnwxm

你看看吧，也做好了。以后如需要改，论坛上能改的人很多。

hnwxm

你可以看看算法可对：
Public Sub DM()
Dim i As Long, RNo As Long, Data As Double
Dim DB As Double
RNo = Sheet2.Cells.Rows.Count
RNo = Sheet2.Range("A" & RNo).End(xlUp).Row
Data = Val(Sheet2.Cells(1, 3))
For i = 2 To RNo
    DB = Val(Sheet2.Cells(i, 3))
    Select Case DB
           Case Is < 0.8 * Data
                Sheet2.Cells(i, 5) = 1500 + Data * 0.008
           Case Is <= Data
                Sheet2.Cells(i, 5) = 1700 + Data * 0.008 + (DB - Data * 0.8) * 0.02
           Case Is > Data
                Sheet2.Cells(i, 5) = 1900 + Data * 0.008 + Data * 0.016 + (DB - Data) * 0.03
    End Select
Next
End Sub

hnwxm

这里错了：  Sheet2.Cells(i, 5) = 1900 + Data * 0.008 + Data * 0.016 + (DB - Data) * 0.03
改了一下.

hnwxm

如果销售额低于80 % ，是用那个数乘 1%，是 销售额， 还是指标的80%

hnwxm

你还是看看，这没有坏处，也可鉴别那个公式对。

hnwxm

公式6 天空741230  应该是对的