VBAのIE制御

こちらは、エクセルVBAのSubステートメントの解説になります。Subプロシージャを作成するために利用されるステートメントですので、しっかり覚えましょう。

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

目次

• Subステートメントとは
  • 参照渡し
  • 値渡し
• 引数を渡してメッセージボックスを表示するサンプルコード
  • 実行結果
  • 解説
• 参照渡しでメッセージボックスを表示するサンプルコード
  • 実行結果
  • 解説
• 値渡しでメッセージボックスを表示するサンプルコード
  • 実行結果
  • 解説

Subステートメントとは

Subステートメントは、Subプロシージャの名前、引数、Subプロシージャの本体を宣言します。

Sub プロシージャ名()
　処理に内容
End Sub

引数arglist

参照渡し

参照渡しとは、プロシージャに引数として変数を渡すときに、変数に格納されている値ではなく変数そのもの渡す方法です。値をコピーする必要がないため、無駄にメモリを消費することがありません。注意点としては、変数そのものを渡すため、呼び出し先のプロシージャ内で変数の値が変更してしまいます。こちらを理解した上で設定しましょう。

値渡し

値渡しとは、プロシージャに引数として変数を渡すときに、変数に格納されている値そのものを渡す方法です。値をコピーするため、その分メモリを消費します。値を渡していますので、呼び出し先のプローシージャ内で値が変更されることはありません。処理パフォーマンスの観点から見ると無駄にメモリを消費しない参照渡しを利用することが多いですが、値の変更を行いたくない場合は、値渡しを利用しましょう。

引数を渡してメッセージボックスを表示するサンプルコード

Sub sample1()

    '①VBA
    Call msg
    
    '②InternetExplorer
    Call msg("InternetExplorer")

End Sub

Sub msg(Optional strMsg As String = "VBA")

    MsgBox strMsg

End Sub

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

実行結果

①メッセージボックスにVBAが表示される。
②メッセージボックスにInternetExplorerが表示される。

解説

呼び出し先sample1のSubステートメントには引数なし、呼び出し元msgには引数strMsgを設定しています。そして、Callステートメントを利用してmsgプロシージャを実行しています。

最初のmsgプロシージャ①に引数は設定していませんが、msgプロシージャ側に引数省略ができる「Optional」が設定されており、更に初期値に「VBA」を設定しています。よって引数なしの場合は、MsgBox関数を利用してメッセージボックスに「VBA」を表示させます。

2回目のmsgプロシージャ②には「InternetExplorer」が引数strMsgに代入されメッセージボックスに「InternetExplorer」を表示させます。

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

参照渡しでメッセージボックスを表示するサンプルコード

Sub sample2()

    Dim keyWords As String
    
    keyWords = "VBA"
    
    Call value1(keyWords)

    'InternetExplorer（参照渡し）
    MsgBox keyWords
    
    
End Sub

Sub value1(keyWords As String)
    keyWords = "InternetExplorer"
End Sub

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

実行結果

メッセージボックスにInternetExplorerが表示される。

解説

こちらは「参照渡し」のサンプルです。 呼び出し先sample2のSubステートメントには引数なし、呼び出し元value1には引数keyWordsを設定しています。まず、Dimステートメントを利用して変数keyWordsに文字列型(String)を宣言し、「VBA」を代入します。

次にCallステートメントを利用してvalue1プロシージャを呼び出します。その際に変数keyWordsを引数として設定します。value1プロシージャの引数は「ByVal/ByRef」を明示していませんので、自動的に「ByRef」が設定され、参照渡しで渡されます。

今回は、変数keyWordsを渡していますので、value1プロシージャで変数keyWordsが「InternetExplorer」に変更されます。これにより、メッセージボックスには、「InternetExplorer」が表示されます。

値渡しでメッセージボックスを表示するサンプルコード

Sub sample3()

    Dim keyWords As String
    
    keyWords = "VBA"
    
    Call value2(keyWords)
    
    'VBA（値渡し）
    MsgBox keyWords
    
    
End Sub

Sub value2(ByVal keyWords As String)
    keyWords = "InternetExplorer"
End Sub

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

実行結果

メッセージボックスにVBAが表示される。

解説

こちらは「値渡し」のサンプルです。 呼び出し先sample3のSubステートメントには引数なし、呼び出し元value2には引数keyWordsを設定しています。
まず、Dimステートメントを利用して変数keyWordsに文字列型(String)を宣言し、変数keyWordsに「VBA」を代入します。

次にCallステートメントを利用してvalue1プロシージャを呼び出します。その際に変数keyWordsを引数として設定していますが、 value2プロシージャの引数は「ByVal」を設定しているため、値渡しで渡されます。

今回は、変数keyWordsの値「VBA」を渡していますので、sample3プロシージャ側の変数keyWordsは「VBA」のままとなります。これにより、メッセージボックスには、「VBA」が表示されます。