Jak vytvořit rozevírací seznam s hypertextovými odkazy na každý list v aplikaci Excel?

Věděli jste, že můžete také vytvořit rozevírací seznam s hypertextovými odkazy na každý list v sešitu? Alternativně, pokud dáváte přednost klikacímu seznamu namísto rozevíracího seznamu, můžete vygenerovat seznam hypertextových odkazů na všechny listy. V této příručce vás provedeme oběma způsoby: vytvořením rozevíracího seznamu s odkazy na listy a vytvořením seznamu názvů listů, na které lze kliknout.

Vytvořte rozevírací seznam s hypertextovými odkazy na listy

Vytvořte klikací seznam názvů listů

Vytvořte rozevírací seznam s hypertextovými odkazy na listy

Chcete-li vytvořit rozevírací seznam v aplikaci Excel, který obsahuje hypertextové odkazy na každý list v sešitu, můžete toho dosáhnout pomocí jednoduchého kódu VBA.

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 klikací seznam názvů listů

Pokud dáváte přednost vytvoření seznamu názvů listů, na které lze kliknout, jak je znázorněno na obrázku níže, můžete použít Kutools for ExcelJe Create List of Sheet Names funkce. Tento nástroj umožňuje generovat seznam hypertextových odkazů na názvy listů nebo seznam tlačítek maker propojených s každým listem.

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.

Demo: Vytvořte klikací seznam názvů listů