Excel VBA（05）自定义函数&窗口对话框组件&字符串操作

自定义函数

一、函数使用

• 自定义的函数如果要在 excel 表格中直接引用的话，需要在模块中定义，实测工作表和工作簿中定义的话都是无法在excel 中直接引用的
• 如果一个工作簿的自定函数想在另外的excel 文件中使用的话，最好的方就通过另存为加载宏的方式，加载宏的具体的用法前面已经说过了这里不再赘述
• vba 函数可以返回数组，只要将函数名变量赋值为数组即可

二、函数参数

• 支持选择参数
• 支持参数默认值
• 支持类似java中的可变参

Function test(Optional ha As Integer = 100)
'    Application.volatile
    If ha = 0 Then
        MsgBox "ha = 0"
    Else
        MsgBox "ha = " & ha
    End If
End Function

Sub hello()
    Call test
    Call test(11111)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub hello()
    Call t1(10, 12, 13)
    Call t1(100, 45)
End Sub

Function t1(ParamArray n())
    Dim sum
    For Each a In n
       sum = sum + a
    Next a
    Debug.Print sum
End Function

---

窗口和对话框组件

一、msgbox

• 基本的参数

msgbox (显示内容 ,按钮和图标, 窗口标题, 帮助文件 ,帮助文件编号)

• 几个常用的特殊符号：

chr(10) 换行、chr(13)回车、chr(9) 制表、space