Как да навигирате между работни листове с помощта на падащ списък в Excel?
Да предположим, че имате работна книга, която съдържа множество работни листове, сега трябва да създадете падащ списък или разгъващ се списък, който изброява всички имена на листове и когато изберете име на един лист от падащия списък, той веднага ще скочи към този лист. Тази статия ще представя как да навигирате между работни листове с помощта на падащ списък в Excel.
Навигирайте между работните листове с помощта на падащия списък в Excel
Навигирайте между работните листове с помощта на падащия списък в Excel
За да преминете към всеки избран лист с помощта на падащ списък, моля, изпълнете следните стъпки:
1. Щракнете Софтуерен Инженер > Поставете > Комбо поле (ActiveX Control), вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!