✅ Ātri izveidojiet kopsavilkuma darblapu ar hipersaitēm programmā Excel

Satura rādītājs

Daudzi mani kolēģi daudz laika pavada, veidojot kopsavilkuma darblapu programmā Excel.

Tipiskā kopsavilkuma darblapā ir visu darblapu nosaukumi dažādās šūnās, un visi nosaukumi ir arī hipersaiti uz šīm darblapām.

Tātad jūs varat noklikšķināt uz šūnas ar lapas nosaukumu (teiksim Jan, Feb, Mar … ), un jūs nonāksit šajā darblapā. Turklāt katrā darblapā ir arī hipersaite, kas novirza atpakaļ uz kopsavilkuma darblapu.

Lai gan mani kolēģi to ir darījuši ļoti efektīvi, tas joprojām ir laika izšķiešana, kad jūs varat darīt to pašu mazāk nekā sekundē (jā, jūs to izlasījāt pareizi).

Triks ir izveidot īsu makro, kas to darīs jūsu vietā.

Neatkarīgi no tā, cik darblapu jums ir, tā uzreiz izveidos kopsavilkuma darblapu ar strādājošām hipersaitēm.

Kaut kas, kā parādīts zemāk:

Kā redzat attēlā iepriekš, tas uzreiz izveido kopsavilkumu, palaižot makro (noklikšķinot uz pogas). Lapu nosaukumi ir hipersaiti, kas, noklikšķinot uz tās, novirza jūs uz darblapu.

Izveidojiet kopsavilkuma darblapu ar hipersaitēm

Viss smagais darbs, veidojot kopsavilkuma darblapu, tiek veikts ar īsu VBA kodu. Jums vienkārši jāpalaiž kods un jāatpūšas, kā tagad būtu brīvs laiks 🙂

Šeit ir kods:

Sub CreateSummary () 'Izveidoja Sumpe Bansal no trumpexcel.com' Šo kodu var izmantot, lai izveidotu kopsavilkuma darblapu ar hipersaitēm Dim x kā darblapu Dim Counter kā veselu skaitītāju = 0 katrai x darblapās Counter = skaitītājs + 1, ja skaitītājs = 1 Tad GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Noklikšķiniet šeit, lai pārietu uz darblapu" Ar darblapām " (Skaitītājs). Diapazons ("A1"). Vērtība = "Atpakaļ uz" un ActiveSheet.Name. Hipersaites. Pievienot lapas (x.Name). Diapazons ("A1"), "", _ "'" un ActiveSheet.Name & "" "&"! " >

Kur likt šo kodu?

Lai ievietotu šo kodu darbgrāmatā, veiciet tālāk norādītās darbības.

Dodieties uz cilni Izstrādātājs un noklikšķiniet uz Visual Basic. Varat arī izmantot īsinājumtaustiņu - ALT F11.
- Ja Excel lentē varat atrast izstrādātāja cilni, noklikšķiniet šeit, lai uzzinātu, kā to iegūt.
Kreisajā pusē jābūt Project Explorer rūtim (ja tā nav, izmantojiet taustiņu kombināciju Control + R, lai tā būtu redzama).
Dodieties uz Ievietot un noklikšķiniet uz moduļa. Tādējādi darbgrāmatai tiek pievienots modulis. Arī labajā pusē redzēsit koda logu (ar mirgojošu kursoru).
Moduļa koda logā nokopējiet un ielīmējiet iepriekš minēto kodu.

Koda izpildīšana

Lai palaistu šo kodu:

Dodieties uz cilni Izstrādātājs -> Kods -> Makro. Tiks atvērts lodziņš Makro dialogs.
Atlasiet makro Izveidot kopsavilkumu un noklikšķiniet uz Palaist.
Tas darbinās makro un izveidos hipersaites aktīvajā lapā.

Vēl viens makro palaišanas veids ir pogas/formas ievietošana un makro piešķiršana tam. Lai to izdarītu:

Ievietojiet formu darblapā. Formatējiet formu, kā vēlaties.
Ar peles labo pogu noklikšķiniet uz tā un atlasiet Piešķirt makro.
Lodziņā Piešķirt makro atlasiet makro, kuru vēlaties piešķirt formai, un noklikšķiniet uz Labi.

Tagad varat vienkārši noklikšķināt uz formas, lai palaistu makro.

Lejupielādējiet failu no šejienes

Piezīme:

Katrā lapā esmu kodējis šūnu A1, kas ir ar hipersaiti, lai jūs atgrieztos kopsavilkuma lapā. Pārliecinieties, ka to attiecīgi maināt, ja katras lapas A1 šūnā jau ir kaut kas.
Kopsavilkums nerada hipersaiti sev (kas ir jēga, jo jūs jau atrodaties šajā lapā).
Palaidiet šo kodu, ja kopsavilkuma darblapa ir aktīvā darblapa.
Iespējams, vēlēsities pievienot formatējumu vai pārkārtojumu. Bet es ceru, ka šis kods rūpējas par grūto daļu.
Saglabājiet šo darbgrāmatu kā .xls vai .xlsm paplašinājumu, jo tajā ir makro.

Citas Excel VBA apmācības: