期待エンドサブと既に使用中の制御変数のエラー

Question

このコードをデバッグしようとすると、2つのエラーが表示されます。最初に「制御変数が既に使用されています」と表示され、2番目のエラーは「Expected end Sub」です。私のコードの目標は、私が自分のシート「ポトー」に一連の小切手を作成し、シート「努力ポトー」から値を取り出してポトーの特定のセルに入れて、フォーミュラがチェックされるようにしたいということです。 msgボックスは、それが良いかどうか私に与えます。私はvbaとそれを試して私に新しいです。

Private Sub CommandButton1_Click() 
    For i = 4 To 15 
     Sheets("Poteaux").Range("C4").Value = Sheets("Efforts poteaux").Cells(i, 6) 
     Sheets("Poteaux").Range("D4").Value = Sheets("Efforts poteaux").Cells(i, 11) 
     If Sheets("Poteaux").Value("I4") = "NG" Then 
      Sub Msg_exe() 
      MsgBox "NG" 
      End Sub 
      Exit For 
     End If 
    Next i 
    MsgBox "OK" 
End Sub 

Answer 1

Private Sub CommandButton1_Click() 
For i = 4 To 15 
Sheets("Poteaux").Range("C4").Value = Sheets("Efforts poteaux").Cells(i, 6) 
Sheets("Poteaux").Range("D4").Value = Sheets("Efforts poteaux").Cells(i, 11) 
If Sheets("Poteaux").Range("I4") = "NG" Then 
    MsgBox "NG on " & i 
    Exit Sub 
End If 
Next i 
MsgBox "OK" 
End Sub 

Answer 2

巣サブプロシージャに行わないでください。それらを独立してコード化し、と呼んでください。

Private Sub CommandButton1_Click() 
    dim i as long 

    For i = 4 To 15 
     workSheets("Poteaux").Range("C4") = workSheets("Efforts poteaux").Cells(i, 6).Value 
     workSheets("Poteaux").Range("D4") = workSheets("Efforts poteaux").Cells(i, 11).Value 
     If workSheets("Poteaux").RANGE("I4") = "NG" Then 
      Msg_exe i 
      Exit For 
     End If 
    Next i 
    MsgBox "OK" 
End Sub 

Sub Msg_exe(i as long) 
    MsgBox "NG on " & i 
End Sub