带你入门VBA，第三讲（编写简单的自定义函数）

风中筱竹

我很菜,我只知道VB的意思,我想请问VBE和VBA各表示什么意思?

[em04]

风中筱竹

以下是引用兰色幻想在2004-10-7 23:16:00的发言：

那你就再比葫芦画个瓢吧!

出个题练练:要求编个自定义函数,判断它如果大于100就返回它的值乘于0.1,如果大于200,就返回它的值乘以0.2,如果大于300,就返回它的值乘以0.3,否则返回它的值乘以0.05

Function chen(aa As Range) If aa.Value > 300 Then chen = (aa * 0.3) ElseIf aa.Value > 200 Then chen = (aa * 0.2) ElseIf aa.Value > 100 Then chen = (aa * 0.1) Else: chen = (aa * 0.05) End If End Function

[此贴子已经被作者于2004-10-16 22:38:31编辑过]

兰色幻想

以下是引用风中筱竹在2004-10-16 22:07:00的发言：

我很菜,我只知道VB的意思,我想请问VBE和VBA各表示什么意思?

[em04]

http://club.excelhome.net/viewthread.php?tid=62008

兰色幻想

以下是引用tingming在2004-10-16 22:04:00的发言：

强烈要求兰大侠讲讲属性、方法之类的。谢谢大侠！！！

[em06]

这儿有些说明，先看看

http://club.excelhome.net/viewthread.php?tid=62008

风中筱竹

套用例1所做的简易的计算个人所得税的自定义函数：

Function tax(aa As Range) If (aa.Value - 800) > 5000 Then tax = (aa - 800) * 0.2 - 375 ElseIf (aa.Value - 800) > 2000 Then tax = (aa - 800) * 0.15 - 125 ElseIf (aa.Value - 800) > 500 Then tax = (aa - 800) * 0.1 - 25 ElseIf (aa.Value - 800) > 0 Then tax = (aa - 800) * 0.05 End If End Function

yigepure

果然是学以致用.

兰色幻想

以下是引用风中筱竹在2004-10-18 16:54:00的发言：

套用例1所做的简易的计算个人所得税的自定义函数：

Function tax(aa As Range) If (aa.Value - 800) > 5000 Then tax = (aa - 800) * 0.2 - 375 ElseIf (aa.Value - 800) > 2000 Then tax = (aa - 800) * 0.15 - 125 ElseIf (aa.Value - 800) > 500 Then tax = (aa - 800) * 0.1 - 25 ElseIf (aa.Value - 800) > 0 Then tax = (aa - 800) * 0.05 End If End Function

不错，继续努力！[em23]

风中筱竹

谢谢老师的不断鼓励~~ 上例我也用Case语句做了一下：

Function tax1(aa As Range) Select Case (aa.Value - 800) Case Is > 5000 tax1 = (aa - 800) * 0.2 - 375 Case Is > 2000 tax1 = (aa - 800) * 0.15 - 125 Case Is > 500 tax1 = (aa - 800) * 0.1 - 25 Case Is > 0 tax1 = (aa - 800) * 0.05 End Select End Function

yigepure

Private Function hhh(aa As Range) Application.Volatile b = aa.Font.Interior.ColorIndex If b = 6 Then hhh = 1000 ElseIf b = 5 Then hhh = 500 ElseIf b = 3 Then hhh = 100 Else hhh = 50 End If

End Function 这个自定义函数为什么不能用呢.

我设好了以后.将SHEET1!A1单元格的字体颜色改为红色(但并末在单元格内输入数据).然后在B1中输入=hhh(a1)回车.结果显示为#value!.请问兰老师哪里出错了呢.

兰色幻想

以下是引用yigepure在2004-10-20 14:34:00的发言：

Private Function hhh(aa As Range) Application.Volatile b = aa.Font.Interior.ColorIndex If b = 6 Then hhh = 1000 ElseIf b = 5 Then hhh = 500 ElseIf b = 3 Then hhh = 100 Else hhh = 50 End If

End Function 这个自定义函数为什么不能用呢.

我设好了以后.将SHEET1!A1单元格的字体颜色改为红色(但并末在单元格内输入数据).然后在B1中输入=hhh(a1)回车.结果显示为#value!.请问兰老师哪里出错了呢.

是b = aa.Font.Interior.ColorIndex多了个Interior