如何解决尝试在工作表中查找匹配项时发生运行时错误'91'VBA
我正在尝试在范围中查找特定的字符串。运行时错误'91'出现。我知道发生这种情况是因为Find函数找不到任何巧合。不过,我不确定为什么会这样。
目前,我在用户窗体中有一个列表框。当我在列表框中选择一个选项时,此类选择的字符串将显示在用户窗体文本框中(txt_selected)。在工作表上,我具有与列表框上显示的完全相同的列表。我想在工作表中找到与所选元素一致的行。
我有一个if语句,当找到匹配项时(countif> 0)触发该if语句,显示一个带有消息“ Match found”的MessageBox。但是,当我尝试找到匹配项的行号时,我得到了错误。
我的代码如下:
Private Sub lstbx_diarias_Click()
For n = 0 To (UserForm1.lstbx_diarias.ListCount - 1)
UserForm1.txt_selected.Value = UserForm1.lstbx_diarias.Text
Next n
End Sub
Sub llenar_checklist()
Dim result_row As Long
Dim actividad As String
Dim look_range as Range
''' Actividades Diarias
If UserForm1.chbx_diarias.Value = True Then
Set look_range = Sheets("Checklist").Range("C9:C23")
actividad = UserForm1.txt_selected.Value
If Application.WorksheetFunction.CountIf(look_range,actividad) > 0 Then
MsgBox "Match found"
result = look_range.Find(what:=actividad,LookIn:=xlValues,LookAt:=xlWhole)
result_row = result.Row
End If
MsgBox "The row is " & result_row
End If
End Sub
根据VBA,错误来自定义结果的行。为什么会发生这种情况的任何想法?
非常感谢。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。