VBA学习（四）函数

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中早已定义好的各种函数。