Ищем формулу или VBA, которые могут взять введенное имя и вернуть все рабочие листы, в которых это имя появляется

Question

Что бы я хотел, чтобы можно было вводить имя, а затем выводить в Excel каждый рабочий лист, в котором появляется имя. Каждый рабочий лист представляет собой приложение со списком пользователей.Мне нужно иметь возможность искать пользователя и возвращать все приложения, к которым у него есть доступ.

Я попытался найти его в 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