Перейти к основному содержанию
 

Как заблокировать позицию листа, чтобы она всегда была видна в книге Excel?

Автор: Сан Последнее изменение: 2024 июля 11 г.

Если в рабочей книге несколько листов, то при переходе на последний лист первый лист скрывается на панели вкладок листов, как показано ниже. Теперь вы хотите заблокировать положение главного листа, чтобы он всегда был виден, как это сделать?

Скриншот панели вкладок листа Excel с видимой первой вкладкой Стрелка вправо Скриншот панели вкладок листа Excel с невидимой первой вкладкой

Блокировка положения листа с помощью VBA


Блокировка положения листа с помощью VBA

Здесь я представляю вам два кода VBA для выполнения этой работы.

Перейти к определенному листу с помощью сочетания клавиш

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для Windows.

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

VBA: переход к мастер-листу

Sub GoToSheet()
'UpdatebyExtendoffice20180427
    Sheets("Master").Activate
End Sub

Внимание: В фрагменте кода Таблицы («Мастер»). Активировать, вы можете изменить Эталонный к любому имени листа, как вам нужно.

3. Затем сохраните этот код и вернитесь в книгу, нажмите Застройщик > Макрос.
Скриншот вкладки «Разработчик» в Excel с выделенной опцией «Макросы»

4. в Макрос диалоговом окне выберите кодовое имя, которое вы только что вставили, щелкните Опции, создайте ярлык для запуска этого кода.
Скриншот диалогового окна «Макрос» в Excel с кнопкой «Параметры», выбранной для создания ярлыка

5. Нажмите OK и закрыть Макрос Диалог.

С этого момента при нажатии созданного вами сочетания клавиш будет активирован главный лист независимо от того, какой лист используется в данный момент.

Всегда держите определенный лист на переднем плане.

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для Windows.

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

Скриншот редактора VBA с кодом, вставленным в модуль ThisWorkbook

3. Сохраните код и закройте окно VBA. С этого момента, какой бы лист вы ни выбрали, главный лист всегда будет оставаться на переднем плане панели вкладок.

Скриншот панели вкладок листа Excel с видимым и зафиксированным главным листом Стрелка вправо Скриншот панели вкладок листа Excel после изменения порядка, где главный лист все еще виден

Примечание: В приведенном выше коде "мастер" - это имя листа, которое вы хотите сохранить видимым, измените его по своему усмотрению.

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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


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

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