VBA查找A列匹配值报错及ActiveX组合框触发失效问题

需求背景 #

单元格A3包含LEFT公式，用于提取关联下拉菜单单元格内容的前3个字符，需要通过VBA代码在A列中搜索A3公式的计算结果，定位并选中匹配单元格。

初始代码编译错误 #

代码第3行strSearch =语句处提示「需要对象」错误。

初始代码如下：

Sub findAA()
    Dim rng1 As Range
    Dim strSearch As String
    Set strSearch = Range(A3).Value
    Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole)
    If Not rng1 Is Nothing Then
        MsgBox "Find has matched " & strSearch & vbNewLine & "corresponding cell is " & rng1.Offset(0, 1)
    Else
        MsgBox strSearch & " not found"
    End If
End Sub

报错原因 #

• strSearch定义为字符串类型，不属于VBA对象类型，赋值时不需要使用Set关键字，Set仅用于Range、Worksheet等对象类型变量赋值。
• Range(A3)写法有误，单元格地址参数需要加英文双引号，否则VBA会将A3识别为未定义变量而非单元格地址，正确写法为Range("A3")。

调整后代码触发失效问题 #

为避免范围引用问题，已将原A3的内容移动至B4单元格。手动单独运行宏时可正常执行，但通过ActiveX控件的Combo Box修改B4的值时代码无法生效。
预期逻辑：Combo Box选项变更时触发B4值变化，进而触发代码自动选中A列中的匹配单元格。

调整后的代码如下：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "B4" Then
        Dim rng1 As Range
        Dim strSearch As String
        strSearch = Range("b4").Value
        Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlPart)
        If Not rng1 Is Nothing Then
            rng1.Select
        End If
    End If
End Sub

失效原因 #

• 地址匹配逻辑错误：Target.Address默认返回带$符号的绝对地址格式（即$B$4），原有判断Target.Address = "B4"永远无法匹配成功，代码块不会执行。
• 事件触发限制：ActiveX控件修改单元格值时，默认不会触发Worksheet_Change事件，即使地址判断修正，也无法通过单元格变更事件捕获到Combo Box触发的值修改。

修正方案 #

直接绑定ActiveX Combo Box的Change事件，稳定性最高，不需要依赖单元格变更事件中转，修正后代码如下（放置在对应工作表的代码模块中即可，注意将ComboBox1替换为实际的控件名称）：

Private Sub ComboBox1_Change()
    Dim rng1 As Range
    Dim strSearch As String
    ' 若需要保留B4单元格中转逻辑，可将下一行替换为 strSearch = Range("B4").Value
    strSearch = Left(Me.ComboBox1.Value, 3)
    ' 关闭事件避免递归触发
    Application.EnableEvents = False
    Set rng1 = Range("A:A").Find(strSearch, LookIn:=xlValues, LookAt:=xlPart)
    If Not rng1 Is Nothing Then
        rng1.Select
    End If
    Application.EnableEvents = True
End Sub

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