for文の入れ子 Sub sample1() Dim i As Integer Dim j As Integer Dim str As String For i = 1 To 3 For j = 1 To 4 str = str & i & "年" & j & "組" & ", " Next j str = str & vbCrLf Next i MsgBox str End Sub

ある条件の場合はそれ以降の処理を省略し、ループ内の先頭の記述にスキップする。 VBA以外のプログラミング言語だとcontinueを使うのが一般的。 Sub sample1() Dim i As Integer Dim sum As Integer For i = 2 To 10 L1: If Not IsNumeric(Range("B" & i)) T…

ある条件に合致した場合にループを抜けるなど。 Sub sample1() Dim i As Integer Dim subject As String For i = 2 To 10 If Not IsNumeric(Range("B" & i)) Then subject = Range("A" & i) Exit For End If Next i MsgBox subject & "には数値以外の値が入…

■構文 For カウンタ名 = 初期値 To 到達値 処理 Next カウンタ名 ■例 Sub sample1() Dim arr() As Variant Dim i As Integer Dim str As String arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) For i = 0 To 9 str = str & arr(i) & ", " Next i MsgBox str En…