[VBA] 数値の符号を判定するサブルーチン

　VBA 数学マクロ入門講座の９回目の記事です。
　前回登場した If…Then…Elseステートメントをもう少し詳しく解説します。
　

入力された数値の正負を判定します

　ダイアログボックスで入力された 数値の符号を判定するサブルーチン を作成してみます。

'符号判定マクロ

Sub SIGN()

　　Dim x As Double

　　x = InputBox("数値を入力してください")

　　If x = 0 Then
　　　　MsgBox "x は 0 です"

　　ElseIf x > 0 Then
　　　　MsgBox "x は正です"

　　Else
　　　　MsgBox "x は負です"

　　End If

End Sub

　マクロを実行すると数値の入力を促されます。
　たとえば 3 を入力するとメッセージボックスに

x は正です

と表示され、－2 を入力すると

x は負です

と表示されます。 0 を入力すると

x は 0 です

というメッセージが表示されます。

　If…Then…Elseステートメントは条件ごとに処理を変える命令文で、以下の形式で記述します。

　If [条件１] Then

　　　[条件１] を満たす場合の処理

　ElseIf [条件２] Then

　　　[条件２] を満たす場合の処理

　Else

　　　[条件１] も [条件２] も満たさない場合の処理

　End If

　If…Then は「もし…ならば」、
　ElseIf…Then は「そうでなくて、もし…ならば」、
　Else は「その他の場合」という意味の命令文です。

　条件の数はもっと多くて構いませんが、その場合は

　ElseIf [条件３] Then

　　　[条件３] を満たす場合の処理

　ElseIf [条件４] Then

　　　[条件４] を満たす場合の処理

　・・・・・・・・・・・・・・・

という具合に ElseIf 文を追加しておきます。改めて正負判定マクロを見てみると、

　If x = 0 Then

　　　MsgBox "x は 0 です"

　ElseIf x > 0 Then

　　　MsgBox "x は正です"

　Else
　　　MsgBox "x は負です"

となっていて、これは条件ごとに

　x = 0　　　　　 ⇒　「 x は 0 です」を表示
　x > 0　　　　　⇒　「 x は正です」を表示
　それ以外の数値　⇒　「 x は負です」を表示

という処理をするように命じているのです。

　≫ 偶奇を判定します
　≫ 数学マクロ講座トップページへ戻る