Excel宏中自定义函数如何返回多值？

[jsntsam]

我想计算结果的多个值作为Range对象返回

定义形式下面
Public Function F1(PRange As Range, N As Integer) As Range


End Function

但是Range对象是依赖于worksheet的，new都不行。

要达到上面的目的，如何做？

[LeeZi]

数组呀，老大。

[jsntsam]

以上两位的方法我都考虑过，但都没有成功。

哪位能不能具体点？

[changechange]

连对象一起传进来不就可以了？

[HawaiiLeo]

Dim Num(6) As Integer
........

Public Sub F1(Num() As Integer, PRange As Range, N As Integer)

'把计算得到的值符值给数组Num就行了

End Sub

'在这就可以引用数组Num中的值了。

[jsntsam]

up

[FredLee2004]

试试下面的代码：

Option Base 1

Public Function MyTest(ByRef TheData As Variant, ByVal RowNum As Long, ByVal ColNum As Long) As Variant
Dim RowLoop As Long, ColLoop As Long
Dim NewCell() As Variant
*** ReDim NewCell(RowNum, ColNum)
For RowLoop = 1 To RowNum
For ColLoop = 1 To ColNum
*** NewCell(RowLoop, ColLoop) = TheData.Cells(RowLoop, ColLoop).Value
Next ColLoop
Next RowLoop
MyTest = NewCell
End Function

上述代码要求提供Range参数以及该Range的行数和列数，并返回计算结果。
***行设定返回数据的格式和内容，你应该自己调整。

[gigilee]

那你就把那些range设值为全局变量吧