VBA関数から結果を返す方法

関数から結果を返すにはどうすればよいですか？

例えば：

Public Function test() As Integer
    return 1
End Function

これはコンパイルエラーになります。

この関数で整数を返すにはどうすればよいですか？

非オブジェクトの戻り値型の場合、次のように値を関数の名前に割り当てる必要があります。

Public Function test() As Integer
    test = 1
End Function

使用例：

Dim i As Integer
i = test()

関数がオブジェクトタイプを返す場合は、次のSetようなキーワードを使用する必要があります。

Public Function testRange() As Range
    Set testRange = Range("A1")
End Function

使用例：

Dim r As Range
Set r = testRange()

関数名に戻り値を割り当てても、関数の実行は終了しません。関数を終了する場合は、明示的に言う必要がありますExit Function。例えば：

Function test(ByVal justReturnOne As Boolean) As Integer
    If justReturnOne Then
        test = 1
        Exit Function
    End If
    'more code...
    test = 2
End Function

ドキュメント：http : //msdn.microsoft.com/en-us/library/office/gg264233%28v=office.14%29.aspx

VBA関数は、関数名自体を一種の変数として扱います。したがって、「return」ステートメントを使用する代わりに、次のように言うだけです。

test = 1

ただし、これが関数から抜け出すわけではないことに注意してください。このステートメントの後のコードも実行されます。したがって、さまざまな値をtestに割り当てる多くの割り当てステートメントを持つことができ、関数の最後に到達したときの値が何であれ、返される値になります。

戻り値を関数名に設定するだけでは、Java（またはその他の）ステートメントとまったく同じではありませんreturn。これは、Java returnでは次のように関数を終了するためです。

public int test(int x) {
    if (x == 1) {
        return 1; // exits immediately
    }

    // still here? return 0 as default.
    return 0;
}

VBでは、関数の最後に戻り値を設定しない場合、完全に同等のものは2行かかります。したがって、VBでは正確な結果は次のようになります。

Public Function test(ByVal x As Integer) As Integer
    If x = 1 Then
        test = 1 ' does not exit immediately. You must manually terminate...
        Exit Function ' to exit
    End If

    ' Still here? return 0 as default.
    test = 0
    ' no need for an Exit Function because we're about to exit anyway.
End Function 

これが事実であるため、メソッド内で他の変数と同様に戻り変数を使用できることも知っておくと便利です。このような：

Public Function test(ByVal x As Integer) As Integer

    test = x ' <-- set the return value

    If test <> 1 Then ' Test the currently set return value
        test = 0 ' Reset the return value to a *new* value
    End If

End Function 

または、戻り変数の動作の極端な例（ただし、実際にコーディングする方法の良い例とは限りません）—夜間も動き続けるもの：

Public Function test(ByVal x As Integer) As Integer

    test = x ' <-- set the return value

    If test > 0 Then

        ' RECURSIVE CALL...WITH THE RETURN VALUE AS AN ARGUMENT,
        ' AND THE RESULT RESETTING THE RETURN VALUE.
        test = test(test - 1)

    End If

End Function

コード変数に格納戻り値以下retValとその後MsgBox：値を表示するために使用することができます

Dim retVal As Integer
retVal = test()
Msgbox retVal