Як відкрити певний аркуш за вибраним значенням поля зі списком у програмі 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. Клацніть правою кнопкою миші поле зі списком назв аркушів, а потім клацніть Переглянути код з меню, що клацне правою кнопкою миші.
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 днів безкоштовно)
Статті по темі:
- Як скопіювати значення Combo Box в активну комірку в Excel?
- Як відобразити формат дати у виведеному списку в Excel?
- Як приховати або показати кнопку команди на основі вказаного значення комірки в Excel?
- Як запобігти або вимкнути введення тексту у списку в Excel?
- Як виділити вкладку зі списку, щоб вибрати конкретну комірку в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!