求助：Excel工作表（非用户窗体）ComboBox下拉代码报错问题

问题场景 #

在Excel工作表（非用户窗体）中，想通过鼠标悬停形状触发代码展开ComboBox下拉列表，但运行代码时出现两种错误：

• 使用Me关键字时，弹出「编译错误：无效使用Me关键字」
• 去掉Me后，弹出「运行时错误‘424’：需要对象」
  原代码如下：

Sub ActivateCB1()
ActiveSheet.ComboBox1.Activate
Me.ComboBox1.DropDown
End Sub

错误原因 #

• Me关键字的限制：Me仅能在类模块（比如用户窗体、工作表专属代码模块）中使用，若你的代码写在标准模块里，用Me会直接报错，因为标准模块没有类实例的上下文。
• 控件引用方式错误：工作表上的ActiveX控件不能直接用ActiveSheet.ComboBox1引用，必须通过OLEObjects对象定位，否则VBA找不到目标控件，就会报「需要对象」的错误。

修复后的代码 #

场景1：代码放在标准模块 #

直接明确指定工作表和控件的完整引用路径：

Sub ActivateCB1()
    ' 把"Sheet1"替换成你的目标工作表名称
    With ThisWorkbook.Worksheets("Sheet1").OLEObjects("ComboBox1").Object
        .Activate
        .DropDown
    End With
End Sub

场景2：代码放在工作表专属模块 #

如果代码写在目标工作表的代码窗口里（比如右键工作表标签→「查看代码」打开的窗口），可以用Me指代当前工作表，同样要通过OLEObjects引用控件：

Sub ActivateCB1()
    With Me.OLEObjects("ComboBox1").Object
        .Activate
        .DropDown
    End With
End Sub

形状触发设置 #

右键点击要用来触发的形状→选择「指定宏」，选中上面的ActivateCB1宏即可，之后鼠标悬停（或点击，可在形状设置里调整触发方式）时就能自动展开ComboBox下拉列表。

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