Naslednji makro potuje po vsakem listu v delovnem zvezku in zaporedno zapiše ime zavihka vsakega lista na izbrani list. To je lahko priročno za hiter seznam vsakega lista v delovnem zvezku z veliko listi.
Navedite vse delovne liste v delovnem zvezku
Č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.
| 123456789101112131415 | 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) = ws.Imex = x + 1Naslednji wsEnd Sub |
