代わりに、複数のエクセルVBAでのその後のステートメントは、あなたがのSelect Case構造を使用することができます。

状況：

Select Case in Excel VBA

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

1.まず、2つの変数を宣言します。 Integer型の一つの変数は、スコアと結果という名前のString型の一つの変数の名前。

Dim score As Integer, result As String

2.私たちは、セルA1の値を持つ変数スコアを初期化します。

score = Range("A1").Value

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

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は、Caseステートメントの下でコードが実行されるべきかどうかを確認するために後続の各Caseステートメントをテストするために、変数のスコアの値を使用しています。

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

Range("B1").Value = result

5.テストプログラム。

あなたはシート上のコマンドボタンをクリックすると、結果：

Select Case Result

注：ExcelのVBAは、より大きいまたは70に等しいと80未満のすべての値のための第二のケースステートメントの下でコードを実行