"阻止如果没有结束,如果"错误VBA

Question

我试着查看其他答案,但似乎没有什么能帮助我.正如标题所述,我得到一个"阻止如果没有结束,如果"错误.我试图放入一个条件语句,如果它满足则结束sub.更具体地说,我正在格式化一次只能格式化一个作业的数据.如果它确定电子表格中有多个作业,我想自动结束该子.这是我到目前为止所得到的.

Sub SUBNAMEHERE

(Lots of other code)

JobNo = (code that figures out how many jobs there are)
If JobNo > 1 Then
    MsgBox (warning message)
    End Sub
End If

(The rest of the code)

如果有人能帮助我,我将不胜感激.

Answer 1

尝试Exit Sub而不是End Sub.

当你说End Sub,你告诉VB你已经完成了例程的定义.因此,如果您之前没有结束If,那么它将被视为不完整.

当然,即使你在此If之前就已经结束了,你几乎肯定会收到函数之外的代码错误.(我不太了解VBA ......但这就是大多数VB的工作方式.)