Excel VBAエキスパート資格・ベーシック解説｜sub 呼び出しCall

Excel VBAエキスパート資格・ベーシック試験対策の問題集に出題している「sub 呼び出しCall」の解説ページです。

ExcelVBAのsub 呼び出しCallステートメントは、料理レシピの手順のように各手順ごとに分けて管理するのと同じ。

プログラムをひとつのプロシージャで記述するのではなく、手順を分けて呼び出して使用する方法です。サンプルコードをもとに具体的に解説します。

Excel VBA sub 呼び出しCallステートメントとは

プロシージャから（Subプロシージャ、Functionプロシージャ）を呼び出すときに使います。

Excel VBA sub 呼び出しCallステートメントの使い方

例えば、フレンチトーストのレシピには次の手順があります。

1. パンを切る
2. 卵液に浸す
3. 焼く

これをExcelVBAのプログラムとして表現すると、以下のようになります。

Sub MakeFrenchToast()
    ' レシピの手順を呼び出す
    Call CutBread
    Call DipInEgg
    Call Cook
End Sub

Sub CutBread()
    ' パンを切る手順
    MsgBox "パンを切ります"
End Sub

Sub DipInEgg()
    ' 卵液に浸す手順
    MsgBox "パンを卵液に浸します"
End Sub

Sub Cook()
    ' 焼く手順
    MsgBox "パンを焼きます"
End Sub

この例では、`MakeFrenchToast`というメインのプロシージャ（料理全体の手順）があります。

そして、`CutBread`、`DipInEgg`、`Cook` というサブプロシージャ（個々の手順）をCallステートメントを使って呼び出しています。これにより、各手順を個別に記述し、効率的に再利用することができます。

Callステートメントを使って特定の手順を呼び出すことで、プログラム全体が整理され、修正や管理が簡単になります。

Excel VBA sub 呼び出しCallステートメントの使い所や利点

Sub MainCode()
    ' メインのコード
    Call CommonCode   ' 共通のコードを呼び出す
    ' メインのコードの続き
End Sub

Sub CommonCode()
    ' 共通のコード
    ' 何らかの処理
End Sub

Sub Calculate()
    ' 計算を行うサブルーチン
    Call CheckInputs   ' 入力を確認する
    Call PerformCalculation   ' 計算を実行する
    ' その他の処理
End Sub

Sub CheckInputs()
    ' 入力値をチェックする処理
End Sub

Sub PerformCalculation()
    ' 計算を実行する処理
End Sub

Excel VBA sub 呼び出しCallステートメントの注意点

' ネストされた呼び出しの例
Sub MainProcedure()
    ' 主要なプロシージャ
    Call SubProcedure1
End Sub

Sub SubProcedure1()
    ' サブプロシージャ1
    Call SubProcedure2
End Sub

Sub SubProcedure2()
    ' サブプロシージャ2
    ' ...
End Sub

Excel VBA Callステートメントの応用例

複数の引数を受け取るサブルーチンや関数

Sub CalculateAndDisplayResult()
    Dim input1 As Integer
    Dim input2 As Integer
    input1 = 10
    input2 = 20
    
    ' サブルーチンを呼び出して計算結果を表示
    Call DisplayResult(Add(input1, input2))
End Sub

Function Add(a As Integer, b As Integer) As Integer
    ' 2つの数値を足す関数
    Add = a + b
End Function

Sub DisplayResult(result As Integer)
    ' 結果を表示するサブルーチン
    MsgBox "計算結果は " & result & " です。"
End Sub

sub 呼び出しCall｜記憶定着問題集

' この変数はユーザーの名前を保持します
Dim userName As String

' ユーザー名を取得するための入力ボックスを表示します
userName = InputBox("あなたの名前を入力してください:")

' 行継続文字を使ったコードの例
Dim longText As String
longText = "1行が長くなったコードを行継続文字は " & _
            "スペースとアンダースコアで可能です"