[已解决]新建一个名为价格折扣的“用户自定义函数”，仅对数值大于14000的购买计算30%的折扣

jinshan618

题目要求是：新建一个名为价格折扣的“用户自定义函数”，仅对数值大于14000的购买计算30%的折扣

打开Visual Basic编辑窗口，插入一个新的模块
Function 折扣(a)
If a > 14000 Then
折扣 = a * 0.3
Else
折扣 = a
End If
End Function

求是否正确？

最佳答案

月排行榜 / 总排行榜

5blessyou

2012-3-16 15:36

1. Function 折扣(a)
   
2. If a > 14000 Then
   
3. 折扣 = a * 0.3
   
4. End If
   
5. End Function

复制代码

跳转到最佳答案楼层

5blessyou

1. Function 折扣(a)
   
2. If a > 14000 Then
   
3. 折扣 = a * 0.3
   
4. End If
   
5. End Function

复制代码

jinshan618

折扣 = a 代码可以不要？

jinshan618

5blessyou 发表于 2012-3-16 15:36

折扣 = a 代码可以不要？

zazaxx1074

EXCEL里面又插入标签的命令的 但是用不了 好像要什么库激活

jinshan618

好像是这个标签，我这里也不能使用！