从Word VBA中的Function返回两个值 [英] Returning two values from Function in Word VBA

问题描述

我已经在VBA中编写了一个函数，该函数将计算两个值.有什么办法可以使我从函数中返回这两个值?

I have written a function in VBA which will calculate two values.Is there any way that i can get those two values returned from the function.

推荐答案

在VBA中，您可以通过两种方式返回更多值:返回数组或使用ByRef声明，请参见:

In VBA You can return more values by two ways: return an array or use ByRef declaration, see this:

    'return as array
    Function ReturnTwoValues(x As Long) As Long()
        Dim ret(1) As Long
        ret(0) = x
        ret(1) = x * 2
        ReturnTwoValues = ret
    End Function

    'return parameters declared as ByRef
    Sub ReturnTwoPars(x As Long, ByRef y1 As Long, ByRef y2 As Long)
        y1 = x
        y2 = x * 2
    End Sub


    Sub Test()
        'return an array
        Dim ar() As Long
        ar = ReturnTwoValues(2) 'variable must be the same type as function
        Debug.Print ar(0), ar(1)

        'use ByRef
        Dim y1 As Long
        Dim y2 As Long
        ReturnTwoPars 2, y1, y2
        Debug.Print y1, y2

    End Sub

这篇关于从Word VBA中的Function返回两个值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！