Създадени са няколко модула примерно Module1,Modele2 и т.н.
Във всеки модул има създадени по няколко кода А,А1,А2 и т.н.
Има ли възможност да се открие в кой Модул се намира примерно кода А5.
Благодаря

при мене става със скрол на мишката - надолу.

Използвай Edit->Find...

Съдържаниет е скрито
Влезте за да го видите

Ако търсиш име на функция или процедура това ще ти свърши работа

Option Explicit



Sub SearchSub_Function(ByVal WhoSearch As String)

Dim I, J As Integer

Dim MyString As String

For I = 1 To ActiveWorkbook.VBProject.VBComponents.Count



 With ActiveWorkbook.VBProject.VBComponents.Item(I)

  If .Type = vbext_ct_StdModule Then

    If .CodeModule.CountOfLines > 0 Then

    For J = 1 To .CodeModule.CountOfLines

     MyString = .CodeModule.Lines(J, 1)

     If (InStr(LCase(MyString), LCase("Sub " & WhoSearch)) = 1) Or (InStr(LCase(MyString), LCase("Function " & WhoSearch)) = 1) Then MsgBox (.Name)

    Next

   End If

  End If

 End With

Next

End Sub



Sub CallSearcSubFun()

  Call SearchSub_Function("My1SubSearch")

End Sub