✅ Looge Excelis kiiresti hüperlinkidega kokkuvõtte tööleht

Lang L: none (table-of-contents)

Paljud mu kolleegid veedavad palju aega Excelis kokkuvõtte töölehe loomisel.

Tüüpiline kokkuvõttev tööleht sisaldab kõigi lahtrite töölehtede nimesid ja kõik nimed on ka nende töölehtedega hüperlingitud.

Nii saate klõpsata lehe nimega lahtril (Ütle Jan, Veebruar, Märts … ) ja see viib teid sellele töölehele. Lisaks on igal töölehel ka hüperlink, mis lingib tagasi kokkuvõtte töölehele.

Kuigi mu kolleegid on seda teinud ülitõhusaks, on see siiski ajaraisk, kui saate sama asja teha vähem kui sekundiga (jah, lugesite õigesti).

Trikk on luua lühike makro, mis teeb seda teie jaoks.

Ükskõik kui palju töölehti teil on, loob see koheselt kokkuvõtliku töölehe koos töötavate hüperlinkidega.

Midagi, nagu allpool näidatud:

Nagu ülaltoodud pildilt näha, loob see makro käivitamisel (nupule klõpsates) koheselt kokkuvõtte. Lehtede nimed on hüperlingitud, mis viib teid töölehele, kui sellel klõpsate.

Loo hüperlinkidega kokkuvõtte tööleht

Kogu kokkuvõtte töölehe loomisel on kõik raskused tõstetud lühikese VBA -koodi abil. Peate lihtsalt koodi käivitama ja pausi tegema, nagu teil oleks praegu vaba aega 🙂

Siin on kood:

Sub CreateSummary () 'Loodud Sumit Bansal of trumpexcel.com' Seda koodi saab kasutada hüperlinkidega kokkuvõtte töölehe loomiseks Dim x kui tööleht Dim Dimmer Counter kui täisarvude loendur = 0 Iga x töölehtede jaoks Counter = Counter + 1 If Counter = 1 Siis GoTo Donothing ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Vajuta siia, et minna töölehele" Töölehtedega " (Loendur) .Range ("A1"). Value = "Tagasi" ja ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "" "&"! " & ActiveCell.Address, _ ScreenTip: = "Return to" & ActiveSheet.Name End with End with ActiveCell.Offset (1, 0). Valige Donothing: Next x End Sub

Kuhu see kood panna?

Selle koodi töövihikusse paigutamiseks toimige järgmiselt.

Minge vahekaardile Arendaja ja klõpsake Visual Basic. Võite kasutada ka kiirklahvi - ALT F11.
- Kui leiate Exceli lindilt arendaja vahekaardi, klõpsake siin, et teada saada, kuidas seda hankida.
Vasakul peaks olema Project Exploreri paan (kui seda pole, kasutage selle nähtavaks muutmiseks klahvikombinatsiooni Control + R).
Minge sisesta ja klõpsake moodulis. See lisab töövihikusse mooduli. Samuti näete paremal koodi akent (vilkuva kursoriga).
Kopeerige ja kleepige mooduli koodi aknas ülaltoodud kood.

Koodi käitamine

Selle koodi käivitamiseks tehke järgmist.

Minge vahekaardile Arendaja -> Kood -> Makrod. See avab makro dialoogi kasti.
Valige makro CreateSummary ja klõpsake nuppu Run.
See käivitab makro ja loob hüperlingid aktiivsele lehele.

Teine viis makro käivitamiseks on nupu/kujundi sisestamine ja sellele makro määramine. Selleks tehke järgmist.

Sisestage kujund töölehele. Vormindage kuju soovitud viisil.
Paremklõpsake seda ja valige Määra makro.
Valige väljal Assign Macro makro, mille soovite kujundile määrata, ja klõpsake nuppu OK.

Nüüd saate makro käivitamiseks lihtsalt kuval klõpsata.

Laadige fail alla siit

Märge:

Olen kõvasti kodeerinud lahtri A1 igal lehel, mis on hüperlingitud, et teid kokkuvõtte lehele tagasi tuua. Veenduge, et muudate seda vastavalt, kui teil on igal lehel midagi juba lahtris A1.
Kokkuvõte ei loo enda jaoks hüperlingi (mis on mõistlik, kuna olete juba sellel lehel).
Käivitage see kood, kui tööleht Kokkuvõte on aktiivne tööleht.
Võib -olla soovite lisada mõne vormingu või ümberkorralduse. Aga ma loodan, et see kood hoolitseb raske osa eest.
Salvestage see töövihik laiendina .xls või .xlsm, kuna see sisaldab makro.

Muud Exceli VBA õpetused:

Hankige mitu otsinguväärtust ilma korduseta ühes lahtris.
Ülesannete prioriseerimise maatriks - VBA rakendus.
Kuidas ühendada mitu töövihikut üheks Exceli töövihikuks.
Exceli VBA silmused - järgmiseks tehke aega, tehke kuni igaühe jaoks (näidetega).
Makro salvestamine - samm -sammult juhend.
Kuidas hüperlinke Excelis töölehelt kiiresti eemaldada.
Exceli VBA veebikursus.