「switch文」の編集履歴（バックアップ）一覧はこちら

「switch文」(2015/04/29 (水) 11:05:40) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

<ul style="margin:1em 0px;padding-left:25px;color:rgb(62,62,62);font-family:arial, helvetica, 'ヒラギノ角ゴ Pro W3', 'Hiragino Kaku Gothic Pro', Osaka, 'メイリオ', Meiryo, 'MS Pゴシック', clean, sans-serif;font-size:10.9440002441406px;line-height:13.1328001022339px;background-color:rgb(245,245,245);"><li><font color="#5F441A">switch文</font></li>
</ul>

<ul style="margin:1em 0px;padding-left:25px;color:rgb(62,62,62);font-family:arial, helvetica, 'ヒラギノ角ゴ Pro W3', 'Hiragino Kaku Gothic Pro', Osaka, 'メイリオ', Meiryo, 'MS Pゴシック', clean, sans-serif;font-size:10.9440002441406px;line-height:13.1328001022339px;background-color:rgb(245,245,245);"><li><font color="#5F441A">switch文</font></li>
</ul><p> </p>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
複数の条件により処理を分岐させたい場合はSelect Caseステートメントを使用します。 "Select Case
変数"の形式で式を評価し、Case以下の条件に合致（式を評価した結果がtrueであるとき）だけその次の文を実行します。条件がtrueでないときは、次の次の条件を調べます。
どのCase以下の条件にも当てはまらない場合はCase Else以下の文を実行します。</p>
<div class="syntax" style="border:1px solid rgb(0,115,37);padding:4px 10px 0px 20px;margin:0px 0px 5px 30px;width:794.1875px;color:rgb(0,0,0);line-height:1.4;font-family:'MS PGothic';font-size:13.6000003814697px;">
<pre>
<code>
Select Case 変数
    Case 値1
        変数=値1の場合の処理
    Case 値2
        変数=値2の場合の処理
    Case Else
       変数=値1、変数=値2を満たさなかった場合の処理
End Select
</code>
</pre></div>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
以下の例では、インプットボックスに入力した文字により処理を分岐させた例です。</p>
<div class="samplecode" style="border:1px solid rgb(0,115,37);padding:0px 10px 0px 20px;font-size:11.5600004196167px;margin:10px 0px 0px 30px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
<pre>
<code>
'説明：インプットボックスに入力された文字を英語に訳して
'　　　メッセージボックスに表示する。
Sub test()
    Dim strFruitName As String
    strFruitName = InputBox("果物の名前をひらがなで入力してください。")
    
    Select Case strFruitName
        Case "りんご"
            MsgBox "Apple"
        Case "もも"
            MsgBox "Peach"
        Case "いちご"
            MsgBox "Strawberry"
        Case "なし"
            MsgBox "Pear"
        Case "みかん"
            MsgBox "Mandarin orange"
        Case Else
            MsgBox "???"
    End Select
End Sub
</code>
</pre></div>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
比較演算子を使用する場合はCase Is以下に比較条件を記述します。</p>
<div class="syntax" style="border:1px solid rgb(0,115,37);padding:4px 10px 0px 20px;margin:0px 0px 5px 30px;width:794.1875px;color:rgb(0,0,0);line-height:1.4;font-family:'MS PGothic';font-size:13.6000003814697px;">
<pre>
<code>
Select Case 変数
    Case Is 比較条件1
       変数が比較条件1を満たした場合の処理
    Case Is 比較条件2
       変数が比較条件2を満たした場合の処理
    Case Else
       変数が比較条件1と比較条件2を満たさなかった場合の処理
End Select
</code>
</pre></div>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
以下の例は比較演算子により処理を分岐させた例です。</p>
<div class="samplecode" style="border:1px solid rgb(0,115,37);padding:0px 10px 0px 20px;font-size:11.5600004196167px;margin:10px 0px 0px 30px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
<pre>
<code>
'説明：インプットボックスに入力された点数によりテスト結果を
'　　　メッセージボックスに表示する。
Sub test()
    Dim intPoint As Integer
    intPoint = InputBox("点数を入力してください")
    
    Select Case intPoint
        Case Is &gt;= 80
            MsgBox "優です。"
        Case Is &gt;= 70
            MsgBox "良です。"
        Case Is &gt;= 60
            MsgBox "可です。"
        Case Else
            MsgBox "再テストです。"
    End Select
End Sub
</code>
</pre></div>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
範囲により処理を分岐させたい場合はCase以下に範囲を記述します。</p>
<div class="syntax" style="border:1px solid rgb(0,115,37);padding:4px 10px 0px 20px;margin:0px 0px 5px 30px;width:794.1875px;color:rgb(0,0,0);line-height:1.4;font-family:'MS PGothic';font-size:13.6000003814697px;">
<pre>
<code>
Select Case 変数
    Case 範囲1
        変数が範囲1の場合の処理
    Case 範囲2
        変数が範囲2の場合の処理
    Case Else
        変数が範囲1と範囲2なかった場合の処理
End Select
</code>
</pre></div>
<p style="padding:10px 0px 4px 10px;font-size:11.5600004196167px;margin:4px 0px 4px 20px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
以下の例は比較演算子により処理を分岐させた例です。</p>
<div class="samplecode" style="border:1px solid rgb(0,115,37);padding:0px 10px 0px 20px;font-size:11.5600004196167px;margin:10px 0px 0px 30px;width:794.1875px;line-height:1.4;color:rgb(0,0,0);font-family:'MS PGothic';">
<pre>
<code>
'説明：インプットボックスに入力された点数によりテスト結果を
'　　　メッセージボックスに表示する。
Sub test()
    Dim intPoint As Integer
    intPoint = InputBox("点数を入力してください")
    
    Select Case intPoint
        Case 80 To 100
            MsgBox "優です。"
        Case 70 To 79
            MsgBox "良です。"
        Case 60 To 69
            MsgBox "可です。"
        Case  0 To 59
            MsgBox "不可です。"
        Case Else
            MsgBox "点数は 0～100の数字で入力してください"    
    End Select
End Sub</code>
</pre></div>