Excel VBA：Checkbox为True时Keydown事件中SetFocus失效问题

嘿，我之前帮人解决过几乎一模一样的问题！当你给Excel库存表单加了复选框来实现状态持久化后，提交时焦点没按SetFocus的设置走，反而像按Tab一样往前跳，大概率是复选框的默认行为或者事件冲突在搞鬼——尤其是表单控件复选框的局限性，或者代码里没处理好事件触发的顺序。

下面是几个针对性的排查和解决步骤，亲测有效：

1. 先换ActiveX复选框试试 #

如果你用的是「开发工具→表单控件」里的复选框，那麻烦就来了——这种控件的事件控制极弱，默认会参与Tab键的焦点循环，还会因为绑定单元格（LinkedCell）的变更触发不必要的单元格事件，直接干扰你的SetFocus逻辑。

换成「ActiveX控件」的复选框就能解决大半问题：

• 插入ActiveX复选框后，右键它→「属性」，把TabStop设为False，这样它就不会加入Tab焦点循环了；
• 还能通过VBA事件更精准地控制它的行为，比如阻止它在提交流程中触发焦点转移。

2. 调整提交代码的执行顺序，禁用中间事件 #

很多时候，焦点跑偏是因为你在提交时先更新了数据（比如复选框的绑定单元格），触发了Excel的默认事件（比如单元格的Change事件），这些事件会偷偷改变焦点，覆盖你后面的SetFocus设置。

给你的提交按钮代码加个事件禁用和顺序调整：

Private Sub cmdSubmit_Click()
    Dim isSubmitting As Boolean
    isSubmitting = True ' 标记当前处于提交流程
    
    ' 先禁用Excel的事件触发，避免中间操作干扰焦点
    Application.EnableEvents = False
    
    ' 👇这里放你的提交逻辑：更新库存状态、保存复选框选中状态等
    ' 比如：Range("库存表!A" & rowNum).Value = Me.txtSerial.Value
    ' ...
    
    ' 最后再设置焦点到你想要的位置，比如序列号输入框
    Me.txtSerialNumber.SetFocus
    
    ' 恢复事件和标记
    Application.EnableEvents = True
    isSubmitting = False
End Sub

这样就能确保SetFocus是最后执行的操作，不会被中间的事件覆盖。

3. 控制复选框的Exit事件（针对ActiveX控件） #

如果你的ActiveX复选框还是会干扰焦点，那可以给它加个Exit事件判断，在提交时阻止它转移焦点：

' 模块级变量，用来标记是否在提交中
Dim isSubmitting As Boolean

Private Sub CheckBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    ' 如果正在提交，就阻止Exit事件触发焦点转移
    If isSubmitting Then
        Cancel = True
    End If
End Sub

这样在提交流程中，复选框的Exit事件就不会抢着转移焦点了。

4. 检查表单的Tab顺序 #

最后再确认一下控件的Tab顺序：

• 打开「开发工具→控件→Tab顺序」
• 把你提交后要聚焦的控件（比如序列号输入框）移到Tab顺序的最顶端，或者调整顺序确保它不会被其他控件抢焦点。

一般来说，按上面的步骤走，焦点跑偏的问题就能解决啦！

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