Клубове

Module VBA

3 отговора 0 прегледа
vlado123123 #1

Module VBA

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

Отговор
Heykия в отговор на vlado123123 #2

Re: Module VBA

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

Отговор
Бypaн в отговор на Heykия #3

Re: Module VBA

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

Geocaching в България
Отговор
TRN в отговор на vlado123123 #4

Re: Module VBA

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

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


Отговор
Отговор в темата