添加OneClickToFail复选框后，VBA中ScreeningDefectList_Click()重复执行两次的问题

问题根源 #

当勾选OneClickToFail复选框后，ScreeningDefectList_Click事件中调用了Fail_Click，而Fail_Click内的操作（比如更新列表框内容、修改选中状态或重新绑定数据源）会再次触发列表框的Click事件，形成循环执行。

解决方案1：使用事件禁用开关 #

在调用Fail_Click前后临时禁用Excel事件，避免触发二次调用。注意添加错误处理，防止意外导致事件一直处于禁用状态：

Private Sub ScreeningDefectList_Click()
    ' 将选中项赋值给文本框
    SelectedDefect.Text = ScreeningDefectList.Value
    
    If OneClickToFail.Value = True Then
        Application.EnableEvents = False
        On Error GoTo RestoreEvents ' 错误处理，确保事件恢复
        
        Call Fail_Click
        
RestoreEvents:
        Application.EnableEvents = True
        If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出原错误
    End If
End Sub

解决方案2：使用处理状态标志 #

在表单模块中声明一个布尔变量，标记当前是否正在处理事件，防止重复进入：

' 表单模块顶部声明模块级变量
Private IsProcessing As Boolean

Private Sub ScreeningDefectList_Click()
    ' 如果正在处理，直接退出
    If IsProcessing Then Exit Sub
    IsProcessing = True
    
    ' 原逻辑：赋值选中项到文本框
    SelectedDefect.Text = ScreeningDefectList.Value
    
    If OneClickToFail.Value = True Then
        Call Fail_Click
    End If
    
    ' 恢复处理状态
    IsProcessing = False
End Sub

额外检查点 #

同时检查Fail_Click过程中是否存在以下操作，这些操作会触发列表框Click事件：

• 重新填充ScreeningDefectList的列表项（比如AddItem、List = 数组）
• 修改ScreeningDefectList.Value或SelectedIndex
• 刷新列表框的数据源

如果有上述操作，建议在Fail_Click中也加入同样的状态标志或事件禁用逻辑，彻底避免循环触发。

内容的提问来源于stack exchange，提问作者Eugene Ho