✅ Szybko utwórz arkusz podsumowania z hiperłączami w programie Excel

Spisie treści

Wielu moich kolegów spędza dużo czasu na tworzeniu arkusza podsumowania w programie Excel.

Typowy arkusz podsumowania zawiera nazwy wszystkich arkuszy w różnych komórkach, a wszystkie nazwy są również hiperłączami do tych arkuszy.

Możesz więc kliknąć komórkę z nazwą arkusza (powiedz sty, luty, marzec… ) i przeniesie Cię do tego arkusza. Ponadto w każdym arkuszu znajduje się hiperłącze, które łączy się z arkuszem podsumowania.

Podczas gdy moi koledzy stali się w tym bardzo wydajni, nadal jest to strata czasu, gdy możesz zrobić to samo w mniej niż sekundę (tak, dobrze to przeczytałeś).

Sztuką jest stworzenie krótkiego makra, które zrobi to za Ciebie.

Bez względu na to, ile masz arkuszy roboczych, natychmiast utworzy arkusz podsumowania z działającymi hiperłączami.

Coś, jak pokazano poniżej:

Jak widać na powyższym obrazku, natychmiast tworzy podsumowanie po uruchomieniu makra (klikając przycisk). Nazwy arkuszy zawierają hiperłącza, które po kliknięciu prowadzą do arkusza roboczego.

Utwórz arkusz podsumowania z hiperłączami

Całe ciężkie podnoszenie przy tworzeniu arkusza podsumowującego odbywa się za pomocą krótkiego kodu VBA. Musisz tylko uruchomić kod i zrobić sobie przerwę, ponieważ masz teraz trochę wolnego czasu 🙂

Oto kod:

Sub CreateSummary() 'Created by Sumit Bansal z trumpexcel.com 'Ten kod może być użyty do utworzenia arkusza podsumowania z hiperłączami Dim x As Worksheet Dim Counter As Integer Counter = 0 Dla każdego x In Worksheets Counter = Counter + 1 Jeśli Counter = 1 Następnie GoTo Donothing With ActiveCell .Value = x.Name .Hyperlinks.Add ActiveCell, "", x.Name & "!A1", TextToDisplay:=x.Name, ScreenTip:="Kliknij tutaj, aby przejść do arkusza roboczego" Z arkuszami roboczymi (Licznik) .Range("A1").Value = "Powrót do " & ActiveSheet.Name .Hyperlinks.Add Sheets(x.Name).Range("A1"), "", _ "'" & ActiveSheet.Name & „” i „!” & ActiveCell.Address, _ ScreenTip:="Wróć do " & ActiveSheet.Name Zakończ na końcu z ActiveCell.Offset(1, 0). Wybierz Donothing: Next x End Sub

Gdzie umieścić ten kod?

Wykonaj poniższe czynności, aby umieścić ten kod w skoroszycie:

Przejdź do karty Deweloper i kliknij Visual Basic. Możesz także użyć skrótu klawiaturowego - ALT F11.
- Jeśli możesz znaleźć kartę dewelopera na wstążce w programie Excel, kliknij tutaj, aby dowiedzieć się, jak ją zdobyć.
Po lewej stronie powinno znajdować się okienko Project Explorer (jeśli go tam nie ma, użyj Control + R, aby było widoczne).
Przejdź do Wstaw i kliknij w module. Spowoduje to dodanie modułu do skoroszytu. Również po prawej stronie pojawi się okno kodu (z migającym kursorem).
W oknie kodu modułu skopiuj i wklej powyższy kod.

Uruchamianie kodu

Aby uruchomić ten kod:

Przejdź do zakładki Deweloper -> Kod -> Makra. Spowoduje to otwarcie okna dialogowego makr.
Wybierz Macro CreateSummary i kliknij Uruchom.
Spowoduje to uruchomienie makra i utworzenie hiperłączy w aktywnym arkuszu.

Innym sposobem uruchomienia makra jest wstawienie przycisku/kształtu i przypisanie do niego makra. Aby to zrobić:

Wstaw kształt do arkusza. Sformatuj kształt tak, jak chcesz.
Kliknij go prawym przyciskiem myszy i wybierz Przypisz makro.
W polu Przypisz makro wybierz makro, które chcesz przypisać do kształtu, i kliknij przycisk OK.

Teraz możesz po prostu kliknąć kształt, aby uruchomić makro.

Pobierz plik stąd

Notatka:

Na stałe zakodowałem komórkę A1 w każdym arkuszu, do której prowadzą hiperłącza, aby wrócić do arkusza podsumowania. Upewnij się, że odpowiednio go zmieniłeś, jeśli masz już coś w komórce A1 w każdym arkuszu.
Podsumowanie nie tworzy hiperłącza dla siebie (co ma sens, ponieważ już jesteś na tym arkuszu).
Uruchom ten kod, gdy arkusz podsumowania jest aktywnym arkuszem.
Możesz chcieć dodać trochę formatowania lub zmiany układu. Ale mam nadzieję, że ten kod zajmie się trudną częścią.
Zapisz ten skoroszyt jako rozszerzenie xls lub xlsm, ponieważ zawiera makro.

Inne samouczki Excel VBA: