Izradite indeks hiperveza svih radnih listova u radnoj knjizi
Uzmimo makronaredbu za popis svih listova u radnoj knjizi korak dalje i izradimo hipervezani izbornik za svaki list u radnoj knjizi. Ovo je velika ušteda vremena za nekoga tko ima mnogo listova i pokušava ručno napraviti izbornik hiperveza do svakog od njih.
Da biste koristili makronaredbu, samo zamijenite riječ Sheet1 (pojavljuje se dva puta) u kodu imenom kartice na kojoj želite rezultate. Provjerite nema li važnih podataka na izlaznoj kartici jer briše njihove podatke prije nego što na nju upišete. Nakon pokretanja makronaredbe stvara se popis svakog lista s hipervezom do svakog lista.
| 1234567891011121314151617181920 | Tablice podpopisa ()Zatamni kao radni listDim x kao cijeli brojx = 1Listovi ("List1"). Raspon ("A: A"). ČistoZa svaki ws u radnim listovimaListovi ("List1"). Ćelije (x, 1) .OdaberiActiveSheet.Hyperlinks.Add _Sidro: = Odabir, Adresa: = "", Podadresa: = _ws.Name & "! A1", TextToDisplay: = ws.Namex = x + 1Sljedeći wsKraj podm |
