Как да създадете падащ списък с хипервръзки към всеки лист в Excel?
Може би сте създавали падащ списък преди, но създавали ли сте някога падащ списък с хипервръзки към всеки лист в Excel, както е показано на екранната снимка по-долу?
Създайте падащ списък с хипервръзки към листа
Създайте списък с листове с хипервръзки
Създайте падащ списък с хипервръзка към лист
Има само VBA код, който може да се справи със задачата в Excel.
1. кликване Софтуерен Инженер > Поставете > Комбо поле (ActiveX контроли).
Забележка: Ако разделът за програмисти не се показва в лентата, моля, щракнете досие > Настроики > Персонализирайте лентатаи след това проверете Софтуерен Инженер опция в дясното поле. Вижте екранна снимка:
2. След това нарисувайте комбинирано поле където желаете.
3. Щракнете с десния бутон върху листа, на който току-що сте начертали комбинираното поле, и щракнете Преглед на кода от контекстното меню.
4. Копирайте и поставете кода по-долу в празния скрипт и след това го запазете, за да се върнете към листа.
VBA: Създайте падащ списък с връзки към листове
Private Sub ComboBox1_Change()
'UpdatebyExtendoffice20180404
Sheets(Me.ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_GotFocus()
Dim I As Long
Me.ComboBox1.Style = fmStyleDropDownList
If Me.ComboBox1.ListCount <> Sheets.Count Then
Me.ComboBox1.Clear
For I = 1 To ActiveWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
End If
Me.ComboBox1.DropDown
End Sub
5. кликване Софтуерен Инженер > Режим на проектиране за да излезете от режима на проектиране.
Сега всички листове са изброени в падащия списък и той ще отиде до листа, докато щраквате върху името на листа.
Създайте списък с листове с хипервръзки
Ако просто искате да създадете списък с имена на листове, върху които можете да щракнете, както е показано на екранната снимка по-долу, можете да кандидатствате Kutools for ExcelЕ Create List of Sheet Names функция, която може да създаде списък с хипервръзки за имена на листове или списък с макро бутони за имена на листове.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След инсталиране Kutools за Excel, моля, направете следното:(Безплатно изтегляне Kutools за Excel сега!)
1. кликване Kutools плюс > Работен лист > Create List of Sheet Names.
2. В Create List of Sheet Names диалогов прозорец, направете следното:
(1). Проверете Contains a list of hyperlinks< за създаване на списък с имена на листове, върху които може да се кликне, или проверете Contains buttons and macros за създаване на бутони, които се свързват с всеки лист.
(2). Дайте име на новия лист, в който ще поставите хипервръзките.
(3). Посочете местоположението на новия лист.
(4). Посочете показваните връзки към листа като колко колони.
3. щракнете върху Ok, сега имената на листовете, върху които може да се кликне, са показани в нов лист.
Демонстрация
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!