[vba] 函数返回多个值

一, 使用数组

即使返回的值是对象,也可以使用对象数组

Sub test_arr_obj()
brr = sCreatWorkBook("titt")
brr(2).Range("C3") = "test"
End Sub

Function sCreatWorkBook(Optional sheetname)
    If IsMissing(sheetname) Then sheetname = "rSheet"
    Set wb = Workbooks.Add
    With wb
        Set sht = .Worksheets(1)
        sht.Name = sheetname
    End With
    Dim arr(1 To 2)
    Set arr(1) = wb
    Set arr(2) = sht
    sCreatWorkBook = arr
End Function

过程中只需要 数组名 =  函数名(变量) 即可

但是在函数中 需要dim 数组, 然后使用set 给数组传递对象, 最后 函数名 = 数组 即可.

本例中其实只需要返回一个 工作表对象即可.

二, 使用Collection对象

Sub test_Function_return_Mult()
    numa = 3
    numb = 7
    Dim c As New Collection
    Set c = test_Return_Mult(numa, numb)
    MsgBox (c(1))
    MsgBox (c(2))
End Sub
Function test_Return_Mult(a1, b1)
    c1 = a1 + b1
    d1 = a1 - b1
    
    Dim var As New Collection
    var.Add c1
    var.Add d1
    Set test_Return_Mult = var

End Function

比较麻烦, 需要分别在 过程和函数中声明新的collection对象, 然后分别用set 语句赋值.

其中函数中 使用.Add 添加元素, 过程中 使用(index)调用元素. 其中index 从1开始.

三, 通过ByRef 传参

据说会很混乱, 暂不研究与使用

---------

其余问题:

1. 在workbooks.add 中,看到用法 wb.Title = rWorkbookName, 但是报告 C/Documents/rWorkbookName.xlsx 不存在, 除非增加.Save保存. 无法在不保存文件的情况下将bookN重命名为想要的rWorkbookName.

2.在workbooks对象的属性中并没有找到.Title

3.在使用Collection对象时, 第一句赋值写a=1会编译错误, 缺少函数和变量. 在看了同类问题后, (8条消息) 【VBA研究】错误：缺少函数或变量_宋哥的博客-CSDN博客_缺少函数或变量将赋值语句改为numa =1 后解决, 猜测可能是 a这些单字变量地位特殊.