双击VBA窗体列表项后出现意外工作表单元格选中问题

我有一个用于报表中填充财务科目代码的VBA窗体：双击工作表S10:S9999区域内的单元格可启动该窗体，搜索合适的科目代码后双击列表项，即可将代码填入活动单元格。

窗体功能正常，但存在一个意外问题：卸载窗体时，窗体后方的单元格也会被选中，而我们希望活动单元格保持不变。

问题根源 #

1. 双击单元格启动窗体时，未阻止Excel默认的双击选中行为，该行为会在窗体卸载后触发，导致选中窗体后方的单元格。
2. 依赖ActiveCell赋值，窗体显示期间焦点可能转移，导致ActiveCell不是最初点击的目标单元格。

修复步骤 #

1. 修改Workbook_SheetBeforeDoubleClick事件代码 #

在判断逻辑内添加Cancel = True阻止默认双击行为，同时将目标单元格传递给窗体：

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Sh.Range("S10:S9999")) Is Nothing Then  
        ' 阻止Excel默认的双击选中单元格行为
        Cancel = True
          
        ' 传递目标单元格给窗体并居中显示
        With frm_search_gl_account
            Set .targetCell = Target
            .StartUpPosition = 0
            .Left = Application.Left + (0.5 * Application.Width) - (0.5 * .Width)
            .Top = Application.Top + (0.5 * Application.Height) - (0.5 * .Height)
            .Show
        End With
    End If
End Sub

2. 修改窗体代码 #

在窗体模块顶部添加模块级变量存储目标单元格，修改赋值逻辑直接使用该变量：

' 窗体模块顶部添加变量，用于保存最初点击的单元格
Private targetCell As Range

Private Sub lbox_gl_account_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    Call addGlAccountToCell
    Unload Me
End Sub

Private Sub addGlAccountToCell()
    Dim selectedIndex As Long
    selectedIndex = Me.lbox_gl_account.ListIndex
    
    If selectedIndex = -1 Then
        MsgBox "错误：未选择任何科目，未进行任何修改。"
     Else
        ' 使用预先保存的目标单元格，避免依赖ActiveCell
        targetCell.Value2 = Me.lbox_gl_account.Value
    End If
End Sub

说明 #

• Cancel = True直接终止Excel默认的双击事件流程，彻底避免窗体关闭后触发选中单元格的行为。
• 预先保存目标单元格，彻底解决窗体交互过程中焦点变化导致的ActiveCell偏移问题。

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