0

次のように、ネストされた For ループを作成しました。

For i = 1 To 14
Set curCell_a = Worksheets("Sheet1").Cells(i, 6)    

If curCell_a.Value = 100 Then
Set curCell_b = curCell_a.Offset(3, -1)
cRow = curCell_b.Row     

For j = cRow To 15
Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
While curCell_c.Font.Bold = False
MsgBox (curCell_c.Value)
End

Next j    
End If    
Next i

それでもエラーが発生し続けますCompile error: Next without For

論理的な順序で並べると確信してNext j, End If, and Next iいます...誰か助けてくれませんか？どうもありがとう！

4

2 に答える 2

1

問題はステートメントにあると思います：それは（While-End）Endであるべきです。Wend

For i = 1 To 14

    Set curCell_a = Worksheets("Sheet1").Cells(i, 6)

    If curCell_a.Value = 100 Then

        Set curCell_b = curCell_a.Offset(3, -1)
        cRow = curCell_b.Row

        For j = cRow To 15
            Set curCell_c = Worksheets("Sheet1").Cells(cRow, 5)
            While curCell_c.Font.Bold = False
                MsgBox (curCell_c.Value)
            Wend
        Next j

    End If

Next i

http://office.microsoft.com/en-us/excel-help/HV080557576.aspxを参照してください

于 2012-10-19T19:31:29.030 に答える
0

while ブロックは、End ではなく Wend で終了する必要があります。コンパイラはそのブロックの終わりを認識していません。

于 2012-10-19T19:34:56.503 に答える