Ugrás a tartalomra

Hogyan nyithat meg egyszerre több hiperhivatkozást az Excelben?

Ha sok hiperhivatkozás van egy táblázatban, általában egyenként kell megnyitnia őket, ami fárasztó lehet. Szerencsére van néhány egyszerű módszer az összes kiválasztott hiperhivatkozás egyidejű megnyitására. Az alábbiakban ismertetett módszereket követve könnyen elvégezheti ezt a feladatot.


Nyisson meg egyszerre több hiperhivatkozást VBA kóddal

Ha egy adott tartomány hiperhivatkozásait egyszerre szeretné megnyitni, a következő VBA-kód segíthet, kérjük, tegye a következőket:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablak.

VBA kód: Több hiperhivatkozás megnyitása egyszerre

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely emlékeztet arra, hogy válasszon egy tartományt, beleértve az egyszerre megnyitni kívánt hiperhivatkozásokat, lásd a képernyőképet:

doc-open-multiple-hyperlinkek-1

4. Kattintson a gombra OK, az összes hiperlink egyszerre nyílik meg, anélkül, hogy rájuk kattintana.


Nyisson meg egyszerre több hiperhivatkozást a Kutools AI Aide segítségével

Oldja fel a hatékonyság erejét ezzel Kutools AI Aide! Mondjon búcsút a hiperhivatkozások egyenkénti vagy összetett kód megnyitásával járó fáradságnak. Val vel Kutools AI Aide, könnyedén, egyetlen kattintással egyszerre több hiperhivatkozást is megnyithat. Egyszerűsítse munkafolyamatát, és takarítson meg értékes időt ennek az innovatív eszköznek a használatával. Tapasztalja meg a zökkenőmentes böngészést, és növelje termelékenységét Kutools AI Aide Ma!

Megjegyzések: Ennek használatához Kutools AI Aide of Kutools az Excel számáraKérjük, töltse le és telepítse a Kutools for Excel alkalmazást először.

A Kutools for Excel telepítése után kattintson Kutools AI > AI segéd megnyitni Kutools AI Aide ablaktábla:

  1. Válassza ki az adatlistát, majd írja be a követelményt a csevegési mezőbe, és kattintson a gombra Küldés vagy nyomja meg a gombot belép kulcs a kérdés elküldéséhez;
    "Nyissa meg az összes hivatkozást egyszerre a kijelölésben:"
  2. Az elemzés után kattintson a gombra Végrehajt gombot a futtatáshoz. A Kutools AI Aide az AI segítségével feldolgozza kérését, és közvetlenül az Excelben megnyitja a kiválasztás összes hivatkozását.

doc-open-multiple-hyperlinkek-1


Kapcsolódó cikkek:

  • Módosítson egyszerre több hiperhivatkozási útvonalat az Excelben
  • Bizonyos célokból több hiperhivatkozást is létrehozhat az adataihoz a munkalapon, és az összes hiperhivatkozás ugyanahhoz a fájl elérési útjához vagy címéhez kapcsolódik, de most ezt a hiperhivatkozási útvonalat egyszerre másik címre kell cserélnie. A hiperhivatkozások útjának egyenkénti megváltoztatása sok időt pazarolhat, van-e gyors megoldás a probléma megoldására?
  • Konvertáljon több e-mail címet hiperhivatkozássá az Excelben
  • Ha van egy munkalapon egyszerű szöveges e-mail címek listája, most ezeket a e-mail címeket hiperhivatkozásokká kívánja konvertálni, amelyekre e-maileket küldhet, miközben a címekre kattint. Természetesen átalakíthatja hiperhivatkozású e-mail címekké, de ez a módszer unalmas lesz, ha több címre van szükség konvertálásra. Ebben a cikkben néhány jó trükkről fogok beszélni, amellyel ezt a feladatot kezelhetjük.
  • Kövesse a hiperhivatkozást az Excel rejtett lapjára
  • Például van egy munkafüzetem, amely több munkalapot is tartalmaz, az első főlapon más lapokra mutató hivatkozások találhatók, és most az összes lapot elrejtem, kivéve az elsőt. Ebben az esetben a rejtett lapokra hivatkozó hiperhivatkozások nem érhetők el. De hogyan tudná sikeresen működni ezeket a hiperhivatkozásokat? Ha rákattint egy hiperhivatkozásra, a hivatkozott rejtett lap azonnal megnyílik.

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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