使用输入框和消息框在excel VBA中搜索数据

Question

我正在开发一个要求我制作的 sub，以便用户可以使用输入框搜索他们的 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

Answer 1

几个问题，包括：

• 将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