Как вернуться к последнему активному листу в Excel?

В книге с большим количеством листов нелегко переключаться между двумя часто используемыми листами. Фактически, только код VBA или надстройка Office могут помочь вам быстро переключиться обратно на последний активный рабочий лист в Excel. Пожалуйста, сделайте так, как показано ниже.

Вернуться к последнему активному листу с кодом VBA

Удивительный! Использование эффективных вкладок в Excel, таких как Chrome, Firefox и Safari!

Экономьте 50% своего времени и сокращайте тысячи щелчков мышью каждый день!

Вы можете запустить приведенные ниже коды VBA, чтобы вернуться к последнему активному листу в Excel.

1. Нажмите еще + F11, чтобы открыть окно приложения Microsoft Visual Basic.

2. Дважды щелкните виджет ThisWorkbook в левой панели окна приложения Microsoft Visual Basic, а затем скопируйте и вставьте приведенный ниже код в поле ThisWorkbook (Code).

Код VBA: вернуться к последнему активному листу

3. Чтобы открыть окно Модули, нажмите Вставка > Модули. В следующем окне вставьте приведенный ниже код.

Код VBA: возврат на последний активный лист

3. Перелистайте листы книги. Затем вернитесь в окно приложения Microsoft Visual Basic. нажмите клавишу F5, чтобы запустить код. После нажатия клавиши F5 вы вернетесь к последнему активному листу. При повторном нажатии клавиши F5 окно будет переключаться между двумя листами.

Вернуться к последнему активному листу с помощью Kutools for Excel

Вы можете переключаться между последним и текущим рабочим листом с помощью Kutools for ExcelAuthor. Утилита позволяет быстро вернуться к последнему активному рабочему листу в Excel одним щелчком мыши. Выполните следующие действия.

Читайте так же:

Как в Excel поместить несколько строк текста в одну ячейку?

Перед использованием Kutools for Excel необходимо загрузить и установить программу.

После установки Kutools for Excel слева в Excel автоматически появится панель навигации.

1. В рабочей книге нажмите значок Toggle Between Last Worksheet and Current Worksheet на рабочем листе, чтобы вернуться к предыдущему активному рабочему листу. См. демонстрационный пример ниже:

Заметки:

Если вы хотите получить бесплатную 30-дневную пробную версию этой утилиты, нажмите на кнопку загрузки и выполните следующие шаги.

Как вернуться к последнему активному листу в Excel?

А с чужими файлами я просто поступаю:
Переименовываю листы согласно контенту, ПКМ на стрелках прокрутки листов и выбор нужного из списка

Автор — Serge_007
Дата добавления — 01.02.2013 в 14:57

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
End Sub

Сделайте выводы, щелкнув по ярлыкам листов этой книги, просмотрев окно Immediate (Alt+F11, Ctrl+G) и увидев настройки Immedite.

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
End Sub

Нажмите на ярлыки в самом листе ThisBook, посмотрите окно Immediate (Alt+F11, Ctrl+G), сделайте выводы. Саня

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
End Sub

Читайте так же:

Как автоматически раскрасить чередующиеся строки / столбцы в Excel?

пощелкай по ярлыкам листов той самой ЭтойКниги, смотри окно Immedite (Alt+F11, Ctrl+G), сделай соотв. выводы. Автор — Саня
Дата добавления — 01.02.2013 в 15:46

Вам не нужно этого делать. Я сделал подборки трудоемкости, поэтому там более 50 листов. (Ярлыки там тоже спрятаны. Вся навигация — через гиперссылки и макросы.

Рабочий реестр: 12 листов видимых, 8 скрытых. И нам нужно добавить еще. Но все это есть. Справочная информация, регистратор, номера телефонов, форма для договора и т.д.

Код примерно такой
Модуль ЭтаКнига

Private Sub Workbook_Open()
Sheets(«Содержание»).Activate
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> «Калькуляция» Then
ShName = ActiveSheet.Name
Else
ActiveSheet.DrawingObjects(«Bevel 1″).Caption = «Вернуться на » & ShName
End If
End Sub

Стандартный модуль
[vba]

Option Explicit
Public ShName As String

Private Sub return_to_sheet()
Worksheets(ShName).Activate
End Sub

Вам не нужно этого делать. Там более 50 листов, состоящих из сборников трудоемкости. (И там есть ярлыки, которые скрыты. Вся навигация — через гиперссылки и макросы.

Двенадцать видимых листов и восемь скрытых листов находятся в рабочем реестре. И нам нужно добавить еще. Но все это есть. Есть справочники, есть реестр, есть телефоны, есть форма для договора.

Код примерно такой
Модуль ЭтаКнига

Private Sub Workbook_Open()
Sheets(«Содержание»).Activate
End Sub

Стандартный модуль
[vba]

Option Explicit
Public ShName As String

Private Sub return_to_sheet()
Worksheets(ShName).Activate
End Sub

Вам не нужно этого делать. У меня есть более 50 страниц сборников по трудоемкости. Там тоже есть скрытые ярлыки. Для навигации используются ссылки и макросы.

Читайте так же:

Как быстро преобразовать или скопировать столбец адресов электронной почты в Excel в список рассылки Outlook?

В рабочем реестре 12 листов являются видимыми, а 8 — скрытыми. И нам нужно добавить еще. Но все это уже есть. Есть и справочники, и реестры, и форма договора.

Код примерно такой
Модуль ЭтаКнига

Private Sub Workbook_Open()
Sheets(«Содержание»).Activate
End Sub

Стандартный модуль
[vba]

Option Explicit
Public ShName As String

Private Sub return_to_sheet()
Worksheets(ShName).Activate
End Sub

Public glPrev As Long
Public glAct As Long

Sub ActPrev() ' сюда прицепишь сочетание клавиш
If glPrev > 0 Then Sheets(glPrev).Activate
End Sub

в модуль «ЭтаКнига»:
[vba]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
glAct = Sh.Index
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
glPrev = Sh.Index
End Sub

Public glPrev As Long
Public glAct As Long

Sub ActPrev() ' сюда прицепишь сочетание клавиш
If glPrev > 0 Then Sheets(glPrev).Activate
End Sub

в модуль «ЭтаКнига»:
[vba]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
glAct = Sh.Index
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
glPrev = Sh.Index
End Sub

Public glPrev As Long
Public glAct As Long

Sub ActPrev() ' сюда прицепишь сочетание клавиш
If glPrev > 0 Then Sheets(glPrev).Activate
End Sub

в модуль «ЭтаКнига»:
[vba]

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
'Debug.Print «SheetActivate: «, Sh.Index; Sh.Name
glAct = Sh.Index
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
'Debug.Print «SheetDeactivate: «, Sh.Index; Sh.Name
glPrev = Sh.Index
End Sub

Получается, что если названия листов записываются в отдельные ячейки до повторного входа в книгу, то следующее название записывается в ту же ячейку до следующего повторного входа. Прошу помощи профессионалов))

Читайте так же:

Как в Excel объединить тексты в колонку без дубликатов?

[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder]

Но по какой-то причине названия листов записываются в одной и той же ячейке до входа в скоросшиватель, а затем в следующей ячейке до следующего входа. Пожалуйста, помогите профессионалам))

[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder] argetlam

Почему-то при каждом повторном входе в книгу названия листов записываются в одну и ту же ячейку, а потом в следующую до следующего повторного входа. Помогите пожалуйста профессионалы))

[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder] Автор — argetlam
Дата добавления — 26.06.2015 в 10:54

голоса

Рейтинг статьи