vba构造函数

VBA构造函数就是这么简单

Function test(a As Integer)'构造函数名字为test参数为a且为int型

If a >= 90 Then

Debug.Print "优秀"

test = "优秀" '赋值到单元格，跨表依然适用

ElseIf a >= 60 Then

Debug.Print "及格"

test = "及格"

Else

Debug.Print "不及格"

test = "不及格"

End If

End Function