✅ Brzo stvorite sažetak radnog lista s hipervezama u Excelu

Sadržaj

Mnogi moji kolege troše puno vremena na stvaranje sažetog radnog lista u Excelu.

Tipičan sažeti radni list ima nazive svih radnih listova u različitim ćelijama, a svi nazivi su također hipervezani na ove radne listove.

Tako možete kliknuti na ćeliju s nazivom lista (recimo siječanj, veljača, ožujak … ) i odvest će vas na taj radni list. Osim toga, na svakom radnom listu postoji i hiperveza koja se povezuje sa sažetim radnim listom.

Iako su moje kolege postale super učinkovite u tome, ipak je gubljenje vremena kada možete učiniti istu stvar za manje od sekunde (da, dobro ste pročitali).

Trik je u stvaranju kratke makronaredbe koja će to učiniti umjesto vas.

Bez obzira na to koliko radnih listova imate, odmah će stvoriti sažetak radnog lista s radnim hipervezama.

Nešto kao što je prikazano ispod:

Kao što možete vidjeti na gornjoj slici, trenutno stvara sažetak kada pokrenete makro (klikom na gumb). Nazivi listova hipervezani su što vas vodi na radni list kada kliknete na njega.

Izradite sažetak radnog lista s hipervezama

Sve što je teško u stvaranju sažetog radnog lista obavlja se kratkim VBA kodom. Samo trebate pokrenuti kod i uzeti pauzu jer biste sada imali malo slobodnog vremena 🙂

Evo koda:

Sub CreateSummary () 'Kreirao Sumit Bansal od trumpexcel.com' Ovaj kôd se može koristiti za stvaranje sažetog radnog lista s hipervezama Dim x Kao radni list Dim Counter Kao cijeli broj brojača = 0 Za svaki x U Radni list Brojač = Brojač + 1 Ako je brojač = 1 Zatim GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Kliknite ovdje za odlazak na radni list" S radnim listovima (Brojač) .Range ("A1"). Value = "Natrag na" & ActiveSheet.Name .Hyperlinks.Dodaj tablice (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Povratak na" & ActiveSheet.Name Kraj s krajem s ActiveCell.Offset (1, 0). Odaberite Donothing: Next x End Sub

Gdje staviti ovaj kod?

Slijedite korake u nastavku da biste ovaj kod stavili u radnu knjigu:

Idite na karticu Developer i kliknite na Visual Basic. Također možete koristiti tipkovnički prečac - ALT F11.
- Ako možete pronaći karticu programera na vrpci u Excelu, kliknite ovdje da biste saznali kako je dobiti.
S lijeve strane treba postojati okno Project Explorera (ako ga nema, upotrijebite Control + R da ga učinite vidljivim).
Idite na Umetni i kliknite u Modul. Ovo dodaje modul u radnu knjigu. Također, s desne strane vidjeli biste prozor s kodom (s trepćućim kursorom).
U prozoru koda modula kopirajte i zalijepite gornji kod.

Pokretanje koda

Da biste pokrenuli ovaj kôd:

Idite na karticu Developer -> Code -> Macros. Ovo će otvoriti okvir za dijalog makronaredbi.
Odaberite Sažetak stvaranja makroa i kliknite Pokreni.
Ovo će pokrenuti makro i stvoriti hiperveze u aktivnom listu.

Drugi način pokretanja makronaredbe je umetnuti gumb/oblik i dodijeliti mu makro. Uraditi ovo:

Umetnite oblik u radni list. Oblikujte oblik onako kako želite.
Desnom tipkom miša kliknite na nju i odaberite Dodijeli makro.
U okviru Dodijeli makronaredbu odaberite makronaredbu koju želite dodijeliti obliku i kliknite U redu.

Sada možete jednostavno kliknuti na oblik za pokretanje makronaredbe.

Preuzmite datoteku odavde

Bilješka:

Strogo sam kodirao ćeliju A1 na svakom listu, koja ima hiperveze kako biste se vratili na sažetak. Provjerite jeste li to promijenili u skladu s tim ako na svakom listu imate nešto već u A1 ćeliji.
Sažetak ne stvara hipervezu za sebe (što ima smisla jer ste već na tom listu).
Pokrenite ovaj kôd kada je radni list Sažetak aktivan.
Možda biste trebali dodati oblikovanje ili preuređivanje. Ali nadam se da će se ovaj kod pobrinuti za teži dio.
Spremite ovu radnu knjigu kao .xls ili .xlsm ekstenziju jer sadrži makronaredbu.

Ostali Excel VBA vodiči:

Dobijte više vrijednosti pretraživanja bez ponavljanja u jednoj ćeliji.
Matrica prioriteta zadataka - VBA aplikacija.
Kako kombinirati više radnih knjiga u jednu Excel radnu knjigu.
Excel VBA petlje - Za sljedeće, Učinite dok, Učinite do, Za svaku (s primjerima).
Kako snimiti makronaredbu - Vodič korak po korak.
Kako brzo ukloniti hiperveze s radnog lista u Excelu.
Mrežni Excel VBA tečaj.