/ / Excel VBAの選択ケース

Excel VBAの選択ケース

複数のIf Thenステートメントの代わりに Excel VBA、あなたは ケースの構造を選択.

状況:

Excel VBAでケースを選択

ワークシートにコマンドボタンを配置し、次のコード行を追加します。

1.まず、2つの変数を宣言します。 scoreという名前のInteger型の変数とresultという名前のString型の変数の1つ。

Dim score As Integer, result As String

2.変数scoreをセルA1の値で初期化します。

score = Range("A1").Value

3. Select Case構造を追加します。

Select Case score
    Case Is >= 80
        result = "very good"
    Case Is >= 70
        result = "good"
    Case Is >= 60
        result = "sufficient"
    Case Else
        result = "insufficient"
End Select

説明:Excel VBAは変数scoreの値を使用して、後続の各Caseステートメントをテストして、Caseステートメントの下のコードを実行する必要があるかどうかを確認します。

4.変数結果の値をセルB1に書き込みます。

Range("B1").Value = result

5.プログラムをテストします。

シート上のコマンドボタンをクリックすると、結果が表示されます。

ケース結果の選択

注:Excel VBAは、70以上80未満のすべての値に対して、2番目のCaseステートメントのコードを実行します。

また読む: