Как вернуться к последнему активному листу в Excel?
Как вернуться к последнему активному листу в Excel?
Как вернуться к последнему активному листу в 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 одним щелчком мыши. Выполните следующие действия.
Перед использованием 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
пощелкай по ярлыкам листов той самой ЭтойКниги, смотри окно 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
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 страниц сборников по трудоемкости. Там тоже есть скрытые ярлыки. Для навигации используются ссылки и макросы.
В рабочем реестре 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
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
Получается, что если названия листов записываются в отдельные ячейки до повторного входа в книгу, то следующее название записывается в ту же ячейку до следующего повторного входа. Прошу помощи профессионалов))
[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder]
Но по какой-то причине названия листов записываются в одной и той же ячейке до входа в скоросшиватель, а затем в следующей ячейке до следующего входа. Пожалуйста, помогите профессионалам))
[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder] argetlam
Почему-то при каждом повторном входе в книгу названия листов записываются в одну и ту же ячейку, а потом в следующую до следующего повторного входа. Помогите пожалуйста профессионалы))
[moder]Читайте правила форума, создавайте свою тему!
Эта тема закрыта.[/moder] Автор — argetlam
Дата добавления — 26.06.2015 в 10:54