Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

条件分岐 If文（If…Then…Else ステートメント）

2015/03/22

If…Then…Else ステートメントの使い方

【構文：単一行形式】
If condition Then [ statements ][ Else else_statements ]

【構文：ブロック形式】
If condition Then
　　statements

[ ElseIf condition1 Then ]
　　[ else_if_statements1 ]

[ ElseIf condition2 Then ]
　　[ else_if_statements2 ]

[ ・・・・・ ]

[ Else ]
　　[ else_statements ]

End If

【項目の説明】

condition ・・・真（True）か偽（False）を評価する条件式（数式・文字列式）を指定します。
statements ・・・ condition が真（true）の場合に実行されます。
「ブロック形式」の場合は省略可、「単一行形式」の場合は必ず指定します。
else_statements ・・・ Else 以前に定義されている条件がどれも真（True）でないときに実行されます。（省略可）
conditon1(2) ・・・真（True）か偽（False）を評価する条件式（数式・文字列式）を指定します。（省略可）
else_if_statements1(2) ・・・ condition1(2)が真（True）のときに実行されます。（省略可）

If…Then…Else ステートメント使用例

VBAソース

　
　
Sub Sample_if_statement_1()

　'単一行形式

    Dim Number As Integer

    Number = 252

    If Number > 100 Then MsgBox ("100より大きい") Else MsgBox ("100未満")
    
End Sub


Sub Sample_if_statement_2()
　'ブロック形式

　　Dim Number As Integer

    Number = 125

    If Number > 0 Then
        MsgBox Number & " は、正数です"
    
    ElseIf Number < 0 Then
        MsgBox Number & " は、負数です"
        
    Else
        MsgBox Number & " です"
    
    End If
    
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

　

　

Sub Sample_if_statement_1()

　'単一行形式

Dim Number As Integer

Number = 252

If Number > 100 Then MsgBox ("100より大きい") Else MsgBox ("100未満")

End Sub

Sub Sample_if_statement_2()

　'ブロック形式

　　Dim Number As Integer

Number = 125

If Number > 0 Then

MsgBox Number & " は、正数です"

ElseIf Number < 0 Then

MsgBox Number & " は、負数です"

Else

MsgBox Number & " です"

End If

End Sub

　

If…Then…Else ステートメントのマクロ実行例

Sub Sample_if_statement_1()の実行例

Sub Sample_if_statement_2()の実行例

- 構文 if...then...else ステートメント, if文, エクセルVBA, 構文

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ユーザー定義型変数を使う（Type ステートメント）

Type ステートメントを使う Type ステートメントを使うと１つまたは複数の …

: 繰り返し処理（For Each…Next ステートメント）

For Each…Next ステートメントの使い方【構文】 For …

: 変数やプロシージャのスコープ（適用範囲）

変数やプロシージャのスコープ（適用範囲）【構文：変数の宣言】 { Dim | …

: 引数の参照渡し・値渡し（ ByRef, ByVal ）

引数の「参照渡し」と「値渡し」「参照渡し」とはプロシージャに引数として変数を渡 …

: 配列が引数のプロシージャを作成する

配列が引数のプロシージャを作成する【構文】 { Sub | Function …

: set ステートメントを使う

Set ステートメントを使う【構文 1】 Dim objectvar [ As …

: 条件分岐（Select Case ステートメント）

Select Case ステートメントの使い方【構文】 Select Case …

: 繰り返し処理（While…Wend ステートメント）

While…Wend ステートメントの使い方【構文】 While …

: プロシージャ内のサブルーチンへ移動（GoTo ステートメント）

GoTo ステートメント GoTo ステートメントは、指定したラベルのサブルーチ …

: エラー処理（On Error ステートメント / Errオブジェクト）

On Error ステートメントの使い方【構文 1】 On Error GoT …

PREV: インプットボックスを表示する（InputBox関数・InputBoxメソッド）
NEXT: 条件分岐（Select Case ステートメント）