Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս միանգամից մի քանի հիպերհղումներ բացել Excel- ում:

Եթե ​​դուք ունեք բազմաթիվ հիպերհղումներ աղյուսակում, սովորաբար դուք պետք է բացեք դրանք մեկ առ մեկ, ինչը կարող է հոգնեցուցիչ լինել: Բարեբախտաբար, բոլոր ընտրված հիպերհղումները միանգամից բացելու մի քանի պարզ եղանակներ կան: Հետևելով ստորև նկարագրված մեթոդներին, դուք հեշտությամբ կարող եք իրականացնել այս խնդիրը:


Միանգամից բացեք բազմաթիվ հիպերհղումներ VBA կոդով

Միանգամից մի տիրույթի ձեր ընտրած հղումները բացելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, խնդրում ենք արեք հետևյալ կերպ.

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան:

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Միանգամից բացեք բազմաթիվ հղումներ

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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և կհայտնվի հուշման տուփ, որը կհիշեցնի ձեզ ընտրել մի շարք, ներառյալ հիպերհղումները, որոնք ցանկանում եք միանգամից բացել, տեսեք,

doc-open-multiple-hyperlinks-1

4. Եվ այնուհետեւ կտտացրեք OK, բոլոր հիպերհղումները միաժամանակ բացվում են ՝ առանց դրանց կտտացնելու:


Միանգամից բացեք բազմաթիվ հիպերհղումներ Kutools AI Aide-ի հետ

Բացեք արդյունավետության ուժը Kutools AI օգնական! Հրաժեշտ տվեք հիպերհղումները մեկ առ մեկ բացելու կամ բարդ կոդերի դժվարությանը: Հետ Kutools AI օգնական, դուք կարող եք հեշտությամբ բացել բազմաթիվ հիպերհղումներ՝ ընդամենը մեկ սեղմումով: Հեշտացրեք ձեր աշխատանքային հոսքը և խնայեք արժեքավոր ժամանակը՝ օգտագործելով այս նորարարական գործիքը: Փորձեք անխափան զննարկում և բարձրացրեք ձեր արտադրողականությունը Kutools AI օգնական today!

ՆշումՍա օգտագործելու համար Kutools AI օգնական of Excel- ի համար նախատեսված գործիքներ, խնդրում եմ ներբեռնեք և տեղադրեք Kutools Excel-ի համար առաջին.

Excel- ի համար Kutools- ը տեղադրելուց հետո սեղմեք Kutools AI > AI օգնական բացելու համար Kutools AI օգնական պատուհան:

  1. Ընտրեք տվյալների ցանկը, ապա մուտքագրեք ձեր պահանջը զրույցի վանդակում և սեղմեք ուղարկել կոճակը կամ սեղմել Մտնել հարց ուղարկելու բանալին;
    «Ընտրության մեջ միանգամից բացեք բոլոր հիպերհղումները.
  2. Վերլուծելուց հետո սեղմեք Կատարել կոճակ գործելու համար: Kutools AI Aide-ը կմշակի ձեր հարցումը AI-ի միջոցով և կբացի ընտրության բոլոր հիպերհղումները անմիջապես Excel-ում:

doc-open-multiple-hyperlinks-1


Առնչվող հոդվածներ քանակը:

  • Excel-ում միանգամից մի քանի հիպերհղման ուղիներ փոխեք
  • Ինչ-որ նպատակով, դուք կարող եք ստեղծել բազմաթիվ հղումներ ձեր տվյալների համար աշխատաթերթում, և բոլոր հիպերհղումները կապված են նույն ֆայլի ուղու կամ հասցեի հետ, բայց հիմա, դուք պետք է այս հիպերհղման ուղին միանգամից փոխարինեք մեկ այլ հասցեով: Հիպերհղումների ուղին անհատապես փոխելու համար կարող է շատ ժամանակ վատնել, կա՞ այս խնդրի լուծման արագ միջոց:
  • Excel- ում բազմաթիվ էլփոստի հասցեներ վերափոխեք հղումների
  • Եթե ​​աշխատանքային էջում ունեք պարզ տեքստային էլփոստի հասցեների ցուցակ, և այժմ ցանկանում եք փոխել այս էլեկտրոնային հասցեները հիպերհղումների, որոնք կարող եք նամակներ ուղարկել ՝ հասցեները սեղմելով: Իհարկե, դրանք կարող եք վերափոխել գերհաղորդակցված էլ. Փոստի հասցեների, բայց այս մեթոդը ձանձրալի կլինի, եթե վերափոխման համար անհրաժեշտ բազմաթիվ հասցեներ լինեն: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման մի քանի լավ հնարքների մասին:
  • Հետևեք Excel-ում թաքնված թերթիկին
  • Օրինակ, ես ունեմ աշխատանքային գրքույկ, որը պարունակում է բազմաթիվ աշխատաթերթեր, առաջին գլխավոր թերթը ունի հիպերհղումներ դեպի այլ թերթեր, և այժմ ես թաքցնում եմ բոլոր թերթերը, բացառությամբ առաջինի: Այս դեպքում հիպերհղումները, որոնք կապում են թաքնված թերթերին, հասանելի չեն: Բայց ինչպե՞ս կարող եք այս հիպերհղումները հաջողությամբ աշխատել: Երբ սեղմում եք մեկ հիպերհղում, կապակցված թաքնված թերթիկը միանգամից կբացվի:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
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