如何用VBA通过给定的商品的单价和销售计算员工的销售奖金

可以通过自定义函数处理,以以下为例:

当销售额小于200000时,以销售额的8%作为奖金金额 ;

当销售额200001到400000时,以销售额的10%作为奖金金额 ;

当销售额大于400000时,以销售额的15%作为奖金金额 ;

代码如下: 

Function GetReward(Saleprice, Number) '定义多个参数的函数

Dim total As Long  

total = Saleprice * Number  

Select Case total  

Case 0 To 200000  

GetReward = toatl * 0.08  

Case 200001 To 400000  

GetReward = toatl * 0.1  

Case Else  

GetReward = total * 0.15  

End Select

End Function

©️2020 CSDN 皮肤主题: 技术黑板 设计师: CSDN官方博客 返回首页
实付0元
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值