[已解决]奖金核算问题

sparkguo

附件为工作中遇到的实际案例（绩效核算发放），请老师帮忙解答，用函数与VBA两种方式。
另外祝大家工作愉快。

最佳答案

月排行榜 / 总排行榜

grf1973

2015-9-29 10:13

纯公式比较 长一点
=IF(D8>=95,C8,IF(D8>=85,C8*(1-(95-D8)*0.01),IF(D8>=75,C8*0.9*(1-(85-D8)*0.02),IF(D8>=65,C8*0.7*(1-(75-D8)*0.03),0))))

跳转到最佳答案楼层

过江龙

不知是不是这样计算

Sub jsjx()
For i = 8 To [B1048576].End(xlUp).Row
     Select Case 100 - Cells(i, 4)
          Case Is < 6
           Cells(i, 5) = Cells(i, 3)
         
          Case Is < 16
             Cells(i, 5) = Round(Cells(i, 3) - Cells(i, 3) * (100 - Cells(i, 4) - 5) * 0.01, 2)
          Case Is < 26
             Cells(i, 5) = Round(Cells(i, 3) - Cells(i, 3) * 0.1 - (Cells(i, 3) - Cells(i, 3) * 0.1) * (100 - Cells(i, 4) - 15) * 0.02, 2)
          Case Is < 36
             Cells(i, 5) = Round(Cells(i, 3) - Cells(i, 3) * 0.3 - (Cells(i, 3) - Cells(i, 3) * 0.3) * (100 - Cells(i, 4) - 25) * 0.03, 2)
          Case Is > 35
             Cells(i, 5) = ""
    End Select
Next i
End Sub

sparkguo

过江龙 发表于 2015-9-28 22:31
不知是不是这样计算

Sub jsjx()

恩，是的   ，老师可否备注一下代码。菜鸟学习中。

grf1973

自制公式，直接引用。

1. Function jx(gz, fs)
   
2.     Select Case fs
   
3.         Case Is >= 95
   
4.             jx = gz
   
5.         Case Is >= 85
   
6.             jx = gz * (1 - (95 - fs) * 0.01)
   
7.         Case Is >= 75
   
8.             jx = gz * 0.9 * (1 - (85 - fs) * 0.02)
   
9.         Case Is >= 65
   
10.             jx = gz * 0.7 * (1 - (75 - fs) * 0.03)
    
11.         Case Else
    
12.             jx = 0
    
13.     End Select
    
14. End Function
    

复制代码

grf1973

纯公式比较 长一点
=IF(D8>=95,C8,IF(D8>=85,C8*(1-(95-D8)*0.01),IF(D8>=75,C8*0.9*(1-(85-D8)*0.02),IF(D8>=65,C8*0.7*(1-(75-D8)*0.03),0))))