/ / Excel VBA If Thenステートメント

Excel VBA If Thenステートメント

If Thenステートメント | その他の声明

使用 If ThenステートメントExcel VBA 特定の条件が満たされた場合にコード行を実行する。

If Thenステートメント

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

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then result = "pass"

Range("B1").Value = result

説明:スコアが60以上の場合、Excel VBAは合格を返します。

シート上のコマンドボタンをクリックすると、結果が表示されます。

Excel VBA If Thenステートメント

注:スコアが60未満の場合、Excel VBAは空の変数結果の値をセルB1に配置します。

その他の声明

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

Dim score As Integer, result As String
score = Range("A1").Value

If score >= 60 Then
    result = "pass"
Else
    result = "fail"
End If

Range("B1").Value = result

説明:スコアが60以上の場合、Excel VBAはパスを返し、そうでなければExcel VBAの戻り値は失敗します。

シート上のコマンドボタンをクリックすると、結果が表示されます。

Excel VBAその他のステートメント

注意: ThenとElse文の後に1つのコード行がある場合にのみ、Thenの直後にコード行を置き、End Ifを省略することができます(最初の例)。それ以外の場合は、ThenとElseの後ろに新しい行を開始し、End Ifで終了します(2番目の例)。

また読む: