Excel vba найти лист по имени - Word и Excel - помощь в работе с программами

Содержание

Vba excel найти лист по имени
Как искать по имени листа в Excel?
Vba excel найти лист по имени

Vba excel найти лист по имени

Как искать по имени листа в Excel?

Обычно мы можем легко находить / искать ячейки с помощью функции поиска и замены. Но иногда нам нужно искать по имени листа. Например, на панели вкладок листа сжимаются десятки листов, и нам нужно быстро найти рабочий лист и перейти к нему. Так как? В этой статье мы обсудим оба метода, чтобы легко решить эту проблему.

Этот метод представит макрос VBA для простого поиска на листе в активной книге.

1, нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте следующий код VBA в новое открывающееся окно модуля.

VBA: поиск по имени листа

3, нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

4. Появится диалоговое окно поиска листа, введите имя листа, на котором вы будете искать, и нажмите кнопку OK кнопка. Смотрите скриншот:

Появится другое диалоговое окно, в котором сообщается, найден рабочий лист или нет. Просто закрой это.

Примечание: Этот VBA требует точно совпадающего имени рабочего листа. Только вы вводите точно полное имя рабочего листа, вы можете узнать этот рабочий лист с помощью этого VBA.

В приведенном выше VBA может быть непросто найти рабочий лист, если вы не можете точно вспомнить и ввести имя рабочего листа. Этот метод представит Kutools for Excel’s Создать список имен листов утилита для поиска и простого перехода к рабочему листу.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30 -день, кредитная карта не требуется! Бесплатная пробная версия сейчас!

Kutools for Excel — Combines more than 300 Advanced Functions and Tools for Microsoft Excel

1. Нажмите Кутулс Плюс > Рабочий лист > Создать список имен листов , чтобы открыть диалоговое окно «Создать список имен листов». Смотрите скриншоты:

2. В открывшемся диалоговом окне Create List of Sheet Names укажите параметры: (1) проверить Содержит список гиперссылок вариант; (2) введите имя для нового созданного индексного листа; (3) указать место нового индексного листа; и (4) перечислите все имена рабочих листов в одном столбце индексного листа.

3, Нажмите Ok кнопка. Теперь создается новый индексный лист, который помещается перед всеми листами.

4. Перейдите к индексной странице и нажмите Ctrl + F одновременно с клавишами, чтобы открыть диалоговое окно «Найти и заменить», введите ключевое слово в поле Найти то, что и нажмите Найти все кнопка. Смотрите скриншот:

Теперь все имена листов, содержащие ключевые слова, найдены и перечислены в нижней части диалогового окна «Найти и заменить». См. Диалоговое окно выше.

5. Щелкните имя найденного рабочего листа в диалоговом окне «Найти и заменить», чтобы выбрать соответствующую ячейку, затем щелкните выбранную ячейку на индексном листе, и он сразу перейдет к соответствующему рабочему листу.

Демо: поиск по имени листа в Excel

Если у вас установлен Kutools for Excel, вы можете легко искать листы по имени листа в области навигации. Пожалуйста, сделайте следующее:

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30 -день, кредитная карта не требуется! Get It Now

1. По умолчанию открывается панель навигации. Если закрыто, нажмите Кутулс > Область переходов чтобы отобразить панель навигации, а затем щелкните (Рабочая книга и лист) в левой части области навигации.

2. Вперед, чтобы проверить Фильтр флажок в области навигации и введите указанные ключевые слова в следующее поле. Теперь все листы, имена которых содержат указанные ключевые слова, будут найдены и перечислены в поле ниже. Смотрите скриншот:

Внимание: При нажатии на результаты поиска сразу открывается соответствующий рабочий лист.

Демо: поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Источник

Vba excel найти лист по имени

= Мир MS Excel/Поиск среди имен листов — Мир MS Excel

Войти через uID

Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Поиск среди имен листов (Макросы/Sub)

Поиск среди имен листов

Karbofox

Дата: Четверг, 05.06.2014, 12:55 | Сообщение № 1

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Sub Macros()
Dim ws As String
Dim a As Integer

