Переключение между большим количеством листов

[manhat10]

Excel 2007. В книге около 50 листов. Между ячейками разных листов установлены линки. Через кнопку "влияющие ячейки" перехожу, положим, с 1-го листа на 25-ый. В строке ярлычков листов внизу 1-ый уехал далеко влево. Как можно к нему вернуться без использования Ctrl+PageUp/Down и стрелочек навигации рядом с ярлычками листов? Может есть что-то вроде кнопки Назад? Если для этого нет стандартных настроек, можно ли под это дело создать макрос?
Буду благодарен за любую наводку.

[nilem]

Может, так подойдет? - щелкаем правой кнопкой по стрелочкам слева от ярлычков листов и выбираем нужный лист из списка

[manhat10]

Дело в том, что в этом списке помещается 15 листов, а в книге их более 50. Так что этот вариант отпадает.

[ambasad]

manhat10, может тогда на листах просто сделать ссылки на первый лист?

[manhat10]

Тоже не годится - в этом случае придется делать ссылку не только на первый лист, а на каждый из 50. А такое изменение в листе недопустимо руководством.
Я думал, может есть что-то вроде сокращения Ctrl+X.
Странно, что Микрософт не предусмотрел такой возможности.

[ambasad]

ну тогда могу предложить такой алгоритм (всё в теории, код не писал)
1. Делаете две глобальных переменных для имён/номеров текущего листа и предыдущего листа
2. Для каждого листа при событии активация листа вызываете процедуру, которая:
 а. имя листа, который был активен перед этим переписывает из переменной "текущий лист" в переменную "предыдущий лист"
 б. имя вновь активированного листа записывает в переменную "текущий лист"
3. Пишете процедуру(макрос), которая активирует лист, который прописан в переменной "предыдущий лист"
4. Вешаете этот макрос на любую удобную комбинацию Ctrl+...

Пока писал посетила мысля, что в переменные можно загонять не имена листов, а сделать переменную типа Worksheet и просто этим переменным присваивать объекты

Попробуйте, если не получится, завтра по свободе набросаю это в коде

[ShAM]

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

Зачем? Вы же на каждый из 50 листов переходите с 1-го листа, значит, возврат нужен тоже только на 1-ый лист. Или я что-то не понял?

[staniiislav]

Один из вариантов:
сделайте один лист и назовите его "Оглавление". На этом листе сделайте гиперссылки  на все листы. И на всех листах сделайте допустим в ячейки А1 гиперссылку на лист оглавление.

[RAN]

Рисуем форму с листбоксом, в который собираем все листы книги, и оттуда гуляем, как левой задней ноге захочется. ;D

[alex77755]

Цитата

Дело в том, что в этом списке помещается 15 листов

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

Код:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim L
Dim S As Object
Dim FI
Dim ТекстПроцедуры
Dim xlmodule As Workbook 'Object
Set xlmodule = ActiveWorkbook
'удаляем все макросы из Лист1  (других макросов сюда не ложить)
On Error Resume Next
For L = xlmodule.VBProject.VBComponents(1).CodeModule.CountOfLines To 1 Step -1
FI = Left(xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1), 17)
 Debug.Print xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1)
If FI = "Public Sub Налист" Then
 xlmodule.VBProject.VBComponents(1).CodeModule.DeleteLines L, 3
 End If
Next L
Application.CommandBars("Worksheet Menu Bar").Controls("Листы").Delete
Set S = Application.CommandBars("Worksheet Menu Bar")

For Each MB In Application.CommandBars
Debug.Print MB.Name
Next

With Application.CommandBars("Worksheet Menu Bar")

'Создание строки меню Файл
        With .Controls.Add(Type:=msoControlPopup)
                .Caption = "&Листы"
                With .Controls
                        For L = 1 To Sheets.Count
ТекстПроцедуры = "Public Sub Налист" & L & "()" & vbCrLf & "Sheets(" & """" & Sheets(L).Name & """" & ").Select" & vbCrLf & "End sub"
  xlmodule.VBProject.VBComponents(1).CodeModule.AddFromString ТекстПроцедуры
                         With .Add(Type:=msoControlButton)
                        .Caption = Sheets(L).Name
                        .OnAction = "ЭтаКнига.Налист" & L
                     End With
                Next L
                End With
        End With
End With
End Sub

в 2003 будет пункт меню. в 2007 пункт в надстройках

[staniiislav]

Цитата

Дело в том, что в этом списке помещается 15 листов

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

Код:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim L
Dim S As Object
Dim FI
Dim ТекстПроцедуры
Dim xlmodule As Workbook 'Object
Set xlmodule = ActiveWorkbook
'удаляем все макросы из Лист1  (других макросов сюда не ложить)
On Error Resume Next
For L = xlmodule.VBProject.VBComponents(1).CodeModule.CountOfLines To 1 Step -1
FI = Left(xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1), 17)
 Debug.Print xlmodule.VBProject.VBComponents(1).CodeModule.Lines(L, 1)
If FI = "Public Sub Налист" Then
 xlmodule.VBProject.VBComponents(1).CodeModule.DeleteLines L, 3
 End If
Next L
Application.CommandBars("Worksheet Menu Bar").Controls("Листы").Delete
Set S = Application.CommandBars("Worksheet Menu Bar")

For Each MB In Application.CommandBars
Debug.Print MB.Name
Next

With Application.CommandBars("Worksheet Menu Bar")

'Создание строки меню Файл
        With .Controls.Add(Type:=msoControlPopup)
                .Caption = "&Листы"
                With .Controls
                        For L = 1 To Sheets.Count
ТекстПроцедуры = "Public Sub Налист" & L & "()" & vbCrLf & "Sheets(" & """" & Sheets(L).Name & """" & ").Select" & vbCrLf & "End sub"
  xlmodule.VBProject.VBComponents(1).CodeModule.AddFromString ТекстПроцедуры
                         With .Add(Type:=msoControlButton)
                        .Caption = Sheets(L).Name
                        .OnAction = "ЭтаКнига.Налист" & L
                     End With
                Next L
                End With
        End With
End With
End Sub

в 2003 будет пункт меню. в 2007 пункт в надстройках

вы не могли бы пример файлика выложить, а то чет в 2007 офисе в надстройках нечего не появляется

[doober]

Буду благодарен за любую наводку.

Даю наводку http://programmersforum.ru/showthread.php?t=148662&highlight=%ED%E0%E2%E8%E3%E0%F6%E8%FF

[alex77755]

Да без проблем. Даже сразу в 2007

[staniiislav]

Да без проблем. Даже сразу в 2007

Спасибо большое! Прикольный макрос )))