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

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

vba之函数返回值1.Function define_yy(ByVal names As String, ByValworkbooks 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) AsString() '需要有括号,代表数组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.EOF

If x = 1 Then

bb(i, 1) = rs(0)

Else

For j = 1 To x

bb(i, j) = rs(j - 1)

Next j

End If

i = i + 1

rs.MoveNext

Loop