我正在使用下面的代码查找用户搜索的值(“ strFindWhat”),该值已输入到单元格中,然后按下按钮以触发此子项。系统包含一长串数据,用户将搜索例如产品编号,以便他们可以快速查看相应的批号。
Cells.Find(What:=strFindWhat, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select
我想要做的是找到对该代码所找到的单元格的引用。这样我就可以更改找到的单元格的颜色或行,以突出显示他们需要的数据,以便他们可以更清晰地看到它们。 我通过使整个函数等于一个变量来尝试了显而易见的方法:
foundCell = Cells.Find(What:=strFindWhat, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).Select
“ foundCell”的值总是空白,我希望有人知道找到对找到的单元格的引用的方法吗?
答案 0 :(得分:4)
为了找到地址,您可以这样做
Dim foundCell As Range
Set foundCell = Cells.Find(What:=strFindWhat, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False)
If Not (foundCell Is Nothing) Then
Debug.Print foundCell.Address
End If