ループ
ループとは? ある条件を満たすまで 指定の命令を繰り返す
Do... Loop For Next For Each Next While WEnd ループの種類
Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件
Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 While 条件 True の間繰り返す
While の例 Dim まどかは魔法少女 As Boolean まどかは魔法少女 = True Do While まどかは魔法少女 まどかは魔法少女 = ホムホムがんばる () Loop Public Function ホムホムがんばる () As _ Boolean ホムホムがんばる = True End Function
Do Loop Dim まどかは魔法少女 As Boolean まどかは魔法少女 = True Do While まどかは魔法少女 まどかは魔法少女 = ホムホムがんばる () Loop Public Function ホムホムがんばる () As _ Boolean ホムホムがんばる = True End Function
ループに絶望したら
CTRL + PauseBreak
Do Loop Dim まどかは魔法少女 As Boolean まどかは魔法少女 = True Do While まどかは魔法少女 まどかは魔法少女 = ホムホムがんばる () Loop Public Function ホムホムがんばる () As _ Boolean ホムホムがんばる = True End Function
Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 Until 条件 True になるまでつづける (False の間繰り返す )
Dim Dioが泣く As Boolean Dioが泣く = False Do Dio が泣く = ジョナサン殴る () Loop Until Dio が泣く Until の例
Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件 先に条件を判定するか? 後に条件を判定するか?
先に判定する Dim Dioが泣く As Boolean Dioが泣く = True Do Until Dio が泣く Dio が泣く = ジョナサン殴る () Loop もし条件を満たしていると一回もステートメントは実行されない
後に判定する Dim Dioが泣く As Boolean Dioが泣く = True Do Dio が泣く = ジョナサン殴る () Loop Until Dio が泣く
Do Loop Do While 条件 ステートメント Loop Do ステートメント Loop While 条件 Do Until 条件 ステートメント Loop Do ステートメント Until Loop 条件
Dim Dioが泣く As Boolean Dioが泣く = True Do Dio が泣く = ジョナサン殴る () If ジョージに見つかる () Then Exit Do End If Loop Until Dio が泣く Exit Do
Do Do. Exit Do. Loop Until x Exit Do MsgBox わっふる Loop Until y
For counter = start To end [Step step] [Statement] [Exit For] [Statement] Next [counter] For Next
For Next Dim i as Long For i = 0 To 10 Debug.Print i Next i
For Next Dim i as Long For i = 0 To 10 Debug.Print i Next i
For Next Dim i as Long For i = 0 To 10 Debug.Print i Next i
For Next Dim i as Long For i = 0 To 10 Debug.Print i Next i
For Next Dim i as Long For i = 0 To 10 Debug.Print i Next i
Dim i as Long For i = 0 To 10 Step 3 Debug.Print i Next i For Next
Dim i as Long For i = 10 To 0 Step -1 Debug.Print i Next i For Next
Dim i as Long For i = 10 To 0 Step -1 Debug.Print i If i = 5 Then Exit For End If Next i For Next
For Each Next For Each element In group [Statement] [Exit For] [Statement] Next [element]
Dim v As Variant Dim tmp As Variant v = Array( いあいあ, クトゥルフ, _ " ふたぐん ", " 発狂 ", " かくかく ", " しかじか ") For Each tmp In v Debug.Print tmp Next tmp For Each Next
Dim v As Variant Dim tmp As Variant v = Array( いあいあ, クトゥルフ, _ " ふたぐん ", " 発狂 ", " かくかく ", " しかじか ") For Each tmp In v Debug.Print tmp Next tmp For Each Next
Dim v As Variant Dim tmp As Variant v = Array( いあいあ, クトゥルフ, _ " ふたぐん ", " 発狂 ", " かくかく ", " しかじか ") For Each tmp In v Debug.Print tmp Next tmp For Each Next
Dim v As Variant Dim tmp As Variant v = Array( いあいあ, クトゥルフ, _ " ふたぐん ", " 発狂 ", " かくかく ", " しかじか ") For Each tmp In v Debug.Print tmp Next tmp For Each Next
Dim v As Variant Dim tmp As Variant v = Array( いあいあ, クトゥルフ, _ " ふたぐん ", " 発狂 ", " かくかく ", " しかじか ") For Each tmp In v Exit For Next tmp For Each Next
While Wend While 条件 [Statement] Wend
While Wend While 条件 [Statement] Wend
While 条件 If i = 2 Then Goto LoopEnd End If Wend While Wend LoopEnd:
Do... Loop For Next For Each Next While WEnd ループの種類
ループ