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.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

x = i - 1

return_data = bb() 'BB()本身也需要定义为数组

End Function

'需要将下面的data()定义为数组格式

'调用方法为:data() = modle_connection.return_data(strSEL, x) // END