如何在切换单元格或工作表时自动关闭ActiveX ComboBox下拉列表？

问题原因 #

你的代码仅实现了选中目标单元格时显示并打开ComboBox下拉列表的逻辑，但未处理「选中非目标单元格」或「切换工作表」时的关闭操作，导致下拉列表残留。

解决方案 #

需要补充两个关键逻辑：

1. 选中非目标区域时自动关闭并隐藏ComboBox
2. 切换工作表时强制关闭ComboBox

修改后的完整代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
    Set rng = Me.Range("G8:G407")
    
    If Not Intersect(Target, rng) Is Nothing Then
        With Me.ComboBox1
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width
            .Height = Target.Height
            .LinkedCell = Target.Address
            .ListFillRange = "JURISDICCIONES!A2:A26"
            .DropDown
        End With
    Else
        ' 选中非目标区域时，关闭并隐藏ComboBox
        With Me.ComboBox1
            .Visible = False
            .DropDown False
        End With
    End If
End Sub

' 切换工作表时触发，强制关闭ComboBox
Private Sub Worksheet_Deactivate()
    With Me.ComboBox1
        .Visible = False
        .DropDown False
    End With
End Sub

代码说明 #

• SelectionChange事件的Else分支：当选中的单元格不在G8:G407范围内时，直接隐藏ComboBox，同时通过.DropDown False确保下拉列表完全关闭。
• Worksheet_Deactivate事件：当当前工作表被切换到后台时，强制关闭并隐藏ComboBox，避免下拉列表停留在其他工作表界面上干扰操作。

可选优化 #

如果不想完全隐藏ComboBox，仅需关闭下拉列表，可以将.Visible = False替换为SendKeys "{ESC}"，但隐藏控件的方式更彻底，不会出现控件残留的问题。

内容的提问来源于stack exchange，提问作者Lucas Gonzalo Nicolini