Note: The other languages of the website are Google-translated. Back to English

Як переміщатися між робочими аркушами за допомогою випадаючого списку в Excel?

Припустимо, у вас є робоча книга, яка містить кілька робочих аркушів, тепер вам потрібно створити випадаючий список або комбіноване поле, де перелічуються всі імена аркушів, і коли ви виберете одне ім'я аркуша зі спадного списку, воно негайно перейде на цей аркуш. У цій статті я розповім, як переміщатися між аркушами за допомогою випадаючого списку в Excel.

Перейдіть між робочими аркушами за допомогою випадаючого списку в Excel


Перейдіть між робочими аркушами за допомогою випадаючого списку в Excel

Щоб перейти до кожного вибраного аркуша за допомогою випадаючого списку, виконайте такі дії:

1. Клацання Розробник > Insert > Combo Box (управління ActiveX), див. скріншот:

2. Потім перетягніть мишу, щоб намалювати поле зі списком, а потім клацніть правою кнопкою миші та виберіть Переглянути код у контекстному меню див. знімок екрана:

3. У відкритому Microsoft Visual Basic для додатків вікно, скопіюйте та вставте наступний код, щоб замінити оригінальний код, див. знімок екрана:

Код VBA: Перейдіть між робочими аркушами за допомогою випадаючого списку

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Потім збережіть і закрийте це вікно коду, а потім натисніть Режим дизайну щоб вимкнути режим проектування, тепер, при виборі одного імені аркуша зі списку, він одразу перейде до цього аркуша, див. знімок екрана:


Перейдіть між робочими аркушами за допомогою гіперпосилань або кнопок:

з Kutools для Excel's Створіть список назв аркушів Утиліта, ви можете швидко перерахувати всі імена робочих аркушів на новому аркуші за допомогою гіперпосилань або кнопок макросів, після чого ви можете переходити між ними за вашими потребами.

Kutools для Excel: з більш ніж 300 зручними надбудовами Excel, спробуйте безкоштовно без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (12)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Як я можу зробити прихований аркуш активним і приховати домашню сторінку?
Цей коментар був мінімізований модератором на сайті
Як я можу додати лише певні аркуші? а не весь аркуш у робочій книжці
Цей коментар був мінімізований модератором на сайті
Чи раділи вам пошук коду для відображення лише певних аркушів у спадному списку?
Цей коментар був мінімізований модератором на сайті
Як змінити це, щоб показувати/вибирати лише видимі аркуші?
Цей коментар був мінімізований модератором на сайті
привіт,
Щоб ігнорувати приховані аркуші зі спадного списку та зберігати лише видимі аркуші, вам може допомогти наступний код VBA:

Приватний підряд ComboBox1_Change()
'Оновлення Extendoffice
Якщо ComboBox1.ListIndex > -1, то Sheets(ComboBox1.Text). Виберіть
End Sub
Приватний підряд ComboBox1_DropButtonClick()
Dim xSheet як робочий аркуш
On Error Resume Next
Application.ScreenUpdating = Невірний
Application.EnableEvents = False
Якщо ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
ComboBox1.Clear
Для кожного xSheet у цьому Workbook.Sheets
Якщо xSheet.Visible Тоді
ComboBox1.AddItem xSheet.Name
End If
Наступний xSheet
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Приватний підряд ComboBox1_GotFocus()
Якщо ComboBox1.ListCount <> 0, то ComboBox1.DropDown
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
Це спрацювало! Дякую! Ви знаєте, чи викличе цей код проблеми при перейменуванні аркушів, чи він оновить список автоматично?
Цей коментар був мінімізований модератором на сайті
Здравствуйте,
Наведений вище код добре працює під час перейменування назви аркуша, а елементи у випадаючому списку оновлюватимуться автоматично.
Ви можете спробувати.
Цей коментар був мінімізований модератором на сайті
дякую за ваш код. Він працює для перемикання різних аркушів на основі спадного списку.
Але у мене є декілька запитань.
1. Після того, як я оброблю відповідний аркуш і захочу повернутися до головного меню (з розкривним списком аркушів), як я можу обійтися без використання миші?
2. коли я відкриваю файл, я хотів би, щоб головне меню (зі спадним списком) було за замовчуванням. Тому я міг би почати з цього меню
Дякую
троянда
Цей коментар був мінімізований модератором на сайті
привіт,
Щиро дякую за код, який створює динамічне поле зі списком для навігації по аркушах. На жаль, я отримав помилку. Після навігації по кількох аркушах файл автоматично закриється. Він навіть не показує жодного повідомлення про помилку. Я не міг зрозуміти причину. Я ціную допомогу
Дякую
Цей коментар був мінімізований модератором на сайті
та сама помилка, ви зрозуміли це?
Цей коментар був мінімізований модератором на сайті
привіт, чи можна відповідно комбінувати різні варіанти з різних розкривних меню та відкритих аркушів.

наприклад: якщо вибрано параметр 1 зі спадного списку 1 і вибрано параметр 2 зі спадного списку 2, відкриється лише аркуш 2
Цей коментар був мінімізований модератором на сайті
Розкривний список не відкриватиме приховані аркуші, чи може він відкривати приховані аркуші?
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL