excel - 使用循环和用户输入进行错误处理

Question

For i = 1 To repNumber
    TryAgain:
    On Error GoTo ErrH:

    repName = InputBox("Enter rep name you want to exclude.", "Name of Rep")
    .PivotItems(repName).Visible = False
Next i

ErrH:
        MsgBox "Try Again"
        GoTo TryAgain:

如果我键入数据透视表中不存在的代表姓名，则会显示错误。因此，我尝试使用错误处理程序让用户再次键入Rep名称。
但是在第二次输入错误后，代码将自行终止，而不是进入错误处理程序。

我不确定'On Error GoTo'是否在错误的行中。

Answer 1

尝试使用Resume TryAgain而不是GoTo TryAgain。

(您不需要在这些语句中使用:，这是巧合允许的，因为它也用于分隔一行中的多个语句，因此在这里没有意义。)