多分岐

Select～Caseによる場合分け

1. 構文

Select Case 判定する値

    Case 値1
        処理1

    Case 値2
        処理2

    Case 値3, 値4
        処理3

    Case Else
        その他の処理

End Select

2. サンプルコード

Dim score As Integer
score = 80

    Select Case score

        Case 90 To 100                'または、Case Is >= 90
            Debug.Print "評価：A"

        Case 80 To 89                 'または、Case Is >= 80
            Debug.Print "評価：B"

        Case 60 To 79                 'または、Case Is >= 60
            Debug.Print "評価：C"

        Case Else
            Debug.Print "評価：D"

    End Select

評価：B

📦IF文での同等処理

If score >= 90 Then
        Debug.Print "評価：A"

    ElseIf score >= 80 Then
        Debug.Print "評価：B"

    ElseIf score >= 60 Then
        Debug.Print "評価：C"

    Else
        Debug.Print "評価：D"

    End If

3. オリジナル_多分岐

📦出力画面

📘 ダウンロード教材について

本サイトで公開している教材・解説・Excelファイル等は、全国商業高等学校協会が公表している過去問題を参考として、学習支援を目的に独自に作成したものです。
全国商業高等学校協会とは関係がなく、認定・推奨を受けた教材ではありません。

マクロは 売上集計や平均点の計算など、プログラミング学習に沿った処理を行います。
外部との通信やファイル操作は一切行いません。
掲載しているデータは実際の検定問題とは異なる場合があります。
全国商業高等学校協会が作成・監修した教材ではありません。
「全商検定の過去問題の利用に関するガイドライン」を遵守します。
教育目的で無償提供しており、改変・再配布はご遠慮ください。

ご利用の際は、マクロを有効にする必要があります。学校のPCで使用する場合は、先生にご確認ください。

ファイル名	サイズ (KB)	ダウンロード
オリジナル_多分岐01.zip	15

多分岐

📦IF文での同等処理

📦出力画面

📘 ダウンロード教材について

戻る