Макрос по поиску листов в книге Exсel - VB

Узнай цену своей работы

Формулировка задачи:

Может кто сталкивался с макросом для поиска листов в книге? а то тут пришел файл и около 200 листов, теперь блуждаю по несколько секунд в поисках необходимого листа. Огромное спасибо.

Решение задачи: «Макрос по поиску листов в книге Exсel»

textual
Листинг программы
Sub SearchForWorksheet()
    Dim wshName As String
    Dim wshObj As Worksheet
    Dim found As Boolean
    
    wshName = InputBox$('Enter worksheet name:', 'SearchForWorksheet Macro')
    If Len(wshName) = 0 Then Exit Sub
    found = False
    For Each wshObj In ActiveWorkbook.Worksheets
        If LCase$(wshObj.Name) = LCase$(wshName) Then
            found = True
            wshObj.Activate
            Exit For
        End If
    Next
    If Not found Then MsgBox 'Worksheet not found', vbCritical, 'SearchForWorksheet Macro'
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.2 из 5
Похожие ответы