Utwórz indeks hiperłączy wszystkich arkuszy w skoroszycie
Przejdźmy do makro, aby wyświetlić wszystkie arkusze w skoroszycie o krok dalej i utwórzmy menu z hiperłączem dla każdego arkusza w skoroszycie. To świetna oszczędność czasu dla kogoś, kto ma wiele arkuszy i próbuje ręcznie utworzyć menu hiperłączy do każdego z nich.
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. Po uruchomieniu makra tworzona jest lista każdego arkusza z hiperłączem do każdego arkusza.
| 1234567891011121314151617181920 | 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).WybierzAktywny arkusz.Hiperłącza.Dodaj _Kotwica:=Wybór, Adres:="", Podadres:= _ws.Name & "!A1", TextToDisplay:=ws.Namex = x + 1NastępnyNapis końcowy |
