举例说说Excel中自定义函数的应用

举例说说Excel中自定义函数的应用

(2009-05-05 14:36:35)

转载

标签： excel与vba

分类： Excel与VBA

Excel中虽然有很多内函数，但对于自定义函数及其应用还是有不可替代的作用，下面以判断学生考试成绩等第的函数为例说说自定义函数的应用。

例如：

1、在Excel编辑状态下，单击“工具”--“宏”--“Visual Basic编辑器”

2、在打开的VBA环境下单击“插入”--“模块”

3、在代码输入区输入如下代码：

Function test(a As Single)
If a >= 85 Then
test = "优"
ElseIf a >= 70 Then
test = "良"
ElseIf a >= 60 Then
test = "及格"
Else
test = "不及格"
End If
End Function

4、回到有学生成绩的工作表，在B1单元格输入“=test(A1)”

5、选中B1,将光标移动到B1右下角，按下鼠标左键，拖动鼠标直到最后的成绩行为止，看看结果吧。