Excel VBAには、複数の条件の分析とコードの実行に使用できるIF ThenElse構造があります。これらの条件に基づいています。
複数の条件をチェックできる別の同様の構造は、SELECTCASEステートメントです。
Select Caseは、必要な条件が3つ以上ある場合に役立ちます。チェックする。これは2つの条件で使用することもできます(ただし、そのような場合はIf Then Elseの方が使いやすいと思います)。
次のグレードを取得するときにSelectCaseステートメントが役立つ簡単な例採点した点数に基づいた学生(このチュートリアルの後半で例として取り上げます)。
注:このチュートリアルで取り上げるすべてのサンプルコードは、VBAのモジュールに配置することを目的としています。
このチュートリアルの内容:
ケースの選択構文
以下は、Excelでのケースの選択の構文です。 VBA:
Select Case Test_ExpressionCase Value_1Code Block when Test_Expression = Value_1Case Value_2Code Block when Test_Expression = Value_2Case Value_3Code Block when Test_Expression = Value_3Case ElseCode Block when none of the case conditions are metEnd Select
- Test_Expression:これは、さまざまなケースを使用して値を分析する式です(以下の例で詳しく説明します)。
- Condition_1、Condition_2、…:これらはテキスト式がテストされる条件です。条件を満たしている場合は、指定された条件のコードブロックが実行されます。
使用するすべてのSelectCaseステートメントについて、EndSelectステートメントを使用する必要があります。
注:条件が満たされるとすぐに、VBAはselectcase構造を終了します。したがって、5つの条件があり、2番目の条件が満たされた場合、VBAはケースの選択を終了します。残りの条件はテストされません。
ケースの例を選択
次にVBAでSelectCaseステートメントを使用する方法をよりよく理解するために、いくつかの例を見ていきましょう。
このチュートリアルのほとんどの例は、概念を説明することを目的としています。これらは、作業を完了するための最良の方法である場合とそうでない場合があります。
Select Caseで条件を確認する方法の簡単な例から始めましょう。
例1–番号を確認する
次の例では、コードはユーザーに1〜5の任意の番号を入力するように求め、ユーザーが入力した番号を示すメッセージボックスを表示します。
Sub CheckNumber()Dim UserInput As IntegerUserInput = InputBox("Please enter a number between 1 and 5")Select Case UserInputCase 1MsgBox "You entered 1"Case 2MsgBox "You entered 2"Case 3MsgBox "You entered 3"Case 4MsgBox "You entered 4"Case
read more