VBA Excel结束如果没有阻止如果错误

Question

我的代码中有一些语句有一个简单的问题.情况是这样的:我根据选择的月份在Excel中使用UserForm,数据从另一个报告转到我的报告.为了分析某个月的数据,我们需要前一个月的数据.因此,对于1月份,我们需要12月份的去年数据库中的数据.我做了特殊的sub,以防我们需要分析1月的数据,我们也需要旧的数据库.有了这个声明我有一个问题,我得到错误"VBA结束如果没有阻止如果错误":

'If the month that was selected is January then we need to open old Visual file Month
If MonthName = Lists.Range("A2").Value Then 'it means January
    Call January
Else
    For Each ws In Worksheets
        If ws.Name = "December" Then
            Sheets("December").Delete
            End
        End If
    Next ws
End If

拜托,有人可以帮忙吗？

Answer 1

使用Exit For退出For循环.

If MonthName = Lists.Range("A2").Value Then 'it means January
    Call January
Else
    For Each ws In Worksheets
        If ws.Name = "December" Then
            ws.Delete
            Exit For
        End If
    Next ws
End If