Как зафиксировать лист, чтобы он всегда оставался видимым в рабочей книге Excel?
При работе в Excel с крупной книгой, содержащей множество листов, панель вкладок может быстро переполниться. При прокрутке списка — особенно когда вкладок больше, чем помещается на экране — листы с обоих концов, включая первый, легко теряются из виду. Это доставляет неудобства, если вы часто обращаетесь к «основному» или сводному листу и хотите, чтобы он всегда оставался под рукой.
В этой статье описаны практические способы обеспечить постоянную видимость выбранного основного листа в вашей книге Excel — независимо от того, к какому листу вы переходите или сколько всего листов содержится в книге. Эти решения особенно полезны, когда вам постоянно нужно обращаться к инструкциям, панелям мониторинга или сводным данным, не тратя время на поиск среди вкладок листов.
 |  |  |
Фиксация положения листа с помощью VBA
Фиксация положения листа с помощью VBA
В Excel пока нет встроенной функции для фиксации вкладки определённого листа, чтобы она всегда оставалась видимой. Однако с помощью VBA (Visual Basic for Applications) можно добиться аналогичного эффекта и значительно упростить навигацию. Ниже представлены два разных метода VBA, решающих распространённые задачи:
Переход к определённому листу с помощью сочетания клавиш
При работе с несколькими разделами или листами удобно назначить сочетание клавиш для мгновенного перехода к основному листу — это экономит время и избавляет от необходимости прокручивать вкладки. Такой подход особенно полезен, если вам часто приходится проверять сводные данные или оперативно вносить записи в конкретный «основной» лист.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
Если вкладка «Разработчик» не отображается, сначала включите её через параметры Excel.
2. Щёлкните Вставка > Модуль, чтобы добавить новый модуль. Затем скопируйте и вставьте приведённый ниже код VBA в пустую область скрипта:
VBA: Переход к основному листу
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End SubПримечание: В строке кода VBA Sheets(«Master»).Activate замените «Master» на имя нужного листа, если это необходимо. Всегда убедитесь, что имя листа указано точно: опечатки или лишние пробелы вызовут ошибки во время выполнения.
3. Сохраните проект VBA, вернитесь в Excel и перейдите в раздел Разработчик > Макросы.
4. В диалоговом окне Макрос найдите созданный макрос. Нажмите Параметры, чтобы назначить для него собственное сочетание клавиш.
5. Подтвердите выбранное сочетание клавиш и закройте диалоговое окно «Макрос».
Теперь Вы можете в любой момент нажать назначенное сочетание клавиш для немедленного перехода к основному листу, независимо от текущего положения в книге. Это помогает сохранять концентрацию при работе со сложными книгами и сокращает время, затрачиваемое на поиск основного листа.
Совет: Если вы продолжите добавлять новые листы или изменять структуру книги, это сочетание клавиш будет работать до тех пор, пока имя целевого листа не изменится. Имейте в виду: если переименовать или удалить основной лист, макрос вызовет ошибку, пока его не обновят.
Всегда держать определённый лист в начале списка
В некоторых рабочих процессах удобно размещать определённый лист в крайнем левом (первом) положении среди вкладок. Приведённый ниже код VBA автоматически перемещает выбранный основной лист на первое место каждый раз, как только активируется любой другой лист. Это особенно полезно для общих книг или панелей мониторинга, где сводный лист должен всегда оставаться на виду у всех пользователей.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В области слева Обозреватель проектов — VBAProject дважды щёлкните по элементу ЭтаКнига, чтобы открыть окно его кода. Вставьте приведённый ниже код непосредственно в этот модуль:
VBA: Основной лист всегда остаётся в начале списка
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'UpdatebyExtendoffice2018027
Dim xSheet As Worksheet
Application.EnableEvents = False
Set xSheet = Sheets("master")
If Sh.Name <> xSheet.Name Then
Sh.Move , xSheet
xSheet.Activate
Sh.Activate
End If
Application.EnableEvents = True
End Sub
3. Сохраните изменения и закройте редактор VBA. Теперь при каждом переходе на любой лист или его активации ваш основной лист автоматически переместится на первую позицию, обеспечивая постоянную видимость.
 | |  |
Примечание: В приведённом выше коде VBA «master» обозначает лист, который всегда должен оставаться видимым. При необходимости замените это имя на актуальное для вашей книги, но обязательно проверьте написание и регистр символов. Если указанный лист не существует, код работать не будет, поэтому убедитесь в его наличии перед использованием.
Меры предосторожности: Если в вашей книге есть защищённые или скрытые («очень скрытые») листы, программное перемещение листов может вызвать ошибки. Кроме того, этот код выполняется при каждом выборе листа, поэтому в очень крупных книгах возможна небольшая задержка.
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек