Hogyan lehet létrehozni egy legördülő listát hiperhivatkozásokkal az Excel minden lapjára?
Lehet, hogy korábban már létrehozott egy legördülő listát, de létrehozott-e valaha egy legördülő listát az Excel minden lapjára mutató hiperhivatkozásokkal az alábbi képernyőképen?
Hozzon létre egy legördülő listát lap hiperhivatkozásaival
Hozzon létre egy listát a hivatkozásokkal ellátott lapokról
Hozzon létre egy legördülő listát lap hiperhivatkozásával
Csak egy VBA kód képes kezelni a munkát az Excel programban.
1. kettyenés Fejlesztő > betétlap > Combo Box (ActiveX-vezérlők).
Megjegyzés: Ha a fejlesztő fül nem jelenik meg a szalagon, kattintson a gombra filé > Opciók > Szalag szabása, majd ellenőrizze Fejlesztő opciót a jobb oldali mezőben. Lásd a képernyőképet:
2. Ezután rajzoljon egy Combo Box-ot bárhová, ahol csak akar.
3. Kattintson a jobb gombbal arra a lapra, amelyre éppen felhívta a Combo Box-ot, majd kattintson Kód megtekintése a helyi menüből.
4. Másolja és illessze be az alábbi kódot az üres parancsfájlba, majd mentse el, hogy visszatérjen a lapra.
VBA: Hozzon létre legördülő listát lap hivatkozásokkal
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. kettyenés Fejlesztő > Tervezési mód a tervezési módból való kilépéshez.
Most az összes lap fel lett sorolva a legördülő listában, és az a munkalapra kerül, miközben a lap nevére kattint.
Hozzon létre egy listát a hivatkozásokkal ellátott lapokról
Ha csak egy kattintható lapnevet szeretne létrehozni, az alábbi képernyőképen látható, akkor jelentkezhet Kutools for Excel'S Create List of Sheet Names funkció, amely létrehozhat egy listát a lapnevekről szóló hiperhivatkozásokról vagy a lapnevekről szóló makro gombok listáját.
Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. |
Telepítése után Kutools for Excel, kérjük, tegye a következőket:(Töltse le ingyen a Kutools for Excel programot most!)
1. kettyenés Kutools Plus > Munkalap > Create List of Sheet Names.
2. Ban,-ben Create List of Sheet Names párbeszédpanelt tegye az alábbiak szerint:
(1) Jelölje be Contains a list of hyperlinks< kattintható lapnevek listájának létrehozásához, vagy jelölje be Contains buttons and macros gombokat hozhat létre, amelyek minden lapra hivatkoznak.
(2) Adja meg az új lapot, amelyben elhelyezi a hiperhivatkozásokat.
(3) Adja meg az új lap helyét.
(4) Adja meg a megjelenő lap hivatkozásokat hány oszlopként.
3. Kattintson az OK gombra. Most a kattintható lapnevek megjelennek az új lapban.
Demó
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!