工作表ActiveX ComboBox下拉列表显示后无法隐藏的解决请求

核心思路 #

利用工作表的SelectionChange事件监听单元格点击操作，当选中的单元格不是目标E9时，强制隐藏ComboBox的下拉列表。以下提供两种实现方案，按需选择：

方法一：使用ComboBox自身方法（简单快速） #

1. 右键目标工作表标签（如shLedgerImport），选择「查看代码」打开VBA编辑器。
2. 在工作表模块中粘贴以下代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 仅当选中的不是E9单元格时执行隐藏操作
    If Intersect(Target, Me.Range("E9")) Is Nothing Then
        Dim targetCbo As OLEObject
        ' 定位到你的ActiveX ComboBox控件
        Set targetCbo = Me.OLEObjects("CboAcctCode")
        
        If Not targetCbo Is Nothing Then
            ' 再次调用DropDown方法切换下拉状态（显示→隐藏）
            targetCbo.Object.DropDown
        End If
    End If
End Sub

方法二：使用Windows API强制隐藏（更稳定） #

如果方法一偶尔失效，推荐用API直接发送隐藏指令，兼容性更强：

1. 插入新的标准模块（VBA编辑器中右键项目→插入→模块），粘贴API声明：

' 适配32/64位Office版本
#If VBA7 Then
    Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As LongPtr, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPtr
#Else
    Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
#End If
Const CB_SHOWDROPDOWN = &H14F

2. 回到目标工作表的代码模块，粘贴事件代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Me.Range("E9")) Is Nothing Then
        Dim targetCbo As OLEObject
        Set targetCbo = Me.OLEObjects("CboAcctCode")
        
        If Not targetCbo Is Nothing Then
            ' 发送消息强制隐藏下拉列表（wParam=0表示隐藏）
            SendMessage targetCbo.Object.hwnd, CB_SHOWDROPDOWN, 0&, 0&
        End If
    End If
End Sub

补充说明 #

• 代码中Me指代当前工作表，CboAcctCode需替换为你实际的ComboBox控件名称。
• 点击E2、H5或任何非E9区域都会自动触发下拉隐藏，原需求已被完全覆盖；若需单独针对E2、H5做特殊逻辑，可修改If判断条件。

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