在VBA中调用函数时，怎么实现返回多个参数？

如题所述

推荐答案推荐于2016-05-03

按地址引用参数就可以改变传进去的参数的值了。

如下列所示代码：
m和n就被函数addtest改变为3和4了。

Public Function addtest(ByRef a As Integer, ByRef b As Integer)
a = 3
b = 4
addtest = 5
End Function
Sub aa()
Dim m As Integer
Dim n As Integer
addtest m, n
MsgBox m
MsgBox n
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://77.wendadaohang.com/zd/888N3I8Wq.html

其他回答

第1个回答 2011-11-07

返回数组地址。

相似回答

excelvba中Vlookup返回多个值自定义函数答：可以这么理解，是Vlookup函数返回多个值，将其对应的所有值都列出来 Function LookS(rng As Range, rg As Range, i As Byte, ii As Integer)‘第1参数为查找的单元格，第2参数是查找范围，第3参数为返回的列，第4参数为返回的第几个值 ‘第1参数和第2参数都要锁定行 Dim arr, a%, x arr ...

vba中如何在一个function中输入一个参数返回另一个参数答：1、首先打开excel在工具栏中找到开发工具，然后打开编辑页面，在页面上输入程序，如图所示，创建一个函数，也是比较方便的。直接使用function。2、然后给函数命名，函数名后面的括号内部需要写上函数的参数，这里有参数可以写，没有参数也可以不写。以求和函数为例，写上两个参数。3、下方定义函数的计算公式...

VB 怎么在自定义函数中,返回多个值?请举例说明答：Sub 按钮1_Click() Dim 周长 As Double, 面积 As Double, 半径 As Double 周长 = 0 面积 = 0 半径 = 15# Call SubN(周长, 面积, 半径) MsgBox 周长 & " " & 面积End SubSub SubN(ByRef 周长参数, ByRef 面积参数, ByVal 半径参数) If 半径参数 < 0 Then ...

excel VBA函数如何返回多个结果到多个单元格中?答：1，你再写一个计算函数放到另一个单元格中，或者再次调用这个函数，做两次计算，每次返回一个结果。2，你可以把两个单元格的形参传到函数体内，跟据你的需要，填中不同的值即可。 Function mydd(aData As Range,aDataW As Range)……mydd=array(……)aDataW... = ... End Function ...

Excel VBA系列之自定义多个参数的函数答：1. 在Excel工作表的A2单元格中有一个类似产品序列号的数据，需要通过VBA自定义函数取出年份和月份信息。2. 打开Visual Basic，添加一个模块，定义一个函数“czf”，表示拆字符。3. 为自定义函数添加三个参数，两个字符类型，一个整数类型；这里可以根据实际需要自行设置参数。4. 定义此函数时，使用...

Excel VBA调用子程序时如何传递参数答：用法有三种 1、赋值给变量就要带括号比如 a = PicInComment (1, 250)2、call PicInComment (1, 250)3、PicInComment 1, 250

vba的函数调用与取得返回值答：1、直接调用或者call 过程名 call 函数名就可以了，比如 Private Sub CommandButton1_Click()MsgBox "你调用了CommandButton1_Click过程"End Sub Private Sub CommandButton2_Click()Call CommandButton1_Click End Sub 2、如果有参数的话需要带上参数，比如 Private Sub CommandButton1_Click()Call ...

大家正在搜

调用函数时实参与形参被调函数调用结束后返回到哪函数调用后必须带回返回值 c语言函数怎么返回数组 c语言程序中,当调用函数时函数返回多个值 c语言怎么调用函数 c语言函数返回多个值函数调用可以在