如何解决使用输入框和msg框在excel VBA中搜索数据
我正在开发一个需要我制作的子程序,以便用户可以使用输入框搜索他们的 ProductID,然后使用 msgBox 让他们知道它是否被找到,但我不能得到正确的代码。我在这里做错了什么?完全丢失(下面的代码):
Sub test()
Dim Worksheet As Range
Dim ProductID As Variant
ProductID = InputBox("Please enter the Product ID")
With Worksheets(1).Range("A1:Z1000")
Set ProductID = .Find("ProductID",LookIn:=xlWhole)
If found Then
MsgBox ProductID("was Found")
Else
MsgBox ProductID & (" was NOT Found")
End If
End With
End Sub
解决方法
几个问题,包括以下内容:
- 将
Find
的结果分配给Range
变量(与ProductId
分开),例如变量found
。 - 使用
If Not
表示变量Is Nothing
来测试查找是否成功。 - 删除
Dim Worksheet As Range
。 - 变量不属于引号内。
ProductID
(不带引号)是变量。"ProductID"
是文本“ProductID”。使用变量而不是文本调用Find
。 - 应该是
LookIn:=xlValues
或LookIn:=xlFormulas
,然后是LookAt:=xlWhole
。
Sub test()
Dim ProductID As Variant
ProductID = InputBox("Please enter the Product ID")
Dim found As Range
Set found = Worksheets(1).Cells.Find(What:=ProductID,LookIn:=xlValues,LookAt:=xlWhole)
If Not found Is Nothing Then
MsgBox ProductID & " was Found"
Else
MsgBox ProductID & " was NOT Found"
End If
End Sub
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。