[已解决]Function可以返回2个或多个值么？

爱疯

Function test(a, b, c)

'其他代码
'其他代码
'其他代码
'其他代码
'其他代码


'结束前，把希望返回的值，赋给自定义函数名test，即可。

End Function

我只知道，这样就可以得到一个返回值。但如果一次需要从这个自定义函数中返回2个或多个值的话，该怎么办呢？

谢谢！

最佳答案

月排行榜 / 总排行榜

青城山苦丁茶

2010-3-8 20:38

看都返回了些啥：

Function test1(a)
Select Case a
  Case 1
    test1 = Array(1, 2, 3, 4, 5, 6)
  Case 2
    Dim d As New Dictionary
    d(1) = "a"
    d(2) = "b"
    Set test1 = d
  Case Else
    test1 = "asdfg" & "|" & "123456"
End Select
End Function
Sub ta()
Dim arr1, x%
x = 1
arr1 = test1(x)
MsgBox Join(arr1, ",")
x = 2
Set arr1 = test1(x)
MsgBox Join(arr1.Keys, ",")
x = 3
arr1 = test1(x)
MsgBox Split(arr1, "|")(0)
MsgBox Split(arr1, "|")(1)
End Sub

etc.

跳转到最佳答案楼层

开辆小富康

不知道啊，我用得不多。我曾经想返回一个数组也没得到。

f6boby

爱疯我帮你顶顶！等高手出现！

枯禅

不知道2个或多个值具体是什么样子的，但得到一个内存数组应该是可以的：

Function XXX(c As Range)
XXX = c
End Function

在参数C为一个单元格区域时，返回的是一个内存数组，不知道是不是这样

爱疯

谢谢各位！

枯禅的这个想法，有趣，学习[em01]

我想，还是很可能遇上这样的时候，再看一下吧

 

[em26][em26]

老申

如果该函数应用在工作表中，是没法返回多个数值的，除非如枯禅说的数组函数。

如果该函数应用在vba程序中，是可以变通返回多个数值的，利用　byref　参数就可以了。

青城山苦丁茶

看都返回了些啥：

Function test1(a)
Select Case a
  Case 1
    test1 = Array(1, 2, 3, 4, 5, 6)
  Case 2
    Dim d As New Dictionary
    d(1) = "a"
    d(2) = "b"
    Set test1 = d
  Case Else
    test1 = "asdfg" & "|" & "123456"
End Select
End Function
Sub ta()
Dim arr1, x%
x = 1
arr1 = test1(x)
MsgBox Join(arr1, ",")
x = 2
Set arr1 = test1(x)
MsgBox Join(arr1.Keys, ",")
x = 3
arr1 = test1(x)
MsgBox Split(arr1, "|")(0)
MsgBox Split(arr1, "|")(1)
End Sub

etc.

开辆小富康

好好学习天天向上

[em01][em01]

爱疯

QUOTE:

以下是引用老申在2010-3-8 20:31:00的发言：

如果该函数应用在工作表中，是没法返回多个数值的，除非如枯禅说的数组函数。

如果该函数应用在vba程序中，是可以变通返回多个数值的，利用　byref　参数就可以了。

谢谢老申的指点！

自定义函数，“名正言顺”规定只返回一个函数值（不知这么说对不对）。

假如我是开发者，我肯定会想到，以后一定会遇上返回多个值的应用。可事实，并没有象返回一个值那样，允许自定义函数返回多个值？是和什么有关，不得不如此？！ ....  以致放弃一个给用户带来巨大方便的设定（我瞎想的）

也许，只能如老申所说变通的得到多个值，可为什么不能“名正言顺”，还是无法让我不瞎想。。。。 [em11]

爱疯

QUOTE:

以下是引用青城山苦丁茶在2010-3-8 20:38:00的发言：

看都返回了些啥：

Function test1(a)
Select Case a
  Case 1
    test1 = Array(1, 2, 3, 4, 5, 6)
  Case 2
    Dim d As New Dictionary
    d(1) = "a"
    d(2) = "b"
    Set test1 = d
  Case Else
    test1 = "asdfg" & "|" & "123456"
End Select
End Function
Sub ta()
Dim arr1, x%
x = 1
arr1 = test1(x)
MsgBox Join(arr1, ",")
x = 2
Set arr1 = test1(x)
MsgBox Join(arr1.Keys, ",")
x = 3
arr1 = test1(x)
MsgBox Split(arr1, "|")(0)
MsgBox Split(arr1, "|")(1)
End Sub

etc.

谢谢青城山！

这样依次返回了：1个数组、1个字典（test1 = d，第1次看到，还可以这样[em06]）、1个字符串。对么。

这个示例，意味着自定义函数可以完成返回多个值的需要，只是采取变通方式、再加工。可，可为什么非要如此 。。。。

[em11]