Creați un index de hyperlink pentru toate foile de lucru din registrul de lucru
Să luăm Macro pentru a enumera toate foile dintr-un registru de lucru cu un pas mai departe și să creăm un meniu hyperlink pentru fiecare foaie dintr-un registru de lucru. Acesta este un economisire de timp excelent pentru cineva care are multe foi și încearcă să creeze manual un meniu de hyperlinkuri către fiecare.
Pentru a utiliza macro-ul, înlocuiți cuvântul Sheet1 (apare de două ori) în cod cu numele filei în care doriți rezultatele. Asigurați-vă că nu există informații importante în fila de ieșire, deoarece șterge datele lor înainte de a le scrie. După executarea macro-ului, se creează o listă cu fiecare coală cu un hyperlink către fiecare coală.
| 1234567891011121314151617181920 | Sub ListSheets ()Dim ws Ca foaie de lucruDim x Ca întregx = 1Foi („Foaie1”). Interval („A: A”). ȘtergețiPentru fiecare ws din foi de lucruFoi („Foaie1”). Celule (x, 1). SelectațiActiveSheet.Hyperlinks.Add _Ancoră: = Selecție, Adresă: = "", Adresă secundară: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Următorul wsSfârșitul Sub |
