Ustvarite indeks hiperpovezav vseh delovnih listov v delovnem zvezku
Vzemimo makro za seznam vseh listov v delovnem zvezku še korak dlje in za vsak list v delovnem zvezku ustvarimo hiperpovezani meni. To je odličen prihranek časa za nekoga, ki ima veliko listov in poskuša ročno narediti meni hiperpovezav do vsakega.
Če želite uporabiti makro, besedo Sheet1 (pojavi se dvakrat) v kodi zamenjajte z imenom zavihka, kjer želite rezultate. Prepričajte se, da na zavihku za izhod ni pomembnih podatkov, ker pred brisanjem počisti podatke. Ko se makro zažene, se ustvari seznam vsakega lista s hiperpovezavo do vsakega lista.
| 1234567891011121314151617181920 | Podskupni listi ()Zatemni kot delovni listDim x kot celo številox = 1Listi ("List1"). Razpon ("A: A"). JasnoZa vsak ws na delovnih listihListi ("List1"). Celice (x, 1) .IzberiActiveSheet.Hyperlinks.Add _Sidro: = Izbor, Naslov: = "", Podnaslov: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Naslednji wsEnd Sub |
