Макрос перехода на предыдущий активный лист в Excel

Вот решение на вопрос нашего читателя.

Когда в книге много листов, а работаешь, например, в 7-м и 27-м, хотелось бы переходить быстро на нужный предыдущий лист (без участия прокрутки). Как, к примеру, когда работаешь в двух документах Excel, очень удобно пользоваться «ctrl+Tab»

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

SirExcel - макрос переключения на предыдущий активный лист

 

Public LastActiveList As Worksheet
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Set LastActiveList = Sh 'запомнить текущий активный лист
End Sub
Sub GoToLastList()
LastActiveList.Activate 'активируем предыдущий активный лист
End Sub
Поделиться:
2 Комментария
  • Виктор:

    Здравствуйте,

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

    • excel:

      В конце макроса просто добавьте

      Sheets («Лист1»).Activate

      Вместо Лист1 — укажите название нужного листа, который должен быть активирован после завершения работы макроса

Добавить комментарий

Ваш e-mail не будет опубликован. Все поля обязательны для заполнения.