版权声明：原创作品，允许转载。转载时请务必以超链接形式标明文章原始出处、作者信息和本声明。 https://blog.csdn.net/LannisterPaoMo/article/details/89335440

目录索引

• Function

Function

与JAVA，C#一般，我们可以定义自己的函数并在VBE甚至Excel中直接调用

首先是函数的声明

//使用Function来定义一个函数，后面（）中可以有参数也可以没有
Function myFunc(value)

Dim myvalue, level

myvalue = value

If myvalue > 80 Then
level = "A"
ElseIf myvalue > 50 Then
level = "B"
ElseIf myvalue > 30 Then
level = "C"
Else: level = "D"
End If
//函数必须有返回值
myFunc = level

End Function

然后是函数的使用

Sub useFunc()

Dim r, level
r = 3

Do While Cells(r, 8) <> ""
//调用函数，不要忘了传参
level = myFunc(Cells(r, 8))
Cells(r, 9) = level
r = r + 1
Loop

End Sub

我们也可以再Excel单元格中直接用=Function()来进行函数的调用，括号里也是进行参数的传递
例如：
=myFunc(90)
当我们按下回车后，单元格内容就会显示为 A

由此我们可知，我们在Excel中运用的各种公式，如vlookup(),if(),sum()等等，都是调用的VBA中早已定义好的各种函数。