Definicja hiperłącza VBA

Hiperłącze jest powszechnie używane w witrynach internetowych do przechodzenia między stronami lub witrynami w Internecie. W podobny sposób możemy również kontrolować ruchy w arkuszu programu Excel. Różne operacje, które można wykonać w programie Excel, to:

  • Przeniesienie do określonej lokalizacji w bieżącym skoroszycie.
  • Otwieranie różnych dokumentów i wybierz wspomniany obszar w dokumencie.
  • Przechodzenie do stron internetowych z arkusza roboczego.
  • Wysyłanie wiadomości e-mail na zdefiniowany adres.

Hiperłącze jest łatwe do rozpoznania ze względu na zmianę koloru, głównie w kolorze niebieskim. Istnieją różne metody tworzenia hiperłączy w programie Excel i pozwalania na używanie VBA.

Jak utworzyć hiperłącze w programie Excel za pomocą kodu VBA?

Możesz dodać hiperłącze do tekstu lub jednego arkusza do innego arkusza w programie Excel za pomocą właściwości dodawania hiperłącza. Po formacie należy podać miejsce utworzenia hiperłącza, adres URL nawigacji itp.

Format dodawania hiperłącza VBA

Format pokazuje parametry, które należy podać, aby dodać hiperłącze do arkusza.

  • Kotwica: określa komórkę, w której chcesz utworzyć hiperłącze.
  • Adres: adres URL, na który powinna się poruszać nawigacja.
  • (SubAddress): podadres adresu URL.
  • (Wskazówka ekranowa): Wartość wskaźnika myszy, która ma być wyświetlana podczas umieszczania wskaźnika myszy.
  • (Tekst do wyświetlenia): Tekst musi zostać wyświetlony w komórce.

Użyj właściwości Aktywna komórka, aby dodać hiperłącze.

Wybierz metodę dodawania z listy

Przykłady tworzenia hiperłączy w programie Excel VBA

Poniżej znajdują się różne przykłady tworzenia hiperłączy w programie Excel przy użyciu kodu VBA.

Możesz pobrać ten szablon Excel hiperłącza VBA tutaj - Szablon Excel hiperłącza VBA

Przykład # 1 - Tworzenie hiperłącza z arkusza roboczego do strony internetowej

Chcemy utworzyć hiperłącze z arkusza o nazwie sub do strony internetowej przy użyciu kodu VBA w programie Excel.

Poniżej znajdują się kroki, aby utworzyć hiperłącze w programie Excel VBA:

Krok 1: Utwórz funkcję o nazwie hyper, aby dodać hiperłącze.

Kod:

 Private Sub hyper () End Sub

Krok 2: Użyj aktywnego obiektu komórki, aby otworzyć metodę dodawania hiperłącza.

