Question

我希望它能够输入一个名称，然后让Excel输出显示该名称的每个工作表。每个工作表都是一个Application，带有用户列表。我需要能够搜索用户，并使其返回该用户有权访问的所有应用程序。

我尝试使用Google搜索，并找到了一个公式，但这并不是我想要的。我没有足够的经验去知道如何提出自己想要的东西，但是有足够的经验来理解所写的东西。公式或VBA都可以。

Answer 1

这应该使您入门：

Sub LookForName()
    Dim n As String, s As Worksheet, r As Range, msg As String

    n = Application.InputBox(Prompt:="Enter Name: ", Type:=2)
    msg = ""

    For Each s In Sheets
        Set r = s.Cells.Find(What:=n, After:=s.Cells(1, 1))
        If r Is Nothing Then
        Else
             msg = msg & vbCrLf & s.Name
        End If
    Next s
    If msg = "" Then msg = "Name not found."
    MsgBox msg
End Sub

寻找可以采用输入名称并返回名称显示在其中的所有工作表的公式或VBA

1 个答案: