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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 引数を可変にする（ ParamArray ）

ParamArray キーワード ParamArray キーワードを使用すると任 …

: プロシージャを呼び出す（Call ステートメント）

プロシージャを呼び出すプロシージャ内から、別のプロシージャを呼び出すには、Ca …

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

With ステートメントを使う With ステートメントを使うことで、１度指定し …

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

Do…Loop ステートメントの使い方【構文 1】 Do [ Wh …

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

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

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

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

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

GoSub…Return ステートメント GoSub ステートメント …

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

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

: プロシージャを作成する（ Sub, Function ）

プロシージャを作成するプロシージャとは、実行時に 1 つの単位として処理される …

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

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

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