2021-11-21から1日間の記事一覧
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…
