vba - 使用 VBA inputBox 搜索特定数据

Question

希望有人能给我一些关于这个的提示..

我在 excel 中有工作表作为我的数据库，我的程序就像你可以根据需要添加一个人的名字。我的 Add 函数执行得很好，我的问题是我怎样才能找到/搜索那个特定的名字您想使用输入框找到的人？

提前致谢

Answer 1

这个小宏将允许您输入一个名称，然后告诉您可以在活动工作表上的什么位置找到它。

Sub FindName()
    Dim v As String
    v = Application.InputBox(Prompt:="Enter Name:", Type:=2)
    mesage = ""
    For Each r In ActiveSheet.UsedRange
        If InStr(1, r.Value, v) > 0 Then
            mesage = mesage & r.Address & vbCrLf
        End If
    Next
    If mesage = "" Then
        mesage = "Name not found"
    End If
    MsgBox mesage
End Sub