由于.find导致的错误9
由于.find导致的错误9
提问于 2014-04-08 05:11:56
您好，我想找一个包含变量"AI“的单元格，然后选择该行。搜索结果可能是空的，如果是这样的话，它应该写一个文本。
到目前为止，这是我的代码
Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Dim mf As Object
Dim RZ As String
Dim AI As String
' The variable KeyCells contains the cells that will
' cause an alert when they are changed.
Set KeyCells = Range("B3")
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
Is Nothing Then
' Place your code here.
AI = Range("B3").Value
Sheets("DATA").Select
Sheets("DATA").Columns("C:C").Select
Set mf = Sheets("DATA").Columns("C:C").Find(What:=AI, LookAt:=Whole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, SearchFormat:=False)
If Not mf Is Nothing Then
RFound = mf.Row
Sheets("DATA").Cells(RFound, 1).Select
RZ = Sheets("DATA").Cells(RFound, 2).Value2
Sheets("Búsqueda").Select
Cells(3, 6).Value = RZ
Else
Cells(3, 6).Value = "RAZON SOCIAL"
End If
End If
End Sub问题是
Set mf = Sheets("DATA").Columns("C:C").Find(What:=AI, LookAt:=Whole, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, SearchFormat:=False)return“错误9超出范围”
回答 1
Stack Overflow用户
发布于 2014-04-11 22:58:31
LookAt:=Whole..。应该是：
LookAt:=xlWhole 信用应该去@simoco，因为他提供了答案。
我不确定是否有适当的礼仪(即使在检查了Meta之后)。
理想情况下，
- 应该将他的评论转换为官方答案(而且应该被接受)。他当然应该受到表扬。
- 在此期间，问题应该得到一个答案，所以我正在填写它。如果我的回应被接受，这将有助于社区澄清决议。
我可以投票关闭，但这似乎不仅仅是一个打字错误。这似乎是一个质量很好的问题。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/22923195
复制相关文章
相似问题
腾讯云开发者
