Question

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

我在Excel中有工作表作为我的数据库，我的程序就像你可以添加一个人的名字一样多。我的添加功能表现良好，我的问题是如何才能找到/搜索特定的您想使用输入框找到的那个人的姓名？

提前致谢

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

使用VBA inputBox搜索特定数据

1 个答案: