1. ホーム
  2. vba

[解決済み] コンパイルエラーです。Forがない場合は次へ|VBA

2022-03-01 23:14:36

質問

私のコードに問題があり、エラーが表示され、その理由がわかりません。そのエラーとは
"コンパイルエラーです。For"のないNext。
なぜそのような状態になるのか理解できません。私はコーディングの初心者なので、どんなヘルプやコメントでも大歓迎です。
これがそのコードで、Forがないものとして指摘されているNextにはコメントがついています。

Sub CGT_Cost()
startrow = Worksheets("GUTS").Cells(10, 1) 'Here I put 1
endrow = Worksheets("GUTS").Cells(11, 1)   'Here I put 1000

For x = endrow To startrow Step -1

If Cells(x, "Q").Value = "Sale" Then

    If Cells(x, "D").Value = "1" Then

    For i = 1 To 1000

        If Cells(x - i, "R").Value <> "1" Then

    Next i
        Else
        Range("G" & x).FormulaR1C1 = "=R[-" & i & "]C/R[-" & i & "]C[-1]*RC[-1]"

        End If
    End If
    End If
Next x  

End Sub  

皆さん、よろしくお願いします。 をよろしくお願いします。
アーサー

解決方法は?

すべての について 文は、ボディを持つ 次へ また、すべての If-Then ステートメントにマッチするボディを持つ 終了 .

For i = 1 To 10 '<---- This is the header

    Hello(i) = "Blah"  '<---- This is the body

Next i  '<---- This is the closing statement

の本文の一部が表示されていますね。 もし 文の中に iの場合 のループと、その一部のループを外側にします。すべて内側か、すべて外側のどちらかでなければならない。ロジックを考え、何をしたいのかを確認します。