Excel VBA で使用される最も重要な条件ステートメントは次のステートメントです。 もし…なら и ケースを選択. これらの式はどちらも XNUMX つ以上の条件をテストし、結果に応じて異なるアクションを実行します。 これら XNUMX つの条件演算子については、次に詳しく説明します。
Visual Basic の「If…Then」ステートメント
演算子 もし…なら 条件をチェックし、真 (TRUE) の場合は、指定された一連のアクションが実行されます。 条件が FALSE の場合に実行する一連のアクションを定義することもできます。
演算子の構文 もし…なら このような：
If Условие1 Then
Действия в случае, если выполняется Условие1
ElseIf Условие2 Then
Действия в случае, если выполняется Условие2
Else
Действия в случае, если не выполнено ни одно из Условий
End If
この式では、要素 さもなければ и ほかに 条件演算子が必要ない場合は省略できます。
以下は、演算子を使用した例です。 もし…なら アクティブ セルの塗りつぶしの色は、その値に応じて変化します。
If ActiveCell.Value < 5 then ActiveCell.Interior.Color = 65280 'Ячейка окразивается в зелёный цвет ElseIf ActiveCell.Value < 10 then ActiveCell.Interior.Color = 49407 'Ячейка окразивается в ора Else ActiveCell.Interior.Color = 255 'Ячейка End If の場合
条件が真になるとすぐに、条件ステートメントの実行が中止されることに注意してください。 したがって、変数の値が アクティブセル 5 未満の場合、最初の条件が真になり、セルが緑色になります。 その後、ステートメントの実行 もし…なら 中断され、他の条件はチェックされません。
VBA で条件演算子を使用する方法の詳細 もし…なら Microsoft Developer Network で見つけることができます。
Visual Basic の「Select Case」ステートメント
演算子 ケースを選択 演算子に似ています もし…なら 条件の真偽もチェックし、結果に応じてオプションの XNUMX つを選択します。
演算子の構文 ケースを選択 このような：
Select Case Выражение
Case Значение1
Действия в случае, если результат Выражения соответствует Значению1
Case Значение2
Действия в случае, если результат Выражения соответствует Значению2
...
Case Else
Действия в случае, если результат Выражения не соответствует ни одному из перечисленных вариантов Значения
End Select
素子 Case Elseの 必須ではありませんが、予期しない値を処理するために推奨されます。
次の例では、構文を使用して ケースを選択 値に応じて、現在のセルの塗りつぶしの色を変更します。
ケースを選択 ActiveCell.Value Case Is <= 5 ActiveCell.Interior.Color = 65280 'Ячейка окразивается в зелёный цвет Case 6, 7, 8, 9 ActiveCell.Interior.Color = 49407 'Ячейка окразивается вケース 10 ActiveCell.Interior。 Color = 65535 'Ячейка окразивается в жёлтый цвет Case 11 to 20 ActiveCell.Interior.Color = 10498160 'Ячейка окразивается в лиловый цвет Case Else ActiveCell.Interior .Color = 255 '選択の終了
上記の例は、さまざまな方法で要素の値を設定する方法を示しています。 シミュレーション例 建設中 ケースを選択. これらは方法です:
| ケースは <= 5 | したがって、キーワードを使用して ケースは 値が満たされているかどうかを確認できます 式 フォームの状態 <= 5. |
| シミュレーション例 6、7、8、9 | このようにして、値が一致するかどうかを確認できます 式 リストされた値の XNUMX つを使用します。 リストされた値はコンマで区切られています。 |
| シミュレーション例 10 | これは、値が一致するかどうかを確認します 式 与えられた値で。 |
| シミュレーション例 11 それでおしまい 20 | したがって、値が満たされているかどうかを確認する式を書くことができます 式 フォームの状態 11から20へ (不等式「11<=value<=20」と同等)。 |
| Case Elseの | このようにキーワードを使って ほかに、値が 式 リストされているオプションのいずれとも一致しません シミュレーション例. |
条件の XNUMX つが見つかるとすぐに、対応するアクションが実行され、構造が終了します。 ケースを選択. つまり、いずれの場合も、リストされたブランチの XNUMX つだけが実行されます。 シミュレーション例.
VBA ステートメントの操作に関する詳細情報 ケースを選択 Microsoft Developer Network で見つけることができます。