Як переміщатися між робочими аркушами за допомогою випадаючого списку в 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 вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Детальніше ... Завантажити безкоштовно... Придбати ... 

---

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

• Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
• Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
• Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!

Детальніше ... Завантажити безкоштовно... Придбати ...