Excel VBA 処理の一部をサブルーチン化するCallステートメント

• Call【ｺｰﾙ】（省略可）
  Call【ｺｰﾙ】キーワードを指定します。Call【ｺｰﾙ】キーワードは省略してもプロシージャを呼び出すことができますが、キーワードを使用して明示的にサブルーチンを呼び出したほうがわかりやすくなります。
• name【ﾈｰﾑ】（必須）
  呼び出すプロシージャの名前を指定します。
• 引数リスト（省略可）
  プロシージャに引き渡す変数リスト、配列、または式のいずれかを指定します。複数指定するときは、カンマ (,) で区切ります。

Sub 親プロシージャ()
Call サブルーチン1
Call サブルーチン2
End Sub

Private Sub サブルーチン1()
Range("B2").Value = "Excel"
End Sub

Private Sub サブルーチン2()
Range("B2").Interior.Color = RGB(255, 0, 0)
End Sub

親プロシージャで、Call【ｺｰﾙ】ステートメントを使用して、サブルーチン1とサブルーチン2プロシージャを呼び出して各プロシージャを実行します。サブルーチン部分は、Private【ﾌﾟﾗｲﾍﾞｰﾄ】ステートメント利用して作成しておくと、「マクロ」ダイアログボックスに表示されないマクロになります。

Sub 親プロシージャ2()
Call サブルーチン3(Range("A1:C3"), "Excel")
Call サブルーチン4(Range("A1:C3"))
End Sub

Private Sub サブルーチン3(範囲 As Range, 文字列 As String)
範囲.Value = 文字列
End Sub

Private Sub サブルーチン4(範囲 As Range)
範囲.Interior.Color = RGB(0, 255, 0)
End Sub

3行目【Call サブルーチン4(Range(“A1:C3”))】
Call【ｺｰﾙ】ステートメントを使用して、Private Sub【ﾌﾟﾗｲﾍﾞｰﾄｻﾌﾞ】プロシージャの「サブルーチン4」を呼び出します。

引数に「サブルーチン4」に渡す値のセル範囲A1セル～C3セルを設定します。

5行目【Private Sub サブルーチン3(範囲 As Range, 文字列 As String)】
サブルーチンとなるプロシージャを「マクロ実行」のダイアログボックスに表示されないようにPrivate【ﾌﾟﾗｲﾍﾞｰﾄ】ステートメントを利用して作成します。

プロシージャ名の後にカッコをを付けて、親プロシージャのCall【ｺｰﾙ】ステートメントの引数に設定した値を受け取ります。変数名のように任意の名前と受け取るデータ型を設定します。

6行目【範囲.Value = 文字列】
Call【ｺｰﾙ】ステートメントの引数から受け取った、A1セル～C3セルのセル範囲が格納された「範囲」に「Excel」の文字列が格納された「文字列」を設定します。

8行目【Private Sub サブルーチン4(範囲 As Range)】
サブルーチンとなるプロシージャを「マクロ実行」のダイアログボックスに表示されないようにPrivate【ﾌﾟﾗｲﾍﾞｰﾄ】ステートメントを利用して作成します。

プロシージャ名の後にカッコをを付けて、親プロシージャのCall【ｺｰﾙ】ステートメントの引数に設定した値を受け取ります。変数名のように任意の名前と受け取るデータ型を設定します。

9行目【範囲.Interior.Color = RGB(0, 255, 0)】
Call【ｺｰﾙ】ステートメントの引数から受け取った、A1セル～C3セルのセル範囲が格納された「範囲」にセルの背景を表すInterior【ｲﾝﾃﾘｱ】オブジェクトのColor【ｶﾗｰ】プロパティにRGB関数で色を設定します。

Sub 親プロシージャ3()
Dim 文字列 As String
文字列 = "Excel"
Call サブルーチン5(文字列)
MsgBox 文字列
End Sub
Private Sub サブルーチン5(ByVal 文字列 As String)
文字列 = "VBA"
End Sub