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