预期的结束子和控制variables已经在使用中的错误

当我尝试debugging这段代码，我得到两个错误，第一个说“为控制variables已经在使用”，第二个“预计结束小组”。 我的代码的目标是，我在我的工作表“poteaux”创build一系列的检查，我想从工作表“努力poteaux”的值，并把它们在poteaux中的某些单元格，以便公式将被检查。 味精盒给我，如果它的好或不。 我是新来的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