ws = InputBox(«ВВедите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

If ws = «» Then Exit Sub
On Error Resume Next

For i = 1 To Worksheets.Count
If InStr(Worksheets(i).Name, ws) > 0 Then
Worksheets(i).Select
choice = MsgBox(«Нашли?», vbYesNo)
If choice = «Yes» Then Exit For ‘ Exit inner loop.
End If
Next i
If Err Then MsgBox «Листа с таким именем нет»
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Sub Macros()
Dim ws As String
Dim a As Integer

ws = InputBox(«ВВедите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

If ws = «» Then Exit Sub
On Error Resume Next

200?’200px’:»+(this.scrollHeight+5)+’px’);»>
Sub Macros()
Dim ws As String
Dim a As Integer

ws = InputBox(«ВВедите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

If ws = «» Then Exit Sub
On Error Resume Next

SkyPro

Дата: Четверг, 05.06.2014, 13:19 | Сообщение № 2

Karbofox

Дата: Четверг, 05.06.2014, 14:25 | Сообщение № 3

_Boroda_

Дата: Четверг, 05.06.2014, 14:36 | Сообщение № 4

Ответить

DJ_Marker_MC

Дата: Четверг, 05.06.2014, 14:40 | Сообщение № 5

Alex_ST

Дата: Четверг, 05.06.2014, 14:50 | Сообщение № 6

С уважением,
Алексей
MS Excel 2003 — the best.

_Boroda_

Дата: Четверг, 05.06.2014, 14:55 | Сообщение № 7

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 14:58 | Сообщение № 8

Ответить

_Boroda_

Дата: Четверг, 05.06.2014, 15:01 | Сообщение № 9

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:05 | Сообщение № 10

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:08 | Сообщение № 11

С уважением,
Алексей
MS Excel 2003 — the best.

SkyPro

Дата: Четверг, 05.06.2014, 15:09 | Сообщение № 12

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Activate
End Sub

Private Sub TextBox1_Change()
Dim sh As Worksheet
ListBox1.Clear
For Each sh In ThisWorkbook.Worksheets
If Not TextBox1.Text = «» Then
If LCase(sh.Name) Like «*» & LCase(TextBox1.Text) & «*» Then
ListBox1.AddItem sh.Name
End If
End If
Next
End Sub

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Activate
End Sub

Karbofox	Дата: Четверг, 05.06.2014, 15:12 \| Сообщение № 13
Уважаемый Борода, Вам Спасибо, как всегда! Уважаемый Борода, Вам Спасибо, как всегда! Уважаемый Борода, Вам Спасибо, как всегда! Автор — Karbofox Дата добавления — 05.06.2014 в 15:12 Источник Adblock detector

Источник

Ow1

Пользователь

Сообщений: 19
Регистрация: 27.07.2016

11.11.2016 00:52:11

Всем привет, не могу понять, почему не правильно работает макрос (если делать через функцию, как показано в др. сообщ на форуме и в интернетах, проблем нет…).
Его задача: Во всех открытых книгах найти лист с определенным именем.
Помогите разобраться. Спасибо.

Код

Sub fd()
Dim y As String
Dim wbBook As Workbook

    For Each wbBook In Workbooks
    MsgBox (wbBook.Name)
    
    Dim wsSh As Worksheet
    On Error Resume Next
    Set wsSh = wbBook.Sheets("Имя Листа")
      If wsSh Is Nothing Then
         y = wbBook.Name
      End If
    
     Next wbBook

     MsgBox (y)   
End Sub

Изменено: Ow1 — 11.11.2016 01:22:11

Sanja Пользователь Сообщений: 14838 Регистрация: 10.01.2013	Ну наверное ни в одной открытой книге нет листа с именем «Имя Листа» Или что значит «не правильно работает»? Согласие есть продукт при полном непротивлении сторон.

Ow1 Пользователь Сообщений: 19 Регистрация: 27.07.2016	нет имя листа есть, но указывает неправильную книгу Изменено: Ow1 — 11.11.2016 01:01:21

Sanja

Пользователь

Сообщений: 14838
Регистрация: 10.01.2013

11.11.2016 01:04:08

Код

Sub fd()
Dim y As String
Dim wbBook As Workbook
Dim wsSh As Worksheet
On Error Resume Next
For Each wbBook In Workbooks
    Set wsSh = wbBook.Sheets("Имя Листа")
    If Not wsSh Is Nothing Then
        MsgBox wbBook.Name
    End If
Next wbBook
End Sub

Согласие есть продукт при полном непротивлении сторон.

Ёк-Мок Пользователь Сообщений: 1775 Регистрация: 16.01.2013	>>> имя листа есть Как на картинке — «Имя Листа»? Прикрепленные файлы 01.png (2.33 КБ) Удивление есть начало познания © Surprise me! И да пребудет с нами сила ВПР.

SAS888

Пользователь

Сообщений: 757
Регистрация: 01.01.1970

11.11.2016 05:32:56

Здравия.
У Вас в коде есть строка

Код
If wsSh Is Nothing Then y = wbBook.Name

Понимать ее нужно так: если такого листа нет, то присвоить переменной имя текущей книги.
Может нужно, все-таки, наоборот?

Код
If Not wsSh Is Nothing Then y = wbBook.Name

см. пост № 4

Изменено: SAS888 — 11.11.2016 05:39:04

Чем шире угол зрения, тем он тупее.

Ow1

Пользователь

Сообщений: 19
Регистрация: 27.07.2016

Код в 4 посте также не совсем работает, и я понел почему — если лист который мы ищем в 1ой книге с макросом, он почему-то пропускает не видит. хотя форейч проходит по всем книгам… Не понятно… Вот файлы примеров(в файле пример находится макрос):

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

11.11.2016 09:43:03

Доброе время суток
А для чего столь странная конструкция с On Error Resume Next — что бы не вводить второй цикл? А чем он мешает?

Код

Public Sub listFinder()
    Dim pBook As Workbook, pSheet As Worksheet
    For Each pBook In Application.Workbooks
        For Each pSheet In pBook.Worksheets
            If StrComp(pSheet.Name, "Имя Листа", vbTextCompare) = 0 Then
                MsgBox pBook.Name
            End If
        Next
    Next
End Sub

И если уж делате таким странным образом, то перед

Код
Set wsSh = wbBook.Sheets("Имя Листа")

Вставьте

Код
Set wsSh = Nothing

Иначе, если хотя бы раз лист с таким именем был найден, то в wsSh будет хранится ссылка на успешно найденный лист, и по коду дальше вы будете получать неверное имя книги, так как Resume Next всего лишь пропускает строку, вызвавшую ошибку, но ничего не меняет в состоянии переменных.

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	А если в нескольких книгах имеется лист с нужным именем? ))

Андрей VG

Пользователь

Сообщений: 11878
Регистрация: 22.12.2012

Excel 2016, 365

#10

11.11.2016 21:51:15

Цитата
Юрий М написал: А если в нескольких книгах имеется лист с нужным именем? ))

Цитата
Ow1 написал: Его задача: Во всех открытых книгах найти лист с определенным именем.

P. S. ТСы какие «вежливые» пошли — ни гу-гу.

Изменено: Андрей VG — 12.11.2016 09:34:24

Ow1

Пользователь

Сообщений: 19
Регистрация: 27.07.2016

#11

12.11.2016 21:27:50

Цитата
Юрий М написал: А если в нескольких книгах имеется лист с нужным именем? ))

Обойдемся пока уникальным именем…

Цитата
Андрей VG написал:А для чего столь странная конструкция с On Error Resume Next — что бы не вводить второй цикл? А чем он мешает?

Да, действительно, вы правы. Большое спасибо за подробный ответ. =)

Тему можно закрыть.

Источник

Проверка существования листа в рабочей книге Excel из кода VBA с помощью присвоения его объектной переменной или перебора существующих листов циклом.

Присвоение листа объектной переменной

Пользовательская функция VBA Excel для проверки существования листа в рабочей книге путем определения результата присвоения ссылки на него объектной переменной. Присвоение состоялось (SheetExist = True) – искомый лист существует, произошла ошибка и присвоение не состоялось (SheetExist = False) – лист не существует.

