If 〜 Then:条件に応じて処理を分岐する

Excel VBA リファレンス

スポンサードリンク

条件に応じて処理を分岐する

書式
If 条件式 Then
    処理1
End If
If 条件式 Then
    処理1
Else
    処理2
End If
If 条件式 Then
    処理1
ElseIf
    処理2
Else
    処理3
End If
式の説明
条件式 ステートメントの実行条件を指定する式
この式の評価が true である場合処理が実行される
スポンサードリンク
関連カテゴリー
制御文 / 関数・ステートメント索引(I)
サンプルコード
Option Explicit

Sub main()
  Dim strApp As String
  
  strApp = Application.InputBox( _
          "エクセルとワードどちらが好きですか?" _
          )
  
  If strApp = "エクセル" Then
    Debug.Print ("エクセルが好き")
  ElseIf strApp = "ワード" Then
    Debug.Print ("ワードが好き")
  Else
    Debug.Print ("エクセルもワードも嫌い")
  End If
  
  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  '・入力用ダイアログに「エクセル」と入力した場合
  'エクセルが好き
  '
  '・入力用ダイアログに「ワード」と入力した場合
  'ワードが好き
  '
  '・入力用ダイアログにその他の文字列を入力した場合
  'エクセルもワードも嫌い

End Sub
スポンサードリンク
関連カテゴリー
制御文 / 関数・ステートメント索引(I)