Как проверить, существует ли нужный лист в рабочей книге?
Когда в рабочей книге десятки или даже сотни листов, поиск или проверка наличия конкретного листа может превратиться в утомительную задачу. Ниже — простой код на VBA и удобный инструмент, которые мгновенно помогут определить, существует ли нужный лист в книге.
Проверка наличия листа в рабочей книге с помощью VBA
Проверка наличия листа и переход к нему с помощью Kutools для Excel 
Проверка наличия листа в рабочей книге
Выполните следующие шаги, чтобы скопировать код VBA и запустить его для проверки наличия листа в текущей книге.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В открывшемся окне выберите Вставка > Модуль, чтобы открыть новое окно модуля, и вставьте в него приведённый ниже код VBA.
VBA: Проверка наличия листа в рабочей книге.
Function CheckSheet(pName As String) As Boolean
'Updateby20140617
Dim IsExist As Boolean
IsExist = False
For i = 1 To Application.ActiveWorkbook.Sheets.Count
If Application.ActiveWorkbook.Sheets(i).Name = pName Then
IsExist = True
Exit For
End If
Next
CheckSheet = IsExist
End Function3. Сохраните этот код и вернитесь на лист. Выберите пустую ячейку и введите в неё формулу =CheckSheet(“Shee1”) («Sheet1» указывает имя листа, существование которого вы хотите проверить), затем нажмите кнопку Enter. Значение FALSE означает, что такой лист не существует, а значение TRUE — что он существует в текущей книге.
Проверка наличия листа и переход к нему с помощью Kutools для Excel с использованием VBA
С помощью вышеуказанной пользовательской функции можно лишь проверить существование листа, что само по себе довольно неудобно. Однако с помощью Kutools для Excel панель «Навигация» выводит список имён всех листов, поддерживая прокрутку для поиска нужного листа или фильтрацию по имени. После обнаружения нужного листа вы можете просто щёлкнуть его имя, чтобы сразу перейти к нему.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Активируйте книгу, в которой нужно проверить наличие листа, и нажмите Kutools > Навигация. См. снимок экрана:
2. Затем в появившейся панели нажмите кнопку Рабочая книга и Лист, чтобы развернуть её. Здесь вы увидите список всех имён листов — прокручивайте его, чтобы найти нужные имена.
3. Также вы можете установить флажок Фильтр, ввести ключевые слова имени листа, который необходимо проверить — и соответствующее имя листа тут же отобразится. Щёлкните по нему, чтобы сразу перейти на этот лист.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек