Przejdź do głównej zawartości

Jak otworzyć wiele hiperłączy jednocześnie w programie Excel?

Jeśli w arkuszu kalkulacyjnym znajduje się wiele hiperłączy, zwykle trzeba je otwierać jeden po drugim, co może być uciążliwe. Na szczęście istnieje kilka prostych sposobów na jednoczesne otwarcie wszystkich wybranych hiperłączy. Postępując zgodnie z metodami opisanymi poniżej, możesz łatwo wykonać to zadanie.


Otwórz wiele hiperłączy jednocześnie za pomocą kodu VBA

Aby jednocześnie otworzyć wybrane hiperłącza z zakresu, poniższy kod VBA może Ci pomóc, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.

Kod VBA: otwórz wiele hiperłączy jednocześnie

Sub OpenHyperLinks()
'Updateby Extendoffice
	Dim xHyperlink As Hyperlink
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
	For Each xHyperlink In WorkRng.Hyperlinks
		xHyperlink.Follow
	Next
End Sub

3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wybraniu zakresu, w tym hiperłączy, które chcesz otworzyć za jednym razem, zobacz zrzut ekranu:

doc-open-multi-hiperłącza-1

4. A następnie kliknij OK, wszystkie hiperłącza są otwierane w tym samym czasie bez ich klikania.


Otwórz wiele hiperłączy jednocześnie za pomocą Kutools AI Aide

Odblokuj moc wydajności dzięki Pomocnik AI Kutools! Pożegnaj kłopot z otwieraniem hiperłączy jeden po drugim lub skomplikowanym kodem. Z Pomocnik AI Kutoolsmożesz bez wysiłku otworzyć wiele hiperłączy jednocześnie jednym kliknięciem. Usprawnij przepływ pracy i zaoszczędź cenny czas, korzystając z tego innowacyjnego narzędzia. Doświadcz płynnego przeglądania i zwiększ swoją produktywność dzięki Pomocnik AI Kutools dzisiaj!

Note: Aby tego użyć Pomocnik AI Kutools of Kutools dla programu ExcelProszę pobierz i zainstaluj Kutools dla Excela pierwszy.

Po zainstalowaniu Kutools dla programu Excel kliknij Kutools AI > Doradca AI otworzyć Pomocnik AI Kutools szkło:

  1. Wybierz listę danych, następnie wpisz swoje wymagania w polu czatu i kliknij Wyślij lub naciśnij Wchodzę klucz do wysłania pytania;
    „Otwórz wszystkie hiperłącza jednocześnie w zaznaczeniu:”
  2. Po analizie kliknij Wykonać przycisk, aby uruchomić. Kutools AI Aide przetworzy Twoje żądanie za pomocą AI i otworzy wszystkie hiperłącza wyboru bezpośrednio w Excelu.

doc-open-multi-hiperłącza-1


Podobne artykuły:

  • Zmień wiele ścieżek hiperłączy jednocześnie w programie Excel
  • W jakimś celu możesz utworzyć wiele hiperłączy dla swoich danych w arkuszu, a wszystkie hiperłącza są połączone z tą samą ścieżką pliku lub adresem, ale teraz musisz zastąpić tę ścieżkę hiperłącza innym adresem na raz. Zmiana ścieżki poszczególnych hiperłączy może spowodować stratę czasu, czy istnieje szybki sposób rozwiązania tego problemu?
  • Konwertuj wiele adresów e-mail na hiperłącza w programie Excel
  • Jeśli masz listę adresów e-mail w postaci zwykłego tekstu w arkuszu, a teraz chcesz przekonwertować te adresy e-mail na hiperłącza, które możesz wysyłać e-maile, klikając adresy. Oczywiście możesz przekonwertować je na adresy e-mail z hiperłączami, ale ta metoda będzie nudna, jeśli trzeba przekonwertować wiele adresów. W tym artykule omówię kilka dobrych sztuczek, aby poradzić sobie z tym zadaniem.
  • Kliknij hiperłącze do ukrytego arkusza w programie Excel
  • Na przykład mam skoroszyt zawierający wiele arkuszy, pierwszy arkusz główny zawiera hiperłącza do innych arkuszy, a teraz ukrywam wszystkie arkusze z wyjątkiem pierwszego. W tym przypadku hiperłącza prowadzące do ukrytych arkuszy nie są dostępne. Ale jak sprawić, by te hiperłącza działały pomyślnie? Kliknięcie jednego hiperłącza powoduje natychmiastowe otwarcie połączonego ukrytego arkusza.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
Comments (20)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for the code.
Could make it work for a "https link instead a hyperlink?
This comment was minimized by the moderator on the site
Got a compile error on Microsoft Visual Basic for Applications 7.1 on Mac High Sierra
This comment was minimized by the moderator on the site
This works fine, except for a problem, how can I make it that it only opens filtered cells?

Thank you
This comment was minimized by the moderator on the site
Can i select which browser the links need to open
This comment was minimized by the moderator on the site
Hi, it worked perfectly, thanks! Is there a way to copy the text from the pages of these links in the cell next to each of them?
That would save me hundreds of hours of work!
This comment was minimized by the moderator on the site
Its works awesome.
This comment was minimized by the moderator on the site
When I use this on a column of hyperlinks generated by the =HYPERLINK() formula, it doesn't seem to work. When I copy/paste the values into a new column and run it there, it doesn't work. When I go to each individual cell, go to the end of text, and hit enter (causing it to become a hyperlink) it DOES work.


This didn't work for my needs, unfortunately. I have thousands of rows and clicking enter at the end of each line of text is pretty much what I'm having to do anyway.
This comment was minimized by the moderator on the site
Found a solution?
This comment was minimized by the moderator on the site
@James @Johan - Select the text you wish to convert into hyperlink, then use this code to convert the text into hyperlink directly. Then run the code above, works like a charm.


Sub HyperAdd()

'Converts each text hyperlink selected into a working hyperlink

For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:=xCell.Formula
Next xCell

End Sub
This comment was minimized by the moderator on the site
Hello! What I did was to copy/paste the values from the =HYPERLINK code into a different column, and then I used @SimpleDude's code to convert the pasted text into the hyperlinks that worked with the original hyperlink-opening code. Thank you for the help!
This comment was minimized by the moderator on the site
Thanks!
Works exactly as expected. Must be sure that the links are already valid URLs.
I opened 15 at one time.
This comment was minimized by the moderator on the site
Freezes excel - links never open
This comment was minimized by the moderator on the site
Please let me know hpw does it work in Mac
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations