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

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

Ինչ-որ նպատակով, դուք կարող եք ստեղծել բազմաթիվ հղումներ ձեր տվյալների համար աշխատաթերթում, և բոլոր հիպերհղումները կապված են նույն ֆայլի ուղու կամ հասցեի հետ, բայց հիմա, դուք պետք է այս հիպերհղման ուղին միանգամից փոխարինեք մեկ այլ հասցեով: Հիպերհղումների ուղին անհատապես փոխելու համար կարող է շատ ժամանակ վատնել, կա՞ այս խնդրի լուծման արագ միջոց:

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

Միանգամից փոխեք բազմաթիվ հիպերհղումների ուղիներ աշխատանքային թերթում / աշխատանքային գրքում / բազմաթիվ թերթերում / ընտրության մեջ զարմանալի հատկությամբ


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

Ենթադրելով, որ դուք ունեք տվյալների ցուցակ նույն հիպերհղումներով, ինչպես ցույց է տրված հետևյալ նկարը և VBA կոդով, կարող եք արագ փոխարինել ֆայլի հին ուղին կամ հասցեն աշխատաթերթում նորով:

1. Անջատեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic կիրառական ծրագրերի պատուհան.

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

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

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 այս կոդը գործելու բանալին և արագ տուփ, որը թույլ է տալիս մուտքագրել ձեր հին հիպերհղման հասցեն դեպի Հին տեքստ տուփ Տեսեք,

4: Սեղմեք OK, և մեկ այլ արագ տուփ է դուրս գալիս ՝ հիշեցնելու համար, որ մուտք եք գործում նոր հիպերհղման հասցե, որը ցանկանում եք օգտագործել:

5. Եվ այնուհետեւ կտտացրեք OK, բոլոր նույն հին հղումների հասցեները միանգամից փոխարինվել են նորով: Տեսեք սքրինշոթերը.


Միանգամից փոխեք բազմաթիվ հիպերհղումների ուղիներ աշխատանքային թերթում / աշխատանքային գրքում / բազմաթիվ թերթերում / ընտրության մեջ զարմանալի հատկությամբ

Եթե ​​ցանկանում եք փոխարինել hyperlink ուղիները ընտրությունից, բազմաթիվ թերթերից, ընթացիկ աշխատանքային գրքից կամ բազմաթիվ աշխատանքային գրքերից, ինչպե՞ս կարող եք անել: Հետ Գտնել եւ փոխարինել առանձնահատկությունը Excel- ի համար նախատեսված գործիքներ, Դուք կարող եք արագ զբաղվել այս խնդրով:

Նշում:Սա կիրառելու համար Գտնել եւ փոխարինել օգտակար, առաջին հերթին, դուք պետք է ներբեռնեք այն Excel- ի համար նախատեսված գործիքներ, ապա գործառույթը կիրառեք արագ և հեշտությամբ:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներԽնդրում եմ արեք հետևյալ կերպ

1: Սեղմեք Կուտոլս > նավարկություն, տես նկարի նկարը.

2, Բացվածքում նավարկություն վահանակ, սեղմեք Գտնել եւ փոխարինել էջում Գտնել եւ փոխարինել վահանակ, սեղմեք Փոխարինել էջանիշը, ապա կատարեք հետևյալ գործողությունները.

  • Մուտքագրեք հին hyperlink տեքստը, որը ցանկանում եք գտնել մեջ Գտեք ինչ տեքստային տուփ և այնուհետև մուտքագրեք հիպերհղման նոր տեքստը, որի մեջ ցանկանում եք փոխարինել Փոխարինել տեքստային տուփ;
  • Նշեք այն շրջանակը, որտեղ ցանկանում եք գտնել և փոխարինել հիպերհղման ուղին այն -ից Ընթացքում բացվող ցուցակ;
  • Դրանից հետո ընտրեք «Հիպերհղումներ» ցանկից ներքև:
  • Վերջապես կտտացրեք Գտեք բոլորը կոճակը, բոլոր համապատասխան բջիջները, որոնք պարունակում են հատուկ հղման տեքստ, նշված են ներքևի ցուցակի վանդակում:

3, Դրանից հետո կտտացրեք Փոխարինեք բոլորը կոճակը, հին հիպերհղման ուղիները միանգամից փոխվել են նորերի, տես նկարի նկարը.

Կտտացրեք Excel- ի համար Kutools- ի անվճար փորձարկման համար ներբեռնելու համար:


