与交叉代码的Excel错误

下午好！ 我有另一个问题，似乎无法弄清楚。 在这种方式太长的filtermacros，我有一个代码，查找范围内的活动单元格，如果它在那里，执行一个filter：

ElseIf Not (Intersect(ActiveCell, OpenFindingsRange)) Then SourceFindings.Select 'Unfilter data Application.Goto (Sheets("Source-Findings").Range("A1")) If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=6, Criteria1:=FilterOperatingGroup ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=36, Criteria1:=OpenStatus ActiveSheet.ListObjects("tblFindings").Range.AutoFilter Field:=37, Criteria1:="Yes" 

如果活动单元格不在该范围内，则应该转到下一个Else If语句，但这不会发生。 我收到以下错误：对象variables或块variables未设置。

我不能解决这个问题，无论出于什么原因，我都无法通过error handling来绕过它。

思考？

谢谢！

Answer 1

相交（） ，你正在使用它，将返回一个范围，而不是一个布尔值。