Excel VBA：点击编辑栏勾选按钮触发错误50290，按回车正常

点击编辑栏勾选按钮时，Excel仍处于编辑模式，此时执行Cells(4,4).Select这类选区变更操作会触发50290错误——编辑模式下Excel不允许修改选区。

推荐使用Worksheet_Change事件替代OnEntry（后者是较旧的事件机制，稳定性较差）：

方案1：改用Worksheet_Change事件（优先选择） #

将代码放入目标工作表的代码模块中（右键工作表标签→查看代码）：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件避免递归触发
    Application.EnableEvents = False
    ' 执行选中操作，出错时自动恢复事件
    On Error Resume Next
    Me.Cells(4, 4).Select
    On Error GoTo 0
    ' 恢复事件
    Application.EnableEvents = True
End Sub

此事件会在单元格内容修改确认后（无论回车还是点击编辑栏勾选）稳定触发，无需额外执行SetOnEntry宏。

方案2：修复原OnEntry宏（兼容原有逻辑） #

如果必须保留OnEntry机制，可通过判断编辑模式并延迟执行来规避错误：

Public Sub DCCapture()
    If Application.EditMode Then
        ' 退出编辑模式
        SendKeys "{ENTER}"
        ' 延迟1秒执行选中，确保Excel完全退出编辑状态
        Application.OnTime Now + TimeValue("00:00:01"), "DelayedSelect"
    Else
        On Error Resume Next
        Cells(4, 4).Select
    End If
End Sub

Private Sub DelayedSelect()
    On Error Resume Next
    Cells(4, 4).Select
End Sub

注意：SendKeys依赖系统环境，可能存在兼容性问题，仅作备选方案。

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