Question

当我尝试调试此代码时，我遇到两个错误，第一个错误说＆＃34; For控制变量已经在使用＆＃34;，第二个＆＃34;预期结束Sub＆＃34;。我的代码的目标是我在我的工作表中创建了一系列支票＆＃34; poteaux＆＃34;我想从表格中获取价值＆＃34;努力poteaux＆＃34;并将它们放在poteaux的某些细胞中，以便检查配方。 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

预期的结束子和控制变量已在使用错误

2 个答案: