Как заблокировать позицию листа, чтобы она всегда была видна в книге Excel?
Если в книге несколько листов, при переключении на последний лист первый лист будет скрыт на панели вкладок листов, как показано ниже. Теперь вы хотите зафиксировать положение мастер-листа, чтобы он всегда был видимым, как вы можете с этим справиться?
Блокировка положения листа с помощью VBA
Блокировка положения листа с помощью VBA
Здесь я представляю вам два кода VBA для выполнения этой работы.
Перейти к листу
1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для Windows.
2. Нажмите Вставить > Модули, затем скопируйте и вставьте в скрипт приведенный ниже код.
VBA: переход к мастер-листу
Sub GoToSheet()
'UpdatebyExtendoffice20180427
Sheets("Master").Activate
End Sub
Внимание: В фрагменте кода Таблицы («Мастер»). Активировать, вы можете изменить Master к любому имени листа, как вам нужно.
3. Затем сохраните этот код и вернитесь в книгу, нажмите Застройщик > Макрос.
4. в Макрос диалоговом окне выберите кодовое имя, которое вы только что вставили, щелкните Опции, создайте ярлык для запуска этого кода.
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
3. Сохраните код и закройте окно VBA. С этого момента, какой бы лист вы ни щелкнули, мастер-лист всегда остается перед панелью вкладок.
Примечание: В приведенном выше коде "мастер" - это имя листа, которое вы хотите сохранить видимым, измените его по своему усмотрению.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!