将 VBA 宏与更改事件一起使用时，“Excel 已停止工作”

Question

我遇到了一致的“Excel 已停止工作”错误。我有一个用户表单，它根据用户在第一个组合框中选择的内容填充具有相关下拉选项的组合框。

当用户在第二个组合框中键入一个与现有值相对应的字母时，该错误是始终为我的 ANY 我的 on-change 事件 subs 创建的在第二个盒子里。如果用户从下拉列表中选择一个选项，它不会发生——只有当用户键入匹配值的第一个字母时。

示例：如果第一个组合框是“水果”，那么第二个组合选项可能是“Apple”、“Orange”等。如果用户在第二个框中键入“A”或“O”（因为它匹配对应的值），它会使 Excel 崩溃。为什么它不像在第一个组合框中那样简单地“填充”匹配值？

错误处理已经到位，但它从来没有在代码中抛出这个错误，只有“excel已经停止工作”，然后崩溃。

我是否需要在宏中使用启用/禁用工作表事件？如果是这样，请提供有关如何实施的建议并解释其工作原理。我已经通过简单地将它们转换为单击按钮来解决以前的 On Change 问题，但我更愿意学习如何更好地实施 On Change没有错误的事件。

谢谢！下面是一些我认为与 Excel 崩溃相关的示例代码：

Private Sub Option1_Change()

On Error GoTo Option1_Change_Error
'Set cell H4 as value entered in Opt1 (adv. filter criteria)
Sheet6.Range("H4").Value = Me.Option1.Value
'Run macro AdvFilter which sets criteria for dependent drop-down box
AdvFilter
   Me.Option2.Value = ""
'Set row source as output of adv filter
Me.Option2.RowSource = "AdvFilter_Output"
'Set list box content
'If no adv.filter output, then blank listbox
If Sheet2.Range("BZ3").Value = "" Then
    Me.lstOptions.RowSource = ""
Else
    Me.lstOptions.RowSource = "AdvFilter_Output"
End If
Exit Sub

Option1_Change_Error:
MsgBox "An error has occurred.  " _
    & vbCrLf & "" _
    & vbCrLf & "" _
    & "Error " & Err.Number & " (" & Err.Description & ") in procedure Option1_Change_Error of Form frmOptions"
End Sub




Private Sub Option2_Change()

On Error GoTo Option2_Change_Error
If Me.Option1 = "" And Me.Option2 <> "" Then
    MsgBox "Select a the category first to see the corresponding options that exist."
    Exit Sub
    Else
    Me.Option2.RowSource = ""
End If
Exit Sub

Option2_Change_Error:
MsgBox "An error has occurred.  " _
    & vbCrLf & "" _
    & vbCrLf & "" _
    & "Error " & Err.Number & " (" & Err.Description & ") in procedure Option2_Change_Error of Form frmOptions"
End Sub

Answer 1

想通了，这要归功于能够从 Tobriand 中汲取一些想法并解决一些可能的问题。 由于 Option2 中的 else 子句不合适，问题最终成为两个事件之间的行源冲突。

Private Sub Option2_Change() 在change 上将第二个组合框的Rowsource 设置为空白，从而无法输入任何内容。 match entry 属性设置为 False，但我认为删除组合框 2 的行源会导致 match entry complete 属性在用户输入某些内容但找不到匹配项时吓坏了。 我从 Option2 事件中删除了 else 部分，现在它似乎可以工作了。