分享

VBA数组参数的传递和返回

 JT_man 2014-10-07

为了帮助网友解决“VBA 数组参数的传递和返回”相关的问题,中国学网通过互联网对“VBA 数组参数的传递和返回”相关的解决方案进行了整理,用户详细问题包括: 

一个子程序:
Sub PicInComment(Optional ByVal PicReserve As Integer = 1, Optional ByVal WidthEdge As Integer = 300)
为什么调用并传递参数的时候必须用PicInComment 1, 250,而不能用PicInComment(1, 250)呢?

答:
用法有三种:
1、赋值给变量就要带括号。比如:a = PicInComment(1, 250)
2、call PicInComment(1, 250)
3、PicInComment 1, 250

函数定义:
Function SearchAllFile() As String()
    Dim arr(1 To 100) As String
    '一些处理
    SearchAllFile = arr '返回数组
End Function

函数调用:
Private Sub btnRun_Click()
    Dim ClArray(1 To 100) As String
    ClArray = ModCheck.SearchAllFile '报错“类型不一致”,请问为什么?
End Sub

具体解决方案如下:

解决方案:
Private Sub btnRun_Click()

    'ClArray不需要定义数组维数即可
    Dim ClArray() As String
    '或:dim ClArray

    '确保左侧的是大小可以调节的数组,且类型匹配
    'ClArray 只能是动态数组或variant变量。
    ClArray = ModCheck.SearchAllFile
End Sub

VBA函数数组参数的问题,用单元格传递不行。
我在VBA的模块中插入了一个函数,作用是计算向量的2范数如下
public function fanshu(ParamArray a() as Variant)
    dim i as long
    fanshu=0
    for i=0 to UBound(a())
        fanshu=fanshu+a(i)^2
    next i
    fanshu=Sqr(fanshu)
end function
参数用数组表示能得出正确结果如在单元格输入=fanshu(1,2,3,4)没问题
但在单元格A1到A4分别输入1,2,3,4 在A5中输入=fanshu(A1:A4)却得到错误#VALUE!
请问如何定义参数使得用选中单元格的方式来传递参数?

Public Function fanshu(rng As Range)
    Dim Cell As Range
    fanshu = 0
    For Each Cell In rng
        fanshu = fanshu + Cell ^ 2
    Next
    fanshu = Sqr(fanshu)
End Function


问:要求在调用子程序后能够将二维数组的数据导入到主程序对应的数组中?

答:
Sub test()
    Dim arr(), H As Long, L As Long
    arr = Range("A1:C8")
    L = 2
    H = 5
    Call CD(arr, H, L)
End Sub

Sub CD(iarr, iH, iL)
    ss = iarr(iH, iL)
    MsgBox "工作表的第" & iH & "行,第" & iL & "列的值是:" & ss, Title:="子程序信息"
End Sub

如何使用vba返回动态数组中的元素 ?

问:现在想用vba写一个函数,返回值为一个维度为a*b 的数组,函数的参数就是...

答:
Sub Main()
    a = 3
    b = 4
    ReDim Ar(1 To a, 1 To b)
    Call ub(Ar) MsgBox Ar(1, 2)
End Sub

Function ub(ByRef Arr)
    For i = LBound(Arr) To UBound(Arr)
        For j = LBound(Arr, 2) To UBound(Arr, 2)
            Arr(i, j) = i * j
        Next j
    Next i
End Function

vba如何将数组带入自定义的函数?
如何对数组进行自定义函数的运算,然后输出数组?就是说m=f(s,t,L,K)中的s取(2,3,4,5,6),结果m用数组输出 怎么写?求老师们指导~~

解决方案1:

Private Sub Form_Load()
    Dim s(), s1()
    s = Array(2, 3, 4, 5, 6)
    Dim t, L, K
    t = 1
    L = 2
    K = 3
    s1 = Test(s, t, L, K)
    For i = 0 To UBound(s1)
        MsgBox s1(i)
    Next
End Sub

Function Test(s(), t, L, K)
    Dim a
    ReDim a(UBound(s))
    For i = 0 To UBound(s)
        a(i) = s(i) + t + L + K '
    Next
    Test = a
End Function

解决方案2:

VB中,数组本来就是以传址方式进行传递调用的。也就是说,你这个参数S,可以是一个数组,调用的
时候,以一个数组调用,结果会传递返回给调用处。


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

解决方案1:
按地址引用参数就可以改变传进去的参数的值了。
如下列所示代码:
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

解决方案2:
返回数组地址。

通过EXCEL VBA自定义了一个函数,无法把数组传入到函数中。

解决方案1:

只能传单元格,然后转数组。如下
Function MyTest(rng As Range)
    Dim arr() As Variant
    Set arr = rng.Value
    MyTest = UBound(arr)
End Function

解决方案2:
这要用ParamArray的。


    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多