プログラム制御文 6

Sub test()
    Dim intAge As Integer
    intAge = InputBox("あなたの年齢を入力してください。")
      
    If intAge > 19 Then
        MsgBox "成人です。"
    Else
        MsgBox "未成年です。"
    End If
End Sub

Sub test()
    Dim intScore As Integer
    intScore = InputBox("得点を入力してください")
    
    If 79 < intScore And intScore <= 100 Then
        MsgBox "優です"
    ElseIf 69 < intScore And intScore < 80 Then
        MsgBox "良です"
    ElseIf 59 < intScore And intScore < 70 Then
        MsgBox "可です"
    ElseIf 0 < intScore And intScore < 60 Then
        MsgBox "不可です"
    Else
        MsgBox "得点は 0〜100の数字で入力してください"
    End If
    
End Sub

Do While 条件式
    条件式を満たすまで繰り返す処理
Loop

Sub test()
'セルのA1〜A10に1〜10を入力する
    i = 1
    Do While i < 11
        Worksheets("Sheet1").Cells(i, 1).Value = i
        i = i + 1
    Loop
End Sub

Do
    条件式を満たすまで繰り返す処理
Loop While 条件式

Sub test()
'セルのA1〜A10に1〜10を入力する
    i = 10
    Do
        Worksheets("Sheet1").Cells(i, 1).Value = i
        i = i + 1
    Loop While i < 11
End Sub

Do Until 条件式
    条件式を満たすまで繰り返す処理
Loop

Sub test()
'セルのA1〜A10に1〜10を入力する
    i = 1
    Do Until i = 11
        Worksheets("Sheet1").Cells(i, 1).Value = i
        i = i + 1
    Loop
End Sub

Do
    条件式を満たすまで繰り返す処理
Loop Until 条件式

Sub test()
'セルのA1〜A10に1〜10を入力する
    i = 10
    Do
        Worksheets("Sheet1").Cells(i, 1).Value = i
        i = i + 1
    Loop Until i = 11
End Sub

Sub test()
    
    With Worksheets("Sheet1").Cells(1, 1)
        .Activate
        .Value = "WithTest" '値
        With .Font
            .Size = 14  '文字サイズ
            .Bold = True  '太文字
            .FontStyle = "HG教科書体"  '書式
        End With
        .Interior.ColorIndex = 6  'セルの色
        .RowHeight = 20  'セルの高さ
        .ColumnWidth = 10  'セルの幅
    End With
    
End Sub

Sub ExitDo()
    Dim i As Integer
    i = 1
    Worksheets("Sheet8").Activate
        
    Do
        Worksheets("Sheet8").Cells(i, 1) = i
        i = i + 1
        If i = 10 Then
            Exit Do
        End If
    Loop

End Sub

Sub ExitFor()
    Dim i As Integer
    
    Worksheets("Sheet8").Activate
        
    For i = 1 To 100
        Worksheets("Sheet8").Cells(i, 1) = i
        
        If i = 10 Then
            Exit For
        End If
    Next

End Sub

Private Sub Test()

    Call ExitSub

    MsgBox ("Exit Subのテスト3")

End Sub

Sub ExitSub()

    MsgBox ("Exit Subのテスト1")

    Exit Sub
    
    MsgBox ("Exit Subのテスト2")'このステートメントは実行されない
    
End Sub

Private Sub Test()

    Call ExitFunction

End Sub

    MsgBox ("Exit Functionのテスト3")

Function ExitFunction()

    MsgBox ("Exit Functionのテスト1")

    Exit Function
    
    MsgBox ("Exit Functionのテスト2")'このステートメントは実行されない
    
End Function

Sub Goto文()			

    MsgBox ("Gotoステートメントのテスト1")			

    GoTo Label1			
    			
    MsgBox ("Gotoステートメントのテスト2")         '→実行されない
    			
Label1:	
    MsgBox ("Gotoステートメントのテスト3")
End Sub

プロシージャ内でエラーが発生した場合のプログラム制御には、On Errorステートメントを使用し Gotoステートメントによりエラー処理ルーチンにプログラム制御を移します。

On Error GoTo LABEL名

LABEL名:
　　　　　エラー処理 

エラーには実行時エラーと構文エラーとがあり、 実行時エラーとはシステムで処理できない動作を実行しようとした場合に発生するエラーであり、 構文エラーとは文法上の規則に違反した場合に発生するエラーで、プログラム実行前のコンパイル時に発生します。

エラーはErrオブジェクトを使用することにより、そのエラー内容を知ることができます。

オブジェクト名	プロパティ	内容
Err	Number	エラー番号
	Description	エラー番号に対応する文字列(エラー内容)
	Source	現在のプロジェクト名
	HelpFile	ヘルプファイル名
	HelpContext Number	ヘルプファイルに対応するコンテキスト番号

エラーが発生した場合プログラムが中断しますが、 もし、プログラムを中断したくない場合はResume Nextステートメントを使用します。 Resume Nextステートメントを使用するとエラーが発生した次のステートメントから プログラムが継続されます。

以下は、構文エラーが発生した場合のプログラム制御の簡単な例です。

Sub OnErrorTest()
    On Error GoTo ErrorTrap
    
    Dim i As Integer
    i = "test"             '←ココで構文エラーとなる。
    
    MsgBox "終了します。"
    
    Exit Sub

ErrorTrap:
    MsgBox "エラー番号:" & Err.Number
    MsgBox "エラー内容：" & Err.Description
    MsgBox "ヘルプファイル名" & Err.HelpContext
    MsgBox "プロジェクト名：" & Err.Source
    Resume Next
End Sub