Question

Excel VBA 函数输出

怎么将函数的结果显示在多个单元格中
Function dxl(Rng As Range)
Dim Result(1 To 7) As Double
...................
ActiveCell.Resize(1, 7) = Result
end function

在单元格中输入“=dxl（”。。。。“）”后提示循环引用。
如果将最后一句换为 dxl=result 只在相应单元格中输出result（1）。
请教各位，我怎样才能将函数中的数组result输出到7个单元格中
问题我已经解决了，可以用数组公式。可以参考《Excle2003 高级VBA编程宝典》一书。
非常感谢三位的回答。

Answer 1

1、示例代码：

Sub test1()
    Dim x As Long
    x = WorksheetFunction.SumIf(Range("A2:A9"), Range("C2").Value, Range("B2:B9"))
    Range("D2").Value = x
End Sub

2、如下图：

3、以上代码的作用是：调用工作表函数SUMIF，求A2:A9范围内符合C2单元格条件，对应的B2:B9范围内数值之和，结果输出到D2单元格。

Answer 2

Function dxl(Rng As Range)
     Dim Result(1 To 7) As Double
     ...................
     'ActiveCell.Resize(1, 7) = Result
     dxl=Result
end function

直接最后第二句改改就好了。直接就是变量的赋值语句。

Answer 3

最后一个弄成循环的，
for i=1 to ubound(Result)
Activecell.offset(1,i).value=Result(i)
next i

Answer 4

定义为函数不如定义为过程好~因为函数只有一个返回值，而过程虽然没有返回值，但是可以将多个值赋给多个对象~
Sub dxl(Rng As Range)
Dim Result(1 To 7) As Double
...................
for i=1 to 7
cells(i,1) = Result (i)
next i
end Sub

注：
cells(i,j)表示当前工作表的第i行第j列相交的单元格~
sheets("表名").cells(i,j)则表示 名为“表名”的工作表中相应的单元格

Answer 5

所谓函数，就是有一个输入输出的过程，你输入是Rng，但是输出没有定义dxl，这样是不对的。
就像你说的，如果写了“dxl=result 只在相应单元格中输出result（1）。 ”

其实你需要的是一些操作的合集，并不需要函数。你在sheet里面插入一个按钮，在按钮的click事件里面编写代码，就可以方便地把结果输出到7个单元格了