在列中找到单元格值

Question

单元格A3具有左公式，该公式可提取另一个单元格的前3个字符。 需要VBA来搜索A列中A3公式的结果，然后选择该单元格。

获取编译错误：

“ strsearch =”的对象在代码下方的3D行中。

    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

更新：避免范围问题（请参阅评论），我将A3移至B4。宏在运行时运行时工作，但使用Active X Control的组合框时不起作用，该组合框会更改现在的B4值。这个想法是，当组合框更改时，它会触发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

Answer 1

这是现在对我有用的方法 - 感谢@bigben：

此代码在Combobox更改时称呼宏：

Private Sub ComboBox1_Change()
Call findAA
End Sub

这是工作的查找代码：

Sub findAA()

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 Sub