foｒ文の使い方

質問

for文の中にif文を入れて使いたいのですが「Nextに対するforがありません」となりエラーが出てしまいます。どうしたらよいのでしょうか？

If Option1.Value = True Then
For i = 2 To 10
　If xlSheet.Cells(i, 2).Value > 10 Then
Form2.List1.AddItem xlSheet.Cells(i, 1)
Next i
End If
End If

回答No.4

FLA-SE · ベストアンサー

【ForとNext】【IfとEnd If】これは対になっていないとなりません。
書かれいるソースを修正しますと以下のようになります。
If Option1.Value = True Then
For i = 2 To 10
　 If xlSheet.Cells(i, 2).Value > 10 Then
Form2.List1.AddItem xlSheet.Cells(i, 1)
End If
Next i
End If

お礼

ありがとうございました。
急いでいたので助かりました。
そういうことだったんですね。
よくわかりました。

回答No.3

taka_tetsu

Nextの前にEnd Ifを入れないとおかしいですよね。

If Option1.Value = True Then
For i = 2 To 10
　If xlSheet.Cells(i, 2).Value > 10 Then
　　Form2.List1.AddItem xlSheet.Cells(i, 1)
　End If
Next i
End If

回答No.2

----------

最後の三行を

End If
Next i
End If

とかえてみては？

回答No.1

kamkamkam3

If Option1.Value = True Then
For i = 2 To 10
　If xlSheet.Cells(i, 2).Value > 10 Then
Form2.List1.AddItem xlSheet.Cells(i, 1)
End If
Next i

End If