ActiveX滚动按钮导致方向键无法切换单元格的问题求助

问题核心是：点击SpinButton后，控件仍保留输入焦点，导致方向键继续对其生效，即便重新选中单元格也无法夺回焦点。以下是两种可行的解决方法：

方法一：在SpinButton的Change事件中强制转移焦点 #

给你的SpinButton添加Change事件处理代码，在按钮功能执行完成后，将焦点强制切回工作表单元格：

Private Sub SpinButton1_Change()
    ' 保留你原本的SpinButton功能代码（比如修改单元格值的逻辑）
    
    ' 强制焦点回到当前选中的单元格，让控件失去焦点
    ActiveCell.Select
    ' 若上面代码无效，可添加此语句确保控件彻底释放焦点
    Application.SendKeys "{ESC}", True
End Sub

方法二：优化现有SelectionChange代码，确保控件不锁定焦点 #

修改你现有的Worksheet_SelectionChange代码，在设置LinkedCell后，主动让控件失去焦点：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  
    If Target.Cells.CountLarge > 1 Or Target.Column > 10 Then Exit Sub
    
    ' 单元格高亮逻辑保留
    Cells.Interior.ColorIndex = 0
    If Target.Column > 1 Then
        Dim r As Range
        Set r = Union(Cells(Target.Row, 1).Resize(, Target.Column), _
                      Cells(1, Target.Column).Resize(Target.Row))
        r.Interior.Color = RGB(230, 230, 230)
    End If
    Target.Interior.Color = RGB(255, 230, 230)

    ' 仅在目标单元格在指定区域时设置LinkedCell
    If Not Intersect(Range("C3:G23"), Target) Is Nothing Then
        With ActiveSheet.OLEObjects("SpinButton1")
            .LinkedCell = Target.Address
            ' 通过禁用再启用控件，强制释放焦点
            .Object.Enabled = False
            .Object.Enabled = True
        End With
    End If
    
    Target.Select
End Sub

关键说明 #

• 方法一中的SendKeys "{ESC}"是简单直接的焦点释放方式，适用于大多数场景。
• 方法二中的禁用/启用控件操作，比SendKeys更稳定，不会受键盘布局或系统环境影响。

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