【烟花原创】VBA零基础之第25篇 Function过程（二）

  函数的参数

　　与之前SUB过程的参数声明一样：Optional，ParamArray，ByRef、ByVAl。

　　在调用Function时，参数的写法与过程相同：一是参数变量按声明的顺序写，二是用命名法。

关于函数调用

　　为了使用函数的返回值，必须指定函数给变量（或者将函数的返回值做为表达式的一部分），并且用括号将参数包围起来（无参数情况下，随意都可）。

示例：无参数

　　Sub test()

　　　Dim Username AsString

　　　Username =getName

　　　MsgBoxUCase(getName)

　　　'MsgBoxUCase(getName())

　　　'Username =getName()

　　　'无参数情况下，括号写与不写，没有影响

　　End Sub

　　
　　Function getName() As String

　　　'返回当前用户名

　　　getName =Application.Username

　　End Function

示例：有参数

　　Sub teset()

　　　Dim i

　　　i = MsgBox("请任意单击一个按钮", vbInformation + vbYesNoCancel)

　　　'i = MsgBox"请任意单击一个按钮", vbInformation +vbYesNoCancel

　　　'上面一行如果去掉注释会提示编译错误:缺少结束语句

　　　MsgBox "请任意单击一个按钮", vbInformation + vbYesNoCancel

　　　'这样便会忽略掉返回值

　　　'MsgBox("请任意单击一个按钮", vbInformation + vbYesNoCancel)

　　　'上面的注释如果取消，会提示缺少=号。

　　End Sub