自定义函数如何返回多个值，并赋值给excel表

kof369

public function  cal（a,b）
dim c1,c2 as integer
c1=a+b
c2=a-b

cal（1）=c1
cal（2）=c2
end function

类似上面的函数，就是取两个值，计算后再excel自定义函数中插入函数cal，然后在cells（1,2）和cells（1,3）中赋值c1,c2,用函数完成赋值结果，不用过程。不知道怎么才能实现，求助！！！！

chxw68

1. Public Function cal(a, b)
   
2.   Dim c1, c2 As Integer
   
3.   c1 = a + b
   
4.   c2 = a - b
   
5.   cal = Array(c1, c2)
   
6. End Function
   

复制代码

这个就是数组公式了，在需要计算的地方选择两个连续的单元格，输入公式，然后按Ctrl+Shit+Enter。

zhaogang1960

数组公式：

1. Public Function cal(a As Integer, b As Integer) As Variant
   
2.     Dim c(1 To 2) As Integer
   
3.     c(1) = a + b
   
4.     c(2) = a - b
   
5.     cal = c
   
6. End Function
   

复制代码

效果见附件
Book1.rar (5.37 KB, 下载次数: 219)

2014-5-15 18:27 上传

点击文件名下载附件

kof369

各位老师，为什么我“在需要计算的地方选择两个连续的单元格，输入公式，然后按Ctrl+Shit+Enter”后出现的都是a+b的数值，而a-b的数值没有呢。另外有没有语句可以代替Ctrl+Shit+Enter三个键呢？

zhaogang1960

kof369 发表于 2014-5-15 22:23
各位老师，为什么我“在需要计算的地方选择两个连续的单元格，输入公式，然后按Ctrl+Shit+Enter”后出现的都 ...

既然你要求使用函数解决数组问题，就应该接受这种方法，否则只能使用Sub过程解决了

kof369

以上问题已经解决了，谢谢老师。还有一个问题
Public Function cal(a As Integer, b As Integer，x,y as integer As Variant
    Dim c(1 To 2) As Integer
    dim z(1 To 2) as double
    c(1) = a + b
    c(2) = a - b
    c(3) = a *b
    c(4) = a /b
    z(0)= c(x)
    z(1)=c(y)
    cal = z
End Function

我想根据第三个参数来确定返回值的数量及返回那个值如何做，比如以上两个例子，如果x=1,y=2 则只返回数组的C(1)，C(2),如果x=1,y=4 则只返回数组的C(1)，C(4)。同时返回值的个数最好是不要固定，根据需要确定，需要返回3个就返回3个，需要返回4个就返回4个，是不是用没有维数的数组能实现呢？

zhaogang1960

kof369 发表于 2014-5-16 08:28
以上问题已经解决了，谢谢老师。还有一个问题
Public Function cal(a As Integer, b As Integer，x,y as i ...

1. Public Function cal(a As Integer, b As Integer, x As Integer, y As Integer) As Variant
   
2.     Dim c(1 To 4) As Integer
   
3.     Dim z() As Integer
   
4.     c(1) = a + b
   
5.     c(2) = a - b
   
6.     c(3) = a * b
   
7.     c(4) = a / b
   
8.     ReDim z(x To y)
   
9.     For i = x To y
   
10.         z(i) = c(i)
    
11.     Next
    
12.     cal = z
    
13. End Function

复制代码

kof369

以上函数在sub过程怎么调用呢？

zhaogang1960

kof369 发表于 2014-5-16 13:39
以上函数在sub过程怎么调用呢？

1. Sub Macro1()
   
2.     Dim arr
   
3.     arr = cal(2, 1, 1, 4)
   
4.     Range("a1").Resize(, UBound(arr) - LBound(arr) + 1) = arr
   
5. End Sub
   
6. Public Function cal(a As Integer, b As Integer, x As Integer, y As Integer) As Variant
   
7.     Dim c(1 To 4) As Integer
   
8.     Dim z() As Integer
   
9.     c(1) = a + b
   
10.     c(2) = a - b
    
11.     c(3) = a * b
    
12.     c(4) = a / b
    
13.     ReDim z(x To y)
    
14.     For i = x To y
    
15.         z(i) = c(i)
    
16.     Next
    
17.     cal = z
    
18. End Function

复制代码

VBA万岁

我觉得增加两个参数ad、sd也可实现是取和值，还是取差值：
Public Function cal(a As Integer, b As Integer, ad As Integer, sd As Integer) As Variant
    If ad = 1 And sd = 0 Then
        cal = a + b
    ElseIf ad = 0 And sd = 1 Then
        cal = a - b
    End If
End Function