Kod:

 Subwoofer prywatny hyper () ActiveCell.Hyperlinks.Add (End Sub

Krok 3: Podaj wartości parametrów do metody dodawania hiperłącza.

Kod:

 Subwoofer prywatny hyper () ActiveCell.Hyperlinks.Add Anchor: = Arkusze („sub”). Zakres („A1”), Adres: = „https://www.educba.com/”, SubAddress: = „”, ScreenTip : = „to hiperłącze”, TextToDisplay: = „Szkolenie Excel” End Sub
  • Kotwica: nazwa arkusza roboczego
  • Adres: hiperłącze do miejsca, w którym należy nawigować, podając adres strony internetowej
  • Wskazówka ekranowa: Tekst wskaźnika myszy
  • TextToDisplay: do którego tekstu należy przypisać hiperłącze

Krok 4: Naciśnij F5 lub przycisk Uruchom pod VBE, aby uruchomić ten kod i zobaczyć wynik.

Zaznaczono zakres komórek A1, a tekstowi przypisano hiperłącze, po kliknięciu tekstu „Szkolenie Excel” nastąpi przekierowanie na stronę https://www.educba.com/. Przesunięcie wskaźnika myszy obok tekstu spowoduje wyświetlenie tekstu wskaźnika myszy.

Przykład # 2 - Hiperłącze do połączenia dwóch arkuszy

Mamy dwa arkusze robocze o nazwie Strona główna i podrzędne . Spróbujmy utworzyć hiperłącze z sub do domu za pomocą kodu VBA.

Wykonaj poniższe kroki, aby utworzyć hiperłącze z jednego arkusza do drugiego w tym samym skoroszycie za pomocą kodu VBA.

Krok 1: Utwórz funkcję, w której napiszemy wszystkie kody do wykonania akcji. Napisz kod, aby wybrać „pod” arkusz roboczy, korzystając z metody wyboru arkusza.

Kod:

 Private Sub hyper1 () Arkusze robocze („sub”) Wybierz End Sub

Ponieważ formant porusza się w obrębie arkusza, konieczne jest wybranie arkusza, w którym tworzysz hiperłącze.

Krok 2: Wybierz zakres komórek w arkuszu, w którym chcesz utworzyć hiperłącze.

Kod:

 Private Sub hyper1 () Arkusze („sub”). Wybierz zakres („A1”). Wybierz End Sub

Krok 3: Teraz dodajmy hiperłącze za pomocą właściwości aktywnej komórki.

Kod:

 Private Sub hyper1 () Arkusze („sub”). Wybierz zakres („A1”). Wybierz ActiveCell.Hyperlinks.Dodaj kotwicę: = wybór, adres: = "„, podadres: = "'Strona główna'! A1", TextToDisplay: = „Kliknij, aby przenieść arkusz główny” End Sub

Ponieważ arkusz jest już wybrany, Kotwica jest podawana jako „Wybór”. Hiperłącze jest określone jako arkusz „Strona główna” i zakres A1.

Krok 4: Uruchom kod, a pod arkuszem wyświetli się hiperłącze, jak poniżej.

Krok 5: Po kliknięciu tekstu formant zostanie przeniesiony do arkusza „ Strona główna ”. I komórka A1 zostanie wybrana.

Przykład # 3 - Hiperłącze z wieloma arkuszami

Jeśli chcesz utworzyć hiperłącze w wielu arkuszach, jest to również możliwe. W tym przykładzie mamy wiele arkuszy w tym samym skoroszycie. Istnieje inny typ funkcji programu Excel, więc z głównego arkusza roboczego „Funkcje”. Spróbujmy utworzyć hiperłącze do innego arkusza o różnych funkcjach, używając kodu VBA:

Wiele arkuszy jest nazwanych jak poniżej z różnymi nazwami funkcji programu Excel

Ponieważ chcemy utworzyć hiperłącze do każdego arkusza, trudno jest powtórzyć kod. Wykonaj poniższe kroki, aby utworzyć hiperłącze za pomocą kodu VBA w programie Excel:

Krok 1: Utwórz zmienną, aby łatwo obsługiwać arkusz roboczy.

Kod:

 Sub prywatny hyper2 () Dim ws As Arkusz End Sub

Krok 2: Teraz chcemy wybrać stronę główną, która działa jak strona indeksu i wybrać zakres komórek A1.

Kod:

 Private Sub hyper2 () Dim ws As Arkusz roboczy („Funkcje”). Wybierz zakres („A1”). Wybierz End Sub

Krok 3: Aby przejść przez wiele arkuszy i hiperłączy, tworzymy dla każdej pętli. A1 jest już wybrana jako aktywna komórka, więc tworzy z niej hiperłącze.

Kod:

 Private Sub hyper2 () Dim ws As Arkusze („Funkcje”). Wybierz zakres („A1”). Wybierz dla każdego ws w ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell Następny ws End Sub

Krok 4: Podaj wartości parametrów, aby utworzyć hiperłącze dla każdego arkusza. Ponieważ hiperłącze zaczyna się od aktywnego zakotwiczenia komórki = aktywna komórka, adres jest podawany jako „” .

Kod:

 Private Sub hyper2 () Dim ws As Arkusze robocze („Funkcje”). Wybierz zakres („A1”). Wybierz dla każdego ws W ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "„ Next ws End Pod

Krok 5: Hiperłącze jest zapętlone przez arkusz, więc powinniśmy nadać podadres jako nazwy arkuszy. Aby uzyskać nazwy arkuszy, możemy użyć zmiennej ws i zakresu komórek jako A1. Nazwa arkusza będzie się odnosić z jednym cytatem. Nazwa i zakres arkusza zostaną określone, a także zamknięte za pomocą pojedynczej oferty.

Kod:

 Private Sub hyper2 () Dim ws As Arkusze robocze („Funkcje”). Wybierz zakres („A1”). Wybierz dla każdego ws W ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "" Next ws End Sub

Krok 6: Aby uzyskać hiperłącze z nazwą arkusza, wpisz TextToDisplay jako ws.Name

Kod:

 Private Sub hyper2 () Dim ws As Arkusze robocze („Funkcje”). Wybierz zakres („A1”). Wybierz dla każdego ws W ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name Next ws End Sub

Ten kod będzie przechowywać hiperłącze dla każdego arkusza w tej samej komórce A1.

Krok 7: Aby zmienić ten każdy arkusz na inną komórkę w dół o jedną komórkę od aktywnej komórki.

Kod:

 Private Sub hyper2 () Dim ws As Arkusze robocze („Funkcje”). Wybierz zakres („A1”). Wybierz dla każdego ws W ActiveWorkbook.Worksheets ActiveCell.Hyperlinks.Add Anchor: = ActiveCell, Address: = "", SubAddress: = "" & ws.Name & "! A1" & "", TextToDisplay: = ws.Name ActiveCell.Offset (1, 0). Wybierz Next WS End Sub

Krok 8: Uruchom program, a nazwa każdego arkusza zostanie wyświetlona na arkuszu „Funkcje”, a po kliknięciu kontrolka przejdzie do odpowiedniego arkusza.

Rzeczy do zapamiętania

  • Właściwość hiperłącza aktywnej komórki używana do tworzenia hiperłączy w VBA.
  • Hiperłącze pomaga łatwo poruszać się w skoroszycie.

Polecane artykuły

To jest przewodnik po hiperłączach VBA. Tutaj dowiadujemy się, jak tworzyć hiperłącza w arkuszu przy użyciu kodu VBA, aby szybko przechodzić z jednego arkusza na inny wraz z praktycznymi przykładami i szablonem Excel do pobrania. Możesz także przejrzeć nasze inne sugerowane artykuły -

  1. Wprowadzenie do pętli VBA
  2. Usuń hiperłącza w programie Excel
  3. VBA Break for Loop
  4. Znajdź łącza zewnętrzne w programie Excel

Kategoria:

VBA