VBA 之函数返回值(可多个返回值)

vba之函数返回值

1.Function define_yy(ByVal names As String, ByVal workbooks As String) As String
Dim str_return As String '返回值
Dim i, t As Integer
........
........
........
........
........
define_yy = str_return
End Function
对于函数返回值的要点已经用粗体表示出来了.调用此函数的格式为:
call modle_connection.define_yy() (这个是不需要返回值的调用方法)
bb=modle_connection.define_yy(a,b) (这是需要返回值的方法)
注:modle_connection为程序块名
2.返回值为多个值,可以采用返回数组的类型
Function return_data(ByVal strSEL As String, ByRef x As Integer) As String()'需要有括号,代表数组
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim bb(1000, 20) As String
Dim i As Integer, j As Integer
cn.Open strCN
rs.Open strSEL, cn
i = 1
Do While Not rs.