Jak vytvořit rozevírací seznam s hypertextovými odkazy na každý list v aplikaci Excel?
Možná jste již dříve vytvořili rozevírací seznam, ale už jste někdy vytvořili rozevírací seznam s hypertextovými odkazy na každý list v aplikaci Excel, jak je ukázáno níže?
Vytvořte rozevírací seznam s hypertextovými odkazy na listy
Vytvořte seznam listů s hypertextovými odkazy
Vytvořte rozevírací seznam s hypertextovým odkazem na list
Existuje pouze kód VBA, který dokáže zpracovat úlohu v aplikaci Excel.
1. cvaknutí Vývojka > Vložit > Rozbalovací seznam (ovládací prvky ActiveX).
Poznámka: Pokud se karta Vývojář na pásu karet nezobrazuje, klikněte prosím Soubor > možnosti > Přizpůsobit pás karet, a potom zkontrolujte Vývojka možnost v pravém poli. Viz screenshot:
2. Potom nakreslete Combo Box kamkoli chcete.
3. Klikněte pravým tlačítkem na list, který jste právě nakreslili se seznamem, a klikněte Zobrazit kód z kontextové nabídky.
4. Zkopírujte a vložte níže uvedený kód do prázdného skriptu a poté jej uložte, abyste se vrátili zpět na list.
VBA: Vytvořte rozevírací seznam s odkazy na listy
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. cvaknutí Vývojka > Režim návrhu pro ukončení režimu návrhu.
Nyní jsou všechny listy uvedeny v rozevíracím seznamu a kliknutím na název listu přejdete na list.
Vytvořte seznam listů s hypertextovými odkazy
Pokud chcete pouze vytvořit seznam názvů listů, na které lze kliknout, jak je uvedeno níže, můžete použít Kutools for ExcelJe Create List of Sheet Names funkce, která může vytvořit seznam hypertextových odkazů o názvech listů nebo seznam tlačítek maker o názvech listů.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)
1. cvaknutí Kutools Plus > Pracovní list > Create List of Sheet Names.
2. V Create List of Sheet Names dialogové okno, postupujte takto:
(1). Šek Contains a list of hyperlinks< vytvořte seznam názvů listů, na které lze kliknout, nebo zaškrtněte Contains buttons and macros vytvořit tlačítka, která odkazují na každý list.
(2). Pojmenujte nový list, na který umístíte hypertextové odkazy.
(3). Určete umístění nového listu.
(4). Zadejte, kolik sloupců se zobrazí v odkazech listu.
3. klikněte na OK, nyní se názvy listů, na které lze kliknout, zobrazí v novém listu.
Demonstrace
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!