第7回 Subプロシージャでユーザー独自の処理を定義する基礎解説 演習方式で身につけるチェック式WSH超入門(2/3 ページ)

» 2006年12月07日 00時00分 公開

引数を指定したSubプロシージャ

 先ほどの例では、Subプロシージャを呼び出すたびに毎回同じ動作をするが、呼び出し方によって異なった挙動をさせたいという場合もある。その際に用いるのが引数である。すでに第4回で関数と関数に与える引数について解説したが、それと基本は同じで、Subプロシージャの引数として与えた値(変数、リテラル、関数の戻り値など)に応じて異なった処理を行わせることができる。概念図を示すと次のようになる。

引数付きSubプロシージャ呼び出しの概念図
Subプロシージャを呼び出す際に引数(実引数)を渡すことで、Subプロシージャ側の仮引数に実引数の値が代入され使用される。

 次の例は、前回登場した、指定した日付の英語日付表記を得るものであるが、表示部分をSubプロシージャ化している。

Option Explicit

ShowDateNotation #2016/6/29#
ShowDateNotation Date

'*********************************************************
'用途: 与えられた日付から英語日付表記を得て表示する。
'受け取る値: dtmDate: 日付(Date)
'戻り値: なし
'*********************************************************
Sub ShowDateNotation(dtmDate)
        Dim strMonthNames, strWeekNames, strDateName

        '月の名前を格納する1次元配列
        strMonthNames = _
        Array("Jan", "Feb", "Mar", "Apr", _
        "May", "Jun", "Jul", "Aug", _
        "Sep", "Oct", "Nov", "Dec")

        '曜日の名前を格納する1次元配列
        strWeekNames = _
        Array("Sun", "Mon", "Tue", "Wed", _
        "Thu", "Fri", "Sat")

        strDateName = _
        strWeekNames(WeekDay(dtmDate) - 1) & _
        ", " & Day(dtmDate) & " " & _
        strMonthNames(Month(dtmDate) - 1) & _
        " " & Year(dtmDate)

        MsgBox CStr(dtmDate) & vbCrLf & strDateName
End Sub

 このスクリプトを実行すると、例えば次のように2回メッセージ・ボックスが表示される。

SubプロシージャShowDateNotationを実行した例
与えられた日付のデータから、英語日付表記を取得し、メッセージ・ボックスに表示している。

 この例では、SubプロシージャShowDateNotationに#2016/6/29#という日付リテラル、Date関数の戻り値(今日の日付)をそれぞれ引数として渡している。このとき、渡す引数を実引数ともいう。SubプロシージャShowDateNotationは、渡された引数から英語日付表示を生成し、それを表示する。Sub ShowDateNotation(dtmDate)のdtmDateを仮引数といい、呼び出し元から与えられた実引数の値が仮引数に代入される。すなわち、#2016/6/29#という日付リテラルおよびDate関数の戻り値がそれぞれ仮引数に渡されてSubプロシージャ内で参照されるというわけである。

 なお、Subプロシージャの呼び出しにCallステートメントを用いることができる。

ShowDateNotation #2016/6/29#
ShowDateNotation Date

の代わりに、

Call ShowDateNotation (#2016/6/29#)
Call ShowDateNotation (Date)

と記述することでも同じ結果が得られる。Callステートメントを使うときは、引数に ( ) を付ける必要があるので注意しよう。

参照渡しと値渡し

 プロシージャに引数を渡す場合、「参照渡し(call by reference)」と「値渡し(call by value)」という2つの方法がある。

 VBScriptにおける引数は、デフォルトでは参照渡しであり、変数の参照を引数として渡す。これはどういうことかというと、プロシージャ内で仮引数の値を変更した場合、実引数として渡した変数の値も変更されるということである。次の例を見てもらいたい。

Option Explicit
Dim lngInitialNumber
lngInitialNumber = 5

Call ShowSquare(lngInitialNumber)
MsgBox "lngInitialNumber: " & lngInitialNumber

Sub ShowSquare(lngNumber)
        lngNumber = lngNumber * lngNumber
        MsgBox "自乗の値:" & lngNumber
End Sub

 これは、与えられた数値を自乗し、その結果を表示するという単純なサンプルだが、SubプロシージャShowSquare内で仮引数lngNumberにそのまま自乗の値を代入している。実引数は参照渡しされているので、lngInitialNumberの値は最初の5とは異なり、25となる。

 参照渡しに対し、値のコピーを引数に渡す、値渡しをさせるにはSubプロシージャを次のように記述する。

Sub ShowSquare(ByVal lngNumber)
        lngNumber = lngNumber * lngNumber
        MsgBox "自乗の値:" & lngNumber
End Sub

 このようにByValキーワードを用いることで実引数は値渡しされるので、lngInitialNumberの値は元の値から変化せず5となる。

 なお、VBScriptにおいては、ByVal(値渡しさせるためのキーワード)もしくはByRef(参照渡しさせるためのキーワード)を記述しない場合はByRefが省略されていると解釈される。

 また、後述するFunctionプロシージャでも参照渡しと値渡しの引数をそれぞれ渡すことができる。

Copyright© Digital Advantage Corp. All Rights Reserved.

RSSについて

アイティメディアIDについて

メールマガジン登録

@ITのメールマガジンは、 もちろん、すべて無料です。ぜひメールマガジンをご購読ください。