✅ Creați rapid o foaie de lucru sumară cu hyperlinkuri în Excel

Cuprins

Mulți dintre colegii mei își petrec mult timp creând o foaie de lucru sumară în Excel.

O foaie de lucru rezumat tipică are numele tuturor foilor de lucru din diferite celule și toate numele sunt, de asemenea, hyperlinkate la aceste foi de lucru.

Deci, puteți face clic pe o celulă cu un nume de foaie (spune ianuarie, februarie, martie … ) și vă va duce la acea foaie de lucru. În plus, există și un hyperlink pe fiecare foaie de lucru care leagă înapoi la foaia de lucru rezumată.

Deși colegii mei au devenit extrem de eficienți în a face acest lucru, este încă o pierdere de timp când poți face același lucru în mai puțin de o secundă (da, ai citit-o bine).

Trucul este să creezi o macro scurtă care să o facă pentru tine.

Indiferent de câte foi de lucru aveți, va crea instantaneu o foaie de lucru rezumată cu hyperlinkuri funcționale.

Ceva așa cum se arată mai jos:

După cum puteți vedea în imaginea de mai sus, acesta creează instantaneu rezumatul atunci când rulați macro-ul (făcând clic pe buton). Numele foilor sunt hyperlinkate, ceea ce vă duce la foaia de lucru când faceți clic pe ea.

Creați o foaie de lucru rezumată cu hyperlinkuri

Toate greutățile ridicate în crearea foii de lucru rezumate se fac printr-un cod VBA scurt. Trebuie doar să rulați codul și să faceți o pauză, deoarece ați avea timp liber acum 🙂

Iată codul:

Sub CreateSummary () „Creat de Sumit Bansal de la trumpexcel.com” Acest cod poate fi utilizat pentru a crea o foaie de lucru rezumată cu hyperlinkuri Dim x Ca foaie de lucru Dim Contor Ca număr întreg = 0 Pentru fiecare x în foi de lucru Contor = Contor + 1 Dacă Contor = 1 Apoi GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "! A1", TextToDisplay: = x.Name, ScreenTip: = "Faceți clic aici pentru a merge la foaia de lucru" With Worksheets (Counter) .Range ("A1"). Value = "Înapoi la" & ActiveSheet.Name .Hyperlinks.Add Sheets (x.Name) .Range ("A1"), "", _ "'" & ActiveSheet.Name & "'" & "!" & ActiveCell.Address, _ ScreenTip: = "Reveniți la" & ActiveSheet.Name Sfârșit cu Sfârșit cu ActiveCell.Offset (1, 0). Selectați Donothing: Next x End Sub

Unde să puneți acest cod?

Urmați pașii de mai jos pentru a plasa acest cod în registrul de lucru:

Accesați fila Dezvoltator și faceți clic pe Visual Basic. De asemenea, puteți utiliza comanda rapidă de la tastatură - ALT F11.
- Dacă puteți găsi fila dezvoltator în panglica din Excel, faceți clic aici pentru a afla cum să o obțineți.
Ar trebui să existe un panou Project Explorer în stânga (dacă nu este acolo, utilizați Control + R pentru a-l face vizibil).
Accesați Inserați și faceți clic în modul. Aceasta adaugă un modul în registrul de lucru. De asemenea, în partea dreaptă, veți vedea că apare fereastra de cod (cu un cursor intermitent).
În fereastra codului modulului, copiați și lipiți codul de mai sus.

Rularea codului

Pentru a rula acest cod:

Accesați fila Dezvoltator -> Cod -> Macro. Aceasta va deschide caseta de dialog Macro.
Selectați Macro CreateSummary și faceți clic pe Run.
Aceasta va rula macro-ul și va crea hyperlinkurile în foaia activă.

O altă modalitate de a rula macrocomanda este să introduceți un buton / formă și să îi atribuiți macrocomanda. Pentru a face acest lucru:

Introduceți o formă în foaia de lucru. Formatați forma așa cum doriți.
Faceți clic dreapta pe el și selectați Alocare macro.
În caseta Alocare macro, selectați macrocomanda pe care doriți să o atribuiți formei și faceți clic pe OK.

Acum, puteți pur și simplu să faceți clic pe formă pentru a rula macro-ul.

Descărcați fișierul de aici

Notă:

Am codificat celula A1 din fiecare foaie, care este hyperlinkată pentru a vă întoarce la foaia de sinteză. Asigurați-vă că îl modificați în consecință dacă aveți ceva deja în celula A1 în fiecare foaie.
Rezumatul nu creează un hyperlink pentru sine (ceea ce are sens, deoarece sunteți deja pe foaia respectivă).
Rulați acest cod când Foaia de lucru sumară este foaia de lucru activă.
Poate doriți să adăugați o anumită formatare sau rearanjare. Dar sper că acest cod va avea grijă de partea dificilă.
Salvați acest registru de lucru ca extensie .xls sau .xlsm, deoarece conține o macro.

Alte tutoriale Excel VBA:

Obțineți valori multiple de căutare fără repetare într-o singură celulă.
Matricea de prioritizare a sarcinilor - Aplicație VBA.
Cum se combină mai multe cărți de lucru într-un singur registru de lucru Excel.
Bucle Excel VBA - Pentru Următorul, Faceți În timp, Faceți până, Pentru fiecare (cu exemple).
Cum să înregistrați o macro într-un ghid pas cu pas.
Cum se elimină rapid hyperlinkurile dintr-o foaie de lucru în Excel.
Curs online Excel VBA.