Function SheetExist(WbName As String, ShName As String) As Boolean

Dim mySheet As Worksheet

On Error Resume Next

Set mySheet = Workbooks(WbName).Sheets(ShName)

SheetExist = Not mySheet Is Nothing

End Function

Аргументы функции SheetExist:

WbName – имя открытой рабочей книги, в которой ищется лист.
ShName – имя искомого рабочего листа.

Перебор существующих листов циклом

Проверка существования рабочего листа в книге Excel с помощью перебора существующих листов циклом VBA и сравнения их имен с именем искомого листа. Совпадение найдено (SheetExist = True) – искомый лист существует, совпадение не найдено (SheetExist = False) – лист не существует.

Function SheetExist(WbName As String, ShName As String) As Boolean

Dim mySheet As Worksheet

For Each mySheet In Workbooks(WbName).Sheets

If mySheet.Name = ShName Then

SheetExist = True

Exit Function

End If

End Function

Пример проверки существования листа

Пример проверки существования искомого листа в рабочей книге Excel с помощью пользовательской функции VBA SheetExist:

Sub Primer()

If SheetExist(ThisWorkbook.Name, «Лист1») Then

MsgBox «Лист существует»

Else

MsgBox «Лист не существует»

End If

End Sub

Имя сторонней открытой книги должно быть указано вместе с расширением:

...

If SheetExist(«Книга2.xlsm», «Лист2») Then

...

Обратите внимание, если книга, имя которой указано в параметре WbName закрыта или не существует, будет сгенерирована ошибка.

Чтобы функция проверки существования рабочего листа SheetExist была доступна из модуля любой книги Excel на вашем компьютере, разместите ее в Личной книге макросов.

Источник

Поиск среди имен листов

Karbofox

Дата: Четверг, 05.06.2014, 12:55 |
Сообщение № 1

Группа: Проверенные

Ранг: Участник

Сообщений: 69

Репутация:
16
±

Замечаний:
0% ±

Excel 2010

Помогите пожалуйста «исправить» макрос для поиска среди имен листов по части названия.
А то я понакручивал себе уже … :'( По этому куску кода ищет совпадения, но при выборе «Да» — не останавливается. И соответственно ничего не пишет, если совпадений не было найдено.
[vba]

Код

Sub Macros()
Dim ws As String
Dim a As Integer

ws = InputBox(«ВВедите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

If ws = «» Then Exit Sub
On Error Resume Next

        For i = 1 To Worksheets.Count
       If InStr(Worksheets(i).Name, ws) > 0 Then
          Worksheets(i).Select
   choice = MsgBox(«Нашли?», vbYesNo)
   If choice = «Yes» Then Exit For ‘ Exit inner loop.
   End If
   Next i
If Err Then MsgBox «Листа с таким именем нет»
End Sub

[/vba]

Сообщение отредактировал Karbofox — Четверг, 05.06.2014, 15:03

Ответить

SkyPro

Дата: Четверг, 05.06.2014, 13:19 |
Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация:
255
±

Замечаний:
0% ±

2010

А так не подойдет?

К сообщению приложен файл:

5390003.xlsm
(38.8 Kb)

skypro1111@gmail.com

Ответить

Karbofox

Дата: Четверг, 05.06.2014, 14:25 |
Сообщение № 3

Группа: Проверенные

Ранг: Участник

Сообщений: 69

Репутация:
16
±

Замечаний:
0% ±

Excel 2010

Подойдет, конечно же.
Но вдруг кто-то сможет назвать, в чем ошибка в моем «коде» : так быстрее понял бы, где я допускаю ошибки в рассуждениях.

Ответить

_Boroda_

Дата: Четверг, 05.06.2014, 14:36 |
Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618

Репутация:
6465
±

Замечаний:
0% ±

2003; 2007; 2010; 2013 RUS

Скажи мне, кудесник, любимец ба’гов…
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

DJ_Marker_MC

Дата: Четверг, 05.06.2014, 14:40 |
Сообщение № 5

Группа: Друзья

Ранг: Ветеран

Сообщений: 991

Репутация:
213
±

Замечаний:
0% ±

Excel 2019

SkyPro, крутая штука))) добавил себе надстройку. Очень удобно.

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 14:50 |
Сообщение № 6

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Из-за того, что у Вас VBE пометил красным — фигню какую-то, написанную в MsgBox: [vba]

Код

choice = MsgBox(«I’a`?e»e`?», vbYesNo)

[/vba] и не правильно отлавливаете его ответ
Ну и ещё может быть, если у Вас в декларациях прописано Option Explicit, то из-за того, что вместо переменной i определили а[vba]

Код

Sub Macros()
      Dim ws As String
      Dim i As Integer
      ws = InputBox(«Введите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)
      If ws = «» Then Exit Sub
      On Error Resume Next
      For i = 1 To Worksheets.Count
         If InStr(Worksheets(i).Name, ws) > 0 Then
            Worksheets(i).Select
            If MsgBox(«Этот лист?», vbYesNo) = vbYes Then Exit For ‘ Exit inner loop.
         End If
      Next i
      If Err Then MsgBox «Листа с таким именем нет»
End Sub

[/vba]

С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Четверг, 05.06.2014, 14:54

Ответить

_Boroda_

Дата: Четверг, 05.06.2014, 14:55 |
Сообщение № 7

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618

Репутация:
6465
±

Замечаний:
0% ±

2003; 2007; 2010; 2013 RUS

VBE пометил красным — фигню какую-то, написанную в MsgBox

Леш, там на самом деле все нормально написано. Просто когда копировались данные из окна VBA — язык стоял английский, а когда сюда вставлялись — язык стоял русский. Поэтому русские буквы и поменялись. помнишь, тут даже тема про это была?

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 14:58 |
Сообщение № 8

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Саш, а ты не обратил внимание, что не все русские буквы «скракозяьрились». Значит, с раскладкой было всё в порядке.
А вот если попытаться вставить в VBE текст процедуры из первого поста, то там появляется лишняя не закрытая кавычка среди зюковок.

С уважением,
Алексей
MS Excel 2003 — the best!!!

Ответить

_Boroda_

Дата: Четверг, 05.06.2014, 15:01 |
Сообщение № 9

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618

Репутация:
6465
±

Замечаний:
0% ±

2003; 2007; 2010; 2013 RUS

Ну ладно, придет автор — у него и уточним
Кстати, тест
àáâãäå¸æçèêëìíóôõ
éöóêåíãøùçõúýæäëîðïàâûôÿ÷ñìèòüáþ.

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:05 |
Сообщение № 10

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Блин! Есть свободное время и желание посмотреть, что так понравилось DJ_Marker_MC, а разрешения на загрузку файлов с макросами на работе нет… (Сволочи сисадмины!)
А пока до дому доберусь, забуду
Там только процедуры или ещё и форма? Если только текст, то кто-нибудь скиньте его сюда, пожалуйста, повеселите старика (до совещания ещё 45 минут, а делать нечего).

С уважением,
Алексей
MS Excel 2003 — the best!!!

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:08 |
Сообщение № 11

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Кстати, тест
àáâãäå¸æçèêëìíóôõ
éöóêåíãøùçõúýæäëîðïàâûôÿ÷ñìèòüáþ.

при вводе в VBE греческая каппа воспринимается как кавычка.
А «раскракозябрить» скриптом удалось.: абвгдеёжзиклмнуфх
йцукенгшщзхъэждлорпавыфячсмитьбю.

С уважением,
Алексей
MS Excel 2003 — the best!!!

Сообщение отредактировал Alex_ST — Четверг, 05.06.2014, 15:09

Ответить

SkyPro

Дата: Четверг, 05.06.2014, 15:09 |
Сообщение № 12

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация:
255
±

Замечаний:
0% ±

2010

Форматекстбокслистбокс
код:
[vba]

Код

Private Sub ListBox1_Click()
Sheets(ListBox1.Text).Activate
End Sub

Private Sub TextBox1_Change()
Dim sh As Worksheet
ListBox1.Clear
For Each sh In ThisWorkbook.Worksheets
     If Not TextBox1.Text = «» Then
         If LCase(sh.Name) Like «*» & LCase(TextBox1.Text) & «*» Then
             ListBox1.AddItem sh.Name
         End If
     End If
Next
End Sub

[/vba]
Ничего сверхестественного

skypro1111@gmail.com

Ответить

Karbofox

Дата: Четверг, 05.06.2014, 15:12 |
Сообщение № 13

Группа: Проверенные

Ранг: Участник

Сообщений: 69

Репутация:
16
±

Замечаний:
0% ±

Excel 2010

Саш, а ты не обратил внимание, что не все русские буквы «скракозяьрились». Значит, с раскладкой было всё в порядке.

То я уже вручную все переписал,а одну строку забыл — там нет лишних кавычек и текста)
Подскажите пожалуйста, а почему не работает часть [vba]

Код

If Err Then MsgBox «Листа с таким именем нет»

[/vba]

Уважаемый Борода,
Вам Спасибо, как всегда!

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:17 |
Сообщение № 14

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Спасибо.
Просто и эффективно. Даже в голову не приходило так сделать.
Просто у меня в рабочих книгах больше десятка листов не бывает, вот и не нужно было.
А у девочек в соседней комнате кабельные журналы листов по 50. Они, наверное, оценят.

С уважением,
Алексей
MS Excel 2003 — the best!!!

Ответить

SkyPro

Дата: Четверг, 05.06.2014, 15:22 |
Сообщение № 15

Группа: Друзья

Ранг: Старожил

Сообщений: 1206

Репутация:
255
±

Замечаний:
0% ±

2010

Karbofox, вместо ошибки проверяйте переключатель:
[vba]

Код

Sub Macros()
Dim ws As String
Dim a As Integer
Dim boo As Boolean ‘ добавим переключатель

ws = InputBox(«Введите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

    If ws = «» Then Exit Sub
On Error Resume Next
boo = False
For i = 1 To Worksheets.Count
     If InStr(Worksheets(i).Name, ws) > 0 Then
         Worksheets(i).Select
         choice = MsgBox(«Нашли?», vbYesNo)
         If choice = vbYes Then Exit For
         boo = True ‘если вошли в условие, то переключатель в ТРУ
     End If
Next
     ‘если переключатель остался в ФОЛС, то даем меседж.
     If boo = False Then MsgBox «Листа с таким именем нет»
End Sub

[/vba]

Ответить

Alex_ST

Дата: Четверг, 05.06.2014, 15:23 |
Сообщение № 16

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3176

Репутация:
604
±

Замечаний:
0% ±

2003

Потому что ошибки не возникает

Ответить

_Boroda_

Дата: Четверг, 05.06.2014, 15:26 |
Сообщение № 17

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16618

Репутация:
6465
±

Замечаний:
0% ±

2003; 2007; 2010; 2013 RUS

а почему не работает часть

Потому, что Вы выходите из цикла, но не из макроса. Нужно что-то типа If choice = 6 Then Exit Sub
И, как уже заметили выше, ошибки-то не возникает
[vba]

Код

Sub Macros()
Dim ws As String
Dim a As Integer

ws = InputBox(«ВВедите имя листа/часть имени», «Поиск листа по имени», ActiveSheet.Name)

If ws = «» Then Exit Sub
On Error Resume Next

              For i = 1 To Worksheets.Count
          If InStr(Worksheets(i).Name, ws) > 0 Then
          Worksheets(i).Select
          choice = MsgBox(«он?», vbYesNo)
          If choice = 6 Then Exit Sub ‘ Exit inner loop.
      End If
Next i
MsgBox «Листа с таким именем нет»
End Sub

[/vba]

Ответить

Источник

Поиск по имени рабочего листа с VBA
Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel (5 шаги)
Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel (2 шаги)

Поиск по имени рабочего листа с VBA

Этот метод представит макрос VBA для простого поиска на листе в активной книге.

1, нажмите другой + F11 одновременно клавиши, чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модули, а затем вставьте следующий код VBA в новое открывающееся окно модуля.

VBA: поиск по имени листа

Sub SearchSheetName()
Dim xName As String
Dim xFound As Boolean
xName = InputBox("Enter sheet name to find in workbook:", "Sheet search")
If xName = "" Then Exit Sub
On Error Resume Next
ActiveWorkbook.Sheets(xName).Select
xFound = (Err = 0)
On Error GoTo 0
If xFound Then
MsgBox "Sheet '" & xName & "' has been found and selected!"
Else
MsgBox "The sheet '" & xName & "' could not be found in this workbook!"
End If
End Sub

3, нажмите F5 ключ или щелкните Run кнопку для запуска этого VBA.

Появится другое диалоговое окно, в котором сообщается, найден рабочий лист или нет. Просто закрой это.

Поиск по имени рабочего листа с помощью «Создать список имен листов» Kutools for Excel

В приведенном выше VBA может быть непросто найти рабочий лист, если вы не можете точно вспомнить и ввести имя рабочего листа. Этот метод познакомит Kutools for ExcelАвтора Создать список имен листов утилита для поиска и простого перехода к рабочему листу.

3, Нажмите Ok кнопка. Теперь создается новый индексный лист, который помещается перед всеми листами.

Демо: поиск по имени листа в Excel

Поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Если у вас есть Kutools for Excel установлен, вы можете легко искать рабочие листы по имени листа в области навигации. Пожалуйста, сделайте следующее:

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Внимание: При нажатии на результаты поиска сразу открывается соответствующий рабочий лист.

Демонстрация: поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Статьи по теме:

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (6)

Оценок пока нет. Оцените первым!

Источник

На чтение 6 мин. Просмотров 223 Опубликовано 21.05.2021

Обычно мы можем легко находить/искать ячейки с помощью функции поиска и замены. Но иногда нам нужно искать по имени листа. Например, на панели вкладок листа сжимаются десятки листов, и нам нужно быстро найти рабочий лист и перейти к нему. Так как? В этой статье обсуждаются оба метода, позволяющие легко решить эту проблему.

Поиск по имени рабочего листа с помощью VBA
Поиск по имени рабочего листа с помощью Создать список имен листов Kutools for Excel ( 5 шагов )
Поиск по имени рабочего листа с помощью области навигации Kutools for Excel ( 2 шага )

Содержание

Быстрый поиск по имени рабочего листа с помощью Kutools for Excel
Поиск по имени рабочего листа с помощью VBA
Поиск по имени рабочего листа с помощью Create List of Sheet Names of Kutools for Excel
Поиск по имени рабочего листа с панелью навигации Kutools for Excel
Статьи по теме:

Быстрый поиск по имени рабочего листа с помощью Kutools for Excel

Теперь в Kutools for Excel улучшена его панель навигации и поддерживает простой поиск по имени листа, как показано на снимке экрана ниже. 30-дневная бесплатная пробная версия полнофункциональной версии!

Вкладка Office Включает редактирование и просмотр с вкладками в Office и делает вашу работу намного проще …

Подробнее … Скачать бесплатно …

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

Повторно использовать что угодно: добавьте наиболее часто используемые или сложные формулы, диаграммы и все остальное в избранное и быстро используйте их в будущем.
Более 20 текстовых функций: извлечение числа из текстовой строки; Извлечь или удалить часть текстов; Преобразование чисел и валют в английские слова.
Инструменты слияния: несколько книг и листов в одну; Объединить несколько ячеек/строк/столбцов без потери данных; Объедините повторяющиеся строки и суммируйте.
Инструменты разделения: разделение данных на несколько листов в зависимости от значения; Из одной книги в несколько файлов Excel, PDF или CSV; Один столбец в несколько столбцов.
Вставить пропуск скрытых/отфильтрованных строк; Подсчет и сумма по цвету фона; Массовая отправка персонализированных писем нескольким получателям.
Суперфильтр: создавайте расширенные схемы фильтров и применяйте их к любым листам; Сортировать по неделе, дню, частоте и т. Д. Фильтр жирным шрифтом, формулами, комментарием …
Более 300 мощных функций; Работает с Office 2007-2019 и 365; Поддерживает все языки; Простое развертывание на вашем предприятии или в организации.

Подробнее … Бесплатная загрузка …

Поиск по имени рабочего листа с помощью VBA

Этот метод вводит макрос VBA для простого поиска на листе в активной книге.

1 . Одновременно нажмите клавиши Alt + F11 , чтобы открыть окно Microsoft Visual Basic для приложений.

2 . Нажмите Вставить > Module , а затем вставьте следующий код VBA в новое открывающееся окно модуля.

VBA: поиск по имени листа

3 . Нажмите клавишу F5 или кнопку Run , чтобы запустить этот VBA.

4 . Появится диалоговое окно поиска на листе, введите имя листа, на котором вы будете искать, и нажмите кнопку OK . См. Снимок экрана:

Появится другое диалоговое окно и сообщит, есть ли на листе найдено или нет. Просто закройте его.

Примечание. Для этого VBA требуется точно совпадающее имя рабочего листа. Только вы вводите точно полное имя рабочего листа, вы можете узнать этот рабочий лист с помощью этого VBA.

Поиск по имени рабочего листа с помощью Create List of Sheet Names of Kutools for Excel

В приведенном выше VBA может быть непросто найти рабочий лист, если вы не можете точно запомните и введите имя рабочего листа. Этот метод познакомит вас с утилитой Kutools for Excel Create List of Sheet Names для быстрого поиска и перехода к рабочему листу.

Kutools for Excel – включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная 30-дневная пробная версия, кредитная карта не требуется! Бесплатная пробная версия!

Kutools for Excel – объединяет более 300 дополнительных функций и инструментов для Microsoft Excel

Перейти к загрузке
Бесплатная пробная версия 60 днейПокупка
PayPal/MyCommerce

1 . Нажмите Kutools Plus > Рабочий лист > Создать список имен листов , чтобы открыть диалоговое окно «Создать список имен листов». См. Скриншоты:

2 . В открывшемся диалоговом окне «Создать список имен листов» укажите параметры: (1) установите флажок Содержит список гиперссылок ; (2) введите имя для нового созданного индексного листа; (3) укажите место нового индексного листа; и (4) перечислить все имена рабочих листов в одном столбце на индексном листе.

3 . Нажмите кнопку ОК . Теперь создается новый индексный лист, который помещается перед всеми листами.

4 . Перейдите к индексной странице и одновременно нажмите клавиши Ctrl + F , чтобы открыть диалоговое окно «Найти и заменить», введите ключевое слово в Найдите поле и нажмите кнопку Найти все .. См. Снимок экрана:

Теперь все имена листов, содержащие ключевые слова, найдены и перечислены в нижней части окна поиска. и диалоговое окно “Заменить”. См. Диалоговое окно выше.

5 . Щелкните имя найденного листа в диалоговом окне «Найти и заменить», чтобы выбрать соответствующую ячейку, затем щелкните выбранную ячейку в индексном листе, и он сразу перейдет к соответствующему листу.

Демонстрация: поиск по имени листа в Excel

Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно бесплатно попробовать без ограничений в течение 30 дней. Загрузить и бесплатную пробную версию !

Поиск по имени рабочего листа с панелью навигации Kutools for Excel

Kutools for Excel – включает более 300 удобных инструментов для Excel. Полнофункциональная 30-дневная бесплатная пробная версия, кредитная карта не требуется! Получить сейчас

1 . По умолчанию открывается панель навигации. Если закрыто, нажмите Kutools > Панель навигации , чтобы отобразить панель навигации, а затем нажмите (Рабочая книга и лист) в левой части области навигации.

2 . Установите флажок Фильтр в области навигации и введите указанные ключевые слова в следующее поле. Теперь все листы, имена которых содержат указанные ключевые слова, будут найдены и перечислены в поле ниже. См. Снимок экрана:

Примечание : нажатие результаты поиска перескочат и сразу откроют соответствующий рабочий лист.

Демо: поиск по имени рабочего листа с помощью панели навигации Kutools for Excel

Kutools for Excel включает более 300 удобных инструментов для Excel, которые можно попробовать бесплатно без ограничения в течение 30 дней. Загрузить и бесплатную пробную версию !

Статьи по теме:

Создать гиперссылку в ячейке на другой лист в той же книге

Источник