Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як відкрити певний аркуш за вибраним значенням поля зі списком у програмі Excel?

Припустимо, у вас є Combo Box, який містить усі назви аркушів поточної книги, як показано на знімку екрана нижче. А тепер, ви хочете відкрити певний робочий аркуш, вибравши відповідну назву аркуша у Combo Box. Як цього досягти? Метод у цій статті може вам допомогти.

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


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


Наведений нижче код VBA може допомогти вам перейти до певного робочого аркуша, заснованого на виділеному вікні Combo Box в Excel. Будь ласка, виконайте наступне.

примітки: Якщо Combo Box не містить назви аркуша на вашому аркуші, дотримуйтесь наведених нижче підказок, щоб швидко додати всі назви аркушів до цього Combo Box. І якщо вже є комбіноване поле, що містить усі назви аркушів, перейдіть до step 1 безпосередньо.

Чайові: Вставте командну кнопку 1 у ваш аркуш, клацніть правою кнопкою миші та виберіть Переглянути код з меню правої кнопки миші. Потім скопіюйте та вставте наведений нижче код VBA в код вікно та натисніть інший + Q клавіші, щоб закрити Microsoft Visual Basic для програми вікно. Клацніть на вставлену командну кнопку, тоді всі назви аркушів поточної книги автоматично додаватимуться до ComboBox1.

Код VBA: Легко додайте всі назви аркушів у поле зі списком

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next

End Sub

Якщо вже є комбіноване поле, що містить усі назви аркушів, виконайте наступні дії.

1 Увімкніть Режим дизайну під Розробник Вкладка.

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

doc combo box відкрити аркуш 12png

3. Тоді Microsoft Visual Basic для додатків спливає вікно, будь ласка, замініть оригінальний код VBA у вікні коду на код VBA нижче.

Код VBA: Відкрийте певний аркуш за вибраним значенням Combo Box

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
    
End Sub

примітки: у коді ComboBox1 - це ім'я поля зі списком, яке містить імена аркушів.

4 Натисніть кнопку інший + Q клавіші, щоб закрити Microsoft Visual Basic для додатків вікно та вимкніть Режим дизайну під Розробник Вкладка.

Тепер, при виборі будь-якого імені робочого аркуша у списку, відповідний аркуш буде відкрито автоматично.


Легко перелічіть усі назви аркушів поточної книги в Excel:

Використання індексу аркушів у вашій книзі допомагає вам легко керувати своїми аркушами. За допомогою Створіть список назв аркушів корисність Kutools для Excel, Ви можете легко створити індекс аркуша, що містить усі назви аркушів у поточній книзі. Після цього ви можете швидко перейти до певного аркуша, просто клацнувши назву аркуша на аркуші Індекс. Дивіться знімок екрана нижче:
Завантажте та спробуйте зараз! (30-денний безкоштовний маршрут)


Статті по темі:


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

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

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

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

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    nasersina · 4 years ago
    hi
    i just removed my excel file by converting it from 2016 to 2010. Then converting back to 2016 and put new password.
  • To post as a guest, your comment is unpublished.
    yaseen muhammad · 4 years ago
    perfectly working.if your sheet name different then change the sheet name also.without changing the sheet name code does not working. thanks for sharing .