多分岐

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文での同等処理

📦出力画面

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

戻る

Thread Light