Макрос по поиску листов в книге 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д