更新自动过滤器 oncellchange 时 Excel 崩溃

Question

我使用以下代码在单元格更改时刷新 Excel 中的自动筛选器。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MySheet As Worksheet
  'On Error Resume Next
  'Set MySheet = Application.ActiveSheet
  'MySheet.Columns(1).AutoFilter.ApplyFilter
  'On Error Resume Next
  'Application.EnableEvents = False
  Worksheets("Basisgegevens").Range("$A$1:$A$146").AutoFilter Field:=1, Criteria1:=Array("0", _
        "2", "="), Operator:=xlFilterValues
  'Application.EnableEvents = True
  'On Error GoTo 0
End Sub

我用它来隐藏基于某些标准的行。
为此，它工作得非常好。

问题
但是，当我在单元格上设置验证并添加其中一个很酷的下拉列表时。

要使单元格看起来像这样:


这部分工作正常，但是一旦我选择了一个不同的值，导致自动过滤器隐藏/显示不同的单元格 excel 崩溃

我的理论
验证下拉菜单更改了一个单元格。
这会触发上面显示的 VBA 代码。
然而，验证代码仍在运行，同时过滤器设置被重新初始化。
这会导致 Excel 崩溃。

我该如何解决？
运行延迟的 VBA 事件会有所帮助吗？
我怎么做？

Answer 1

我不认为你现在所做的有什么问题。但我怀疑还有另一个组件导致了这个崩溃，比如插件。为什么不卸载或删除不必要的插件( http://office.microsoft.com/en-us/excel-help/load-or-unload-add-in-programs-HP010096834.aspx )并再次尝试代码？