VBScriptでサブルーチン（Subプロシージャ、Functionプロシージャ）をマスターしよう

SubプロシージャとFunctionプロシージャの違い

定義したサブルーチンやファンクションは、他の場所から呼び出すことができます。

• Subプロシージャ: 特定の処理を実行するが、呼び出し元に値を返さないプロシージャ。プログラムの流れを制御する際に用いられます。
• Functionプロシージャ: 特定の処理を実行し、その結果を呼び出し元に返すプロシージャ。計算結果や文字列などを取得する必要がある場合に使用されます。

Subプロシージャの基本

Subプロシージャは、特定のタスクを実行するためのコードブロックで、値を返すことなく処理を実行します。

構文:

Sub プロシージャ名(引数1, 引数2, ...)
    ' 実行するコード
End Sub

例:

Sub GreetUser(name)
    MsgBox "こんにちは、" & name & "さん!"
End Sub

' 呼び出し
GreetUser "太郎"

この例では、GreetUserというSubプロシージャが、名前を引数として受け取り、メッセージボックスに挨拶を表示します。

Functionプロシージャの基本

Functionプロシージャは、Subプロシージャと似ていますが、値を返す点が異なります。計算結果や処理結果を返す必要がある場合に使用します。

書式:

Function プロシージャ名(引数1, 引数2, ...)
    ' 実行するコード
    プロシージャ名 = 戻り値
End Function

例

Function AddNumbers(num1, num2)
    AddNumbers = num1 + num2
End Function

' 呼び出し
Dim result
result = AddNumbers(5, 10)
MsgBox "結果は " & result

この例では、AddNumbersというFunctionプロシージャが2つの数値を受け取り、その和を返します。

サブルーチンの使いどころ

サブルーチンを使うことで、同じ処理を何度も書く必要がなくなり、プログラムの構造が明確になり、デバッグや保守が容易になります。

• Subプロシージャの使いどころ: 値を返さずに、特定の処理だけを実行する場合に適しています。
• Functionプロシージャの使いどころ: 処理結果を返す必要がある場合に適しています。

サブルーチンを使ったプログラム例

次に、サブルーチンを利用したプログラムの具体例を示します。以下のプログラムは、ユーザーに2つの数値を入力させ、その合計を表示します。

例

Sub Main()
    Dim num1, num2, result
    num1 = InputBox("最初の数値を入力してください:")
    num2 = InputBox("次の数値を入力してください:")
    
    result = AddNumbers(num1, num2)
    MsgBox "合計は " & result & " です。"
End Sub

Function AddNumbers(num1, num2)
    AddNumbers = num1 + num2
End Function

' プログラムの実行
Main

演習問題

ここでは、学んだ内容をもとに実際に手を動かしてみましょう。

演習1

ユーザーに名前を入力させ、その名前を使って挨拶を表示するSubプロシージャを作成してください。

Sub GreetUser()
    Dim name
    name = InputBox("あなたの名前を入力してください:")
    MsgBox "こんにちは、" & name & "さん!"
End Sub

' 実行
GreetUser

演習2

2つの数値を受け取り、その差を返すFunctionプロシージャを作成してください。

Function SubtractNumbers(num1, num2)
    SubtractNumbers = num1 - num2
End Function

' 呼び出し例
Dim result
result = SubtractNumbers(15, 5)
MsgBox "差は " & result

演習3

1つの数値を受け取り、その数値が偶数か奇数かを判断して結果を返すFunctionプロシージャを作成してください。

Function IsEvenOrOdd(num)
    If num Mod 2 = 0 Then
        IsEvenOrOdd = "偶数"
    Else
        IsEvenOrOdd = "奇数"
    End If
End Function

' 呼び出し例
Dim result
result = IsEvenOrOdd(7)
MsgBox "7は " & result & " です。"

まとめ

今回の記事では、SubプロシージャとFunctionプロシージャの違い、使い方、そして具体的なプログラム例や演習問題を通じて、サブルーチンの基礎を学びました。

サブルーチンを正しく理解し、適切に活用することで、VBScriptのコードをより効率的に、そして読みやすくすることができます。

ぜひ、今回の内容をもとに、実際にサブルーチンを作成し、プログラムの効率化に役立ててください。