Skip i'r prif gynnwys

Sut i agor hypergysylltiadau lluosog ar unwaith yn Excel?

Os oes gennych lawer o hyperddolenni mewn taenlen, fel arfer byddai'n rhaid ichi eu hagor fesul un, a all fod yn ddiflas. Yn ffodus, mae yna rai ffyrdd syml o agor yr holl hyperddolenni a ddewiswyd ar unwaith. Trwy ddilyn y dulliau a ddisgrifir isod, gallwch chi gyflawni'r dasg hon yn hawdd.


Agorwch hypergysylltiadau lluosog ar unwaith gyda chod VBA

I agor eich hyperddolenni dethol o ystod ar unwaith, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

Cod VBA: Agorwch hypergysylltiadau lluosog ar unwaith

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. Yna pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis ystod gan gynnwys hypergysylltiadau yr ydych am eu hagor ar unwaith, gweler y screenshot:

doc-open-multip-hyperlinks-1

4. Ac yna cliciwch OK, mae'r holl hypergysylltiadau yn cael eu hagor ar yr un pryd heb eu clicio.


Agor hyperddolenni lluosog ar unwaith gyda Kutools AI Aide

Datgloi pŵer effeithlonrwydd gyda Kutools AI Aide! Ffarwelio â'r drafferth o agor hypergysylltiadau fesul un neu god cymhleth. Gyda Kutools AI Aide, gallwch chi agor hyperddolenni lluosog yn ddiymdrech ar yr un pryd gyda dim ond clic. Symleiddiwch eich llif gwaith ac arbed amser gwerthfawr trwy ddefnyddio'r offeryn arloesol hwn. Profwch bori di-dor a gwella'ch cynhyrchiant gyda Kutools AI Aide heddiw!

Nodyn: I ddefnyddio hwn Kutools AI Aide of Kutools ar gyfer Excel, os gwelwch yn dda lawrlwytho a gosod Kutools ar gyfer Excel gyntaf.

Ar ôl gosod Kutools ar gyfer Excel, cliciwch Kutools AI > AI Aide i agor y Kutools AI Aide cwarel:

  1. Dewiswch y rhestr ddata, yna teipiwch eich gofyniad yn y blwch sgwrsio, a chliciwch anfon botwm neu wasg Rhowch allwedd i anfon y cwestiwn;
    msgstr "Agor pob hyperddolen ar unwaith yn y dewisiad:"
  2. Ar ôl dadansoddi, cliciwch Gweithredu botwm i redeg. Bydd Kutools AI Aide yn prosesu'ch cais gan ddefnyddio AI ac yn agor pob hyperddolen o'r detholiad yn uniongyrchol yn Excel.

doc-open-multip-hyperlinks-1


Erthyglau cysylltiedig:

  • Newid llwybrau hyperddolen lluosog ar unwaith yn Excel
  • At ryw bwrpas, efallai y byddwch yn creu hypergysylltiadau lluosog ar gyfer eich data yn y daflen waith, ac mae pob un o'r hypergysylltiadau wedi'u cysylltu â'r un llwybr ffeil neu gyfeiriad, ond nawr, mae angen i chi ddisodli'r llwybr hypergyswllt hwn â chyfeiriad arall ar y tro. Efallai y bydd newid llwybr yr hypergysylltiadau yn unigol yn gwastraffu llawer o amser, a oes ffordd gyflym o ddatrys y broblem hon?
  • Trosi cyfeiriadau e-bost lluosog yn hyperddolenni yn Excel
  • Os oes gennych chi restr o gyfeiriadau e-bost testun plaen mewn taflen waith, ac nawr, rydych chi am drosi cyfeiriadau e-bost traethodau ymchwil yn hypergysylltiadau y gallwch chi anfon e-byst wrth glicio ar y cyfeiriadau. Wrth gwrs, gallwch eu trosi i gyfeiriadau e-bost hypergysylltiedig, ond, bydd y dull hwn yn ddiflas os oes angen trosi sawl cyfeiriad. Yn yr erthygl hon, byddaf yn siarad am rai triciau da i ddelio â'r dasg hon.
  • Dilynwch hyperddolen i ddalen gudd yn Excel
  • Er enghraifft, mae gen i lyfr gwaith sy'n cynnwys taflenni gwaith lluosog, mae gan y brif daflen gyntaf hypergysylltiadau i daflenni eraill, ac yn awr, rwy'n cuddio pob taflen ac eithrio'r un cyntaf. Yn yr achos hwn, nid yw'r hyperddolenni sy'n cysylltu â thaflenni cudd ar gael. Ond, sut allech chi wneud i'r hypergysylltiadau hyn weithio'n llwyddiannus? Pan gliciwch ar un hyperddolen, bydd y ddalen gudd gysylltiedig yn cael ei hagor ar unwaith.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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