انتقل إلى المحتوى الرئيسي

كيفية تغيير مسارات الارتباط التشعبي المتعددة مرة واحدة في Excel؟

لبعض الأغراض ، يمكنك إنشاء ارتباطات تشعبية متعددة لبياناتك في ورقة العمل ، وترتبط جميع الارتباطات التشعبية بنفس مسار الملف أو العنوان ، ولكن الآن ، تحتاج إلى استبدال مسار الارتباط التشعبي هذا بعنوان آخر في المرة الواحدة. قد يؤدي تغيير مسار الارتباطات التشعبية بشكل فردي إلى إهدار الكثير من الوقت ، فهل هناك طريقة سريعة لحل هذه المشكلة؟

قم بتغيير مسارات الارتباطات التشعبية المتعددة مرة واحدة في ورقة عمل برمز VBA

قم بتغيير مسارات الارتباطات التشعبية المتعددة مرة واحدة في ورقة عمل / مصنف / أوراق متعددة / تحديد بميزة مذهلة


قم بتغيير مسارات الارتباطات التشعبية المتعددة مرة واحدة في ورقة عمل برمز VBA

لنفترض أن لديك قائمة بيانات بنفس الارتباطات التشعبية كما هو موضح في لقطة الشاشة التالية ، وباستخدام رمز VBA ، يمكنك بسرعة استبدال مسار الملف القديم أو العنوان في ورقة العمل بآخر جديد.

1. اضغط باستمرار ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

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، تم استبدال جميع عناوين الارتباط التشعبي القديمة نفسها بالعنوان الجديد مرة واحدة. انظر لقطات الشاشة:


قم بتغيير مسارات الارتباطات التشعبية المتعددة مرة واحدة في ورقة عمل / مصنف / أوراق متعددة / تحديد بميزة مذهلة

إذا كنت تريد استبدال مسارات الارتباطات التشعبية من تحديد أو أوراق متعددة أو كتاب عمل حالي أو مصنفات متعددة ، كيف يمكنك أن تفعل؟ مع بحث واستبدال سمة من سمات كوتولس ل إكسيل، يمكنك التعامل بسرعة مع هذه المهمة.

ملحوظة:لتطبيق هذا بحث واستبدال فائدة ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

1. انقر كوتولس > قائمة الإختيارات، انظر لقطة الشاشة:

2. في فتح قائمة الإختيارات جزء، انقر فوق البحث واستبدال علامة التبويب، في بحث واستبدال جزء، انقر فوق استبدل علامة التبويب ، ثم قم بإجراء العمليات التالية:

  • أدخل نص الارتباط التشعبي القديم الذي تريد البحث عنه في ملف تجد ما مربع النص ، ثم اكتب نص الارتباط التشعبي الجديد الذي تريد استبداله في ملف استبدال مربع الكتابة؛
  • حدد النطاق الذي تريد البحث فيه عن مسار الارتباط التشعبي واستبداله من ملف ضمن قائمة منسدلة؛
  • ثم حدد الارتباطات التشعبية من البحث في القائمة المنسدلة ؛
  • أخيرًا ، انقر فوق جد كل الزر ، تم إدراج جميع الخلايا المقابلة التي تحتوي على نص الارتباط التشعبي المحدد في مربع القائمة السفلي.

3. ثم اضغط استبدال الكل زر ، تم تغيير مسارات الارتباط التشعبي القديمة إلى مسارات جديدة مرة واحدة ، انظر الصورة:

انقر لتنزيل Kutools for Excel مجانًا!


المزيد من المقالات ذات الصلة:

  • استخراج العناوين الفعلية من الارتباطات التشعبية
  • لنفترض أن لديك نطاقًا من الخلايا التي تحتوي على ارتباطات تشعبية ، والآن تحتاج إلى رؤية الوجهة الحقيقية للارتباطات التشعبية واستخراجها من الارتباطات التشعبية كما هو موضح في لقطة الشاشة التالية. هل توجد طرق سهلة لحل هذه المشكلة بسرعة؟
  • تحويل عناوين URL للصور إلى صور فعلية في Excel
  • إذا كانت لديك قائمة بعناوين URL للصور في العمود A ، والآن ، فأنت تريد تنزيل الصور المقابلة من عناوين URL وعرضها في العمود المجاور B كما هو موضح في لقطة الشاشة اليسرى. في Excel ، كيف يمكنك استخراج الصور الفعلية من عناوين URL للصور بسرعة وسهولة؟
  • تحويل نص عنوان Url إلى ارتباط تشعبي قابل للنقر في Excel
  • لنفترض أن لديك عدة عناوين url في ورقة العمل الخاصة بك ، ولكنها غير مرتبطة ، وتحتاج الآن إلى تحويل جميع عناوين url غير المرتبطة إلى ارتباطات تشعبية قابلة للنقر ، كما هو موضح في لقطات الشاشة التالية. بالطبع ، يمكنك النقر نقرًا مزدوجًا فوقها واحدًا تلو الآخر لجعلها قابلة للنقر ، ولكن هذا سيستغرق وقتًا طويلاً إذا كان هناك الكثير من عناوين url. كيف يمكنك تحويل عدة عناوين url غير مرتبطة إلى ارتباطات تشعبية قابلة للنقر تلقائيًا في Excel؟
  • افتح صفحة محددة من مستند PDF من ارتباط تشعبي Excel
  • عندما تقوم بربط خلية بملف PDF ، عادة ، ستنتقل إلى الصفحة الأولى من ملف PDF عند النقر لفتح الارتباط التشعبي. إذا كنت بحاجة إلى الانتقال مباشرةً إلى صفحة معينة من ملف PDF بالنقر فوق الارتباط التشعبي ، فقد تفيدك هذه المقالة.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 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