Spisie treści
Poniższe makro przegląda każdy arkusz w skoroszycie i zapisuje kolejno nazwę karty każdego arkusza w wybranym arkuszu. Może to być przydatne w przypadku szybkiej listy każdego arkusza w skoroszycie z wieloma arkuszami.
Wymień wszystkie arkusze w skoroszycie
Aby użyć makra, po prostu zastąp słowo Sheet1 (pojawia się dwukrotnie) w kodzie nazwą karty, w której chcesz uzyskać wyniki. Upewnij się, że na karcie danych wyjściowych nie ma żadnych ważnych informacji, ponieważ usuwa ona dane przed ich zapisaniem.
| 123456789101112131415 | Podrzędne arkusze listy()Dim ws As WorksheetDim x As Integerx = 1Arkusze("Arkusz1").Zakres("A:A").WyczyśćDla każdego ws w arkuszach roboczychArkusze("Arkusz1").Komórki(x, 1) = ws.Nazwax = x + 1NastępnyNapis końcowy |