Ավելի հարաբերական հոդվածներ.

  • Հիպերհղումներից հանեք իրական հասցեները
  • Ենթադրելով, որ դուք ունեք մի շարք բջիջներ, որոնք պարունակում են հիպերհղումներ, և այժմ դուք պետք է տեսնեք հիպերհղումների իրական նշանակությունը և դրանք հանեք հիպերհղումներից, ինչպես ցույց է տրված հետևյալ նկարը: Կա՞ն այս խնդիրը արագ լուծելու հեշտ եղանակներ:
  • Excel- ում փոխակերպեք պատկերի URL- ները իրական պատկերների
  • Եթե ​​A սյունակում ունեք պատկերի URL հասցեների ցուցակ, և այժմ դուք ցանկանում եք ներբեռնել համապատասխան նկարները URL- ներից և ցուցադրել դրանք հարակից B սյունակում, ինչպես ցույց է տրված ձախ սքրինշոթը: Excel- ում ինչպե՞ս կարող եք արագ և հեշտությամբ արդյունահանել իրական նկարները պատկերի URL- ներից:
  • Excel- ում փոխակերպեք url տեքստը սեղմվող հիպերհղման
  • Ենթադրելով, որ ձեր աշխատաթերթում ունեք մի քանի url, բայց դրանք կապված չեն, և այժմ անհրաժեշտ է բոլոր չկապված url- ները փոխարկել սեղմվող հիպերհղումների, ինչպես ցույց են տրված հետևյալ նկարները: Իհարկե, դուք կարող եք կրկնակի սեղմել նրանց վրա մեկ առ մեկ, որպեսզի դրանք կտտացվեն, բայց դա ժամանակատար կլինի, եթե շատ հասցեներ լինեն: Ինչպե՞ս կարող եք Excel- ում ավտոմատ կերպով վերափոխել մի քանի չկապված url- ի ՝ սեղմվող հղումների:
  • Excel- ի Hyperlink- ից բացեք PDF փաստաթղթի որոշակի էջ
  • Երբ բջիջը կապում եք PDF ֆայլի հետ, սովորաբար, դուք կգտնեք PDF ֆայլի առաջին էջ, երբ կտտացրեք բացել հղումը: Եթե ​​Ձեզ անհրաժեշտ է ուղղակիորեն անցնել PDF ֆայլի որոշակի էջ ՝ կտտացնելով հղմանը, այս հոդվածը կարող է ձեզ լավություն բերել:

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

🤖 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 (47)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
This might be an older article, but was exactly what I needed. Thank you!
This comment was minimized by the moderator on the site
hi
thanks man you helped me a lot
This comment was minimized by the moderator on the site
I downloaded this and gave it a try and it did nothing. My hyperlinks look like this: file///\\server\shared\PO\CY2021\25079.pdf. I'm trying to change "server" to "server1" after a migration. I do the find/replace and choose Hyperlink, execute it, and... nothing happens. 
Any ideas?
This comment was minimized by the moderator on the site
Hello John,Sorry to hear that. The reason why the find/replace function didn't work is that your hyperlink file///\\server\shared\PO\CY2021\25079.pdf is not valid. According to the Excel dialog box, it shows the address of this site is not valid. Check the address and try again.
Then when I change your hyperlink to http://file///\\server\shared\PO\CY2021\25079.pdf, the find/replace function works perfectly. Please have a try. Have a nice day.
Sincerely,Mandy
This comment was minimized by the moderator on the site
Muchas gracias, me ahorraste mucho tiempo actualizando hipervinculos!
This comment was minimized by the moderator on the site
Muito obrigado! Você me salvou dezenas de horas de sono que seriam perdidas atualizando links.
This comment was minimized by the moderator on the site
Would it be possible to have a version to set a macro in power point for update links to excel, happens that monthly we need to link the power point presentation to a new excel in a new location. I have to do it one by one and it takes hours! MANY THANKS!!!!

This comment was minimized by the moderator on the site
Thankyou so much for the vba fix. I knew there had to be an easy way to fix my hyperlink problem and you provided it :) I am extremely grateful.
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Hello, Schweppy,
The below code can help you to replace the hyperlinks in all sheets, please try.

Sub ReplaceHyperlinks()
Dim xWs As Worksheet
Dim xWss As Sheets
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set WS = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
Set xWss = Application.ActiveWorkbook.Worksheets
For Each xWs In xWss
For Each xHyperlink In xWs.Hyperlinks
xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Next xWs
Application.ScreenUpdating = True
End Sub
This comment was minimized by the moderator on the site
This is amazing!!! Thank you for posting the code that works for all of the worksheets. I had the hardest time finding this and couldn't figure out how to create it myself. Thank you so much for sharing your code with the world!!!
Rated 5 out of 5
This comment was minimized by the moderator on the site
Your code helped me update hundreds of hyperlinks in a blink of an eye. Thank you soo much for you help.
This comment was minimized by the moderator on the site
Thanks a lot, works perfectly fine. Highly appreciated.
This comment was minimized by the moderator on the site
Glad it helps. Any questions, please feel free to contact us. Have a nice day!
This comment was minimized by the moderator on the site
Many thanks for the VBA code to change multiple hyperlink paths at once. Would it be possible to have a version that would go through the different tabs (worksheets) of the xls workbook, as the current version only seems to change the links in the active worksheet? Would be highly appreciated!

Thanks,

Schweppy
This comment was minimized by the moderator on the site
Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
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