複数の条件により処理を分岐させたい場合はSelect Caseステートメントを使用します。"Select Case 変数"の形式で式を評価し、Case以下の条件に合致(式を評価した結果がtrueであるとき)だけその次の文を実行します。条件がtrueでないときは、次の次の条件を調べます。どのCase以下の条件にも当てはまらない場合はCase Else以下の文を実行します。 Select Case 変数 Case 値1 変数=値1の場合の処理 Case 値2 変数=値2の場合の処理 Case Else 変数=値1、変数=値2を満たさなかった場合の処理 End Select '説明:インプットボックスに入力された文字を英語に訳して ' メッセージボックスに表示する。 Sub test() Dim strFruitName As String strFruitName = InputBox("