VBAのIE制御

こちらでは、エクセルVBAのSubプロシージャ、Functionプロシージャ、組み込み関数などを呼び出すCallステートメントについて解説しています。

ステートメントとは、「命令文」と訳されるように、コンピュータに具体的な動作を指定する最小単位のプログラムです。主にマクロの挙動を制御する構文や文法を指します。通常は１行で完結する部分を指しますが、If～Thenなど複数行にまたがる部分を意味することもあります。

目次

• Callステートメントとは
• Callステートメントの基本形サンプルコード
  • 実行結果
  • 解説
• Callステートメントの省略形サンプルコード
  • 実行結果
  • 解説
• Callステートメントで引数を設定したサンプルコード
  • 実行結果
  • 解説
• Callステートメントで戻り値を設定したサンプルコード
  • 実行結果
  • 解説

Callステートメントとは

Callステートメントは、他のSubプロシージャやFunctionプロシージャなどを呼び出して制御を渡すフロー制御ステートメントです。Callを省略して呼び出すことは可能ですが、別のプロシージャを呼び出していることが分かりますので、メンテナンスも考慮して明記するようにしましょう。

Call プロシージャ名
プロシージャ名

Callステートメントの基本形サンプルコード

Sub sample1()

    Call msg1

End Sub

Sub msg1()

    MsgBox "Callステートメントを明記した基本形になります。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

メッセージボックスに「Callステートメントを明記した基本形になります。」が表示される。

解説

呼び出し先sample1と呼び出し元msg1のSubステートメントには引数の設定をしていません。次にCallステートメントを明記して、msg1プロシージャを実行しています。msg1プロシージャにはMsgBox関数が利用されているので、メッセージボックスに「Callステートメントを明記した基本形になります。」を表示させます。

最後はEndステートメントを利用してsample1プロシージャを終了させます。

Callステートメントの省略形サンプルコード

Sub sample2()

    msg2

End Sub

Sub msg2()

    MsgBox "Callステートメントの省略形になります。"

End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

メッセージボックスに「Callステートメントの省略形になります。」が表示される。

解説

呼び出し先sample2と呼び出し元msg2のSubステートメントには引数の設定をしていません。次にCallステートメントを省略して、msg2プロシージャを実行しています。msg2プロシージャにはMsgBox関数が利用されているので、メッセージボックスに「Callステートメントの省略形になります。」を表示させます。

最後はEndステートメントを利用してsample2プロシージャを終了させます。

Callステートメントで引数を設定したサンプルコード

Sub sample3()

    Dim keyWords As String
    
    keyWords = "引数を渡して呼び出します。"
    
    Call msg3(keyWords)
    
End Sub

Sub msg3(keyWords As String)

    MsgBox keyWords
    
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

メッセージボックスに「引数を渡して呼び出します。」が表示される。

解説

呼び出し先sample3のSubステートメントには引数の設定していませんが、呼び出し元msg3にはkeyWordsが文字列型(String)で設定されています。そして、Dimステートメントを利用して変数keyWordsに文字列型(String)を宣言し、「引数を渡して呼び出します。」を代入します。次にCallステートメントに変数keyWordsを引数に設定して、msg3プロシージャを実行しています。msg3プロシージャにはMsgBox関数が利用されているので、変数keyWordsを代入して「引数を渡して呼び出します。」を表示させます。

最後はEndステートメントを利用してsample3プロシージャを終了させます。

Sub sample3()

    Dim keyWords As String
    
    keyWords = "引数を渡して呼び出します。"
    
    msg3 keyWords
    
End Sub

Sub msg3(keyWords As String)

    MsgBox keyWords
    
End Sub

※ドラッグ(スワイプ)すると全体を確認できます。

また、省略形で記述する場合は、引数をカッコで囲まずに半角スペースを入れて記述します。こちらも同様の結果になります。

Callステートメントで戻り値を設定したサンプルコード

Sub sample4()

    Dim n As Integer, result As Integer
    
    n = 3
    
    result = addition(n)
    
    Debug.Print "戻り値の数値は" & result

End Sub

Function addition(n As Integer) As Integer

    addition = n + 10
    
End Function

※ドラッグ(スワイプ)すると全体を確認できます。

実行結果

戻り値の数値は13

解説

呼び出し先sample4のSubステートメントには引数の設定していませんが、呼び出し元additionのFunctionステートメントには、nが整数型(Integer)で設定されています。次に、Dimステートメントを利用して変数n,resultに整数型(Integer)を宣言し、変数nには「3」を代入します。そして、変数resultにはCallステートメントを省略して、additionプロシージャを実行し戻り値を代入します。additionプロシージャにn=3を参照渡しすると、変数additionは3+10で「13」となるため、こちらが戻り値となります。戻り値を取得したら、DebugオブジェクトのPrintメソッドで「戻り値の数値は13」を表示させます。

最後はEndステートメントを利用してsample4プロシージャを終了させます。