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

  1. Щелкните правой кнопкой мыши стрелки прокрутки в левой части вкладок.

Excel отображает контекстное меню, которое включает многие имена вкладок рабочего листа.

  1. Нажмите на опцию «Больше листов». Excel отображает диалоговое окно «Активировать».

Все имена ваших листов перечислены в диалоговом окне. (См. Рис. 1.)

  1. Нажмите первую букву названия нужного листа. Выбирается первый рабочий лист, который начинается с этой буквы.

  2. Продолжайте нажимать ту же букву, чтобы выбрать следующий рабочий лист, начинающийся с этой буквы.

  3. Когда желаемое имя рабочего листа выбрано, нажмите Enter.

Интересным в этом подходе является то, что вам не нужно располагать рабочие листы в алфавитном порядке, чтобы использовать его. Каждый раз, когда вы нажимаете букву (шаги 3 и 4), Excel выбирает следующий рабочий лист, который начинается с этой буквы.

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

Sub GoToSheet()

Dim iTemp As Integer     Dim sSheet As String     Dim sThisOne As String

sSheet = InputBox("Enter first letter of sheet", _       "Go to sheet", Left(ActiveSheet.Name, 1))

If sSheet = "" Then Exit Sub     sSheet = UCase(Left(sSheet, 1))

iTemp = 0     For i = 1 To ThisWorkbook.Sheets.Count         sThisOne = UCase(Left(ThisWorkbook.Sheets(i).Name, 1))

If sThisOne = sSheet Then             iTemp = i             Exit For         End If     Next i     If iTemp > 0 Then         ThisWorkbook.Sheets(iTemp).Activate     End If End Sub

Теперь назначьте макросу сочетание клавиш, например Ctrl + G. С этого момента вы можете просто нажать Ctrl + G, ввести букву и затем нажать Enter.

Будет выбран первый рабочий лист, который начинается с указанной вами буквы.

Окончательное решение — создать свой собственный «индекс» или «оглавление» для ваших листов. Вставьте пустой лист в начало книги, а затем добавьте гиперссылки на различные другие листы в вашей книге.

Кто-то может щелкнуть гиперссылку, после чего отобразится рабочий лист, на который ссылается гиперссылка.

Установка гиперссылок таким образом, безусловно, требует больше усилий, но у нее есть преимущества, не предлагаемые другими описанными до сих пор методами.

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

_Примечание: _

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

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2718) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

link: / excelribbon-Jumping_to_Alphabetic_Worksheets [Переход к алфавитным рабочим листам].