نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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

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

استخراج عناوين حقيقية من الارتباطات التشعبية مع كوتولس ل إكسيل

إزالة كافة الارتباطات التشعبية من الاختيار / ورقة العمل / المصنف مع كوتولس ل إكسيل


استخراج / عرض عناوين حقيقية من الارتباطات التشعبية:

مع كوتولس ل إكسيلالصورة تحويل الارتباطات التشعبية، يمكنك استخراج عناوين ورل الحقيقية بسرعة من الخلايا ذات الارتباط التشعبي في آن واحد.

دوك استخراج من الارتباطات التشعبية


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


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

DOC-التغيير hyperlinks1

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

2. انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.

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

Sub ReplaceHyperlinks()
'Updateby20140220
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 مفتاح لتشغيل هذا الرمز، ومربع موجه لتمكنك من إدخال عنوان الارتباط التشعبي القديم الخاص بك في النص القديم صندوق. انظر لقطة الشاشة:

DOC-التغيير hyperlinks2

4. انقر OK، و برزت مربع موجه آخر لتذكيرك إدخال عنوان الارتباط التشعبي الجديد الذي تريد استخدامه.

DOC-التغيير hyperlinks3

5. ثم انقر فوق OK، تم استبدال جميع نفس عناوين الارتباط التشعبي القديم من جديد واحد في وقت واحد. انظر لقطات الشاشة:

DOC-التغيير hyperlinks4 -2 DOC-التغيير hyperlinks5

السهم الأزرق الفقاعة اليمنى استخراج عناوين حقيقية من الارتباطات التشعبية مع كوتولس ل إكسيل

إذا كنت ترغب في استخراج العناوين الفعلية من الارتباطات التشعبية في إكسيل، كيف يمكن أن تفعل؟ مع تحويل الارتباطات التشعبية of كوتولس ل إكسيل، يمكنك التعامل بسرعة مع هذه المهمة.

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

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

1. انقر Kutools > لينك > تحويل الارتباطات التشعبية، انظر الصورة:

DOC-التغيير hyperlinks5

2. في تحويل الارتباطات التشعبية مربع الحوار، حدد عناوين الارتباطات التشعبية تحل محل محتويات الخلية الخيار تحت تحويل نوع ، ثم انقر فوق الأول دوك تشانج هيبيرلينسسنومك زر لتحديد مجموعة من الارتباطات التشعبية التي تريد استخراج العناوين الحقيقية، انقر فوق الثانية دوك تشانج هيبيرلينسسنومكزر لاختيار خلية حيث تريد وضع النتيجة، انظر قطة:

DOC-التغيير hyperlinks5

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

DOC-التغيير hyperlinks5

انقر لمعرفة المزيد حول هذه الميزة تحويل الارتباطات التشعبية.

تحميل مجانا كوتولس ل إكسيل الآن


السهم الأزرق الفقاعة اليمنى إزالة كافة الارتباطات التشعبية من الاختيار / ورقة العمل / المصنف مع كوتولس ل إكسيل

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

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

انقر Kutools > الروابط > حذف الارتباطات التشعبية، ثم اختر النطاق الذي تريد إزالة الارتباطات التشعبية، انظر الصورة:

DOC-التغيير hyperlinks5

انقر لمعرفة المزيد حول هذه الميزة حذف الارتباطات التشعبية.

تحميل مجانا كوتولس ل إكسيل الآن


مقالات ذات صلة:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    wannabeIT · 4 months ago
    Had a spreadsheet with over 200 items that had hyperlinks that needed to be edited. This just saved me SO MUCH TIME. THANK YOU!!
  • To post as a guest, your comment is unpublished.
    Lona · 1 years ago
    I need to only get part of my text in the hyperlinks removed.
  • To post as a guest, your comment is unpublished.
    Taylor · 1 years ago
    For some reason, these macros have quit working recently. I have used them multiple times to fix issues on many spreadsheets but now it doesn't do anything. No errors just no corrections
    • To post as a guest, your comment is unpublished.
      Jafedi · 4 months ago
      I´m the same problem. What´s the reason?
  • To post as a guest, your comment is unpublished.
    Fabio · 1 years ago
    Wow, thanks. Its amazing that Excel doesn't have a solution for cases like this.
  • To post as a guest, your comment is unpublished.
    Vern · 2 years ago
    Sorry, nevermind about my question, I stumbled on my answer. I exited out of the macro editor, placed my cursor in cell A1 of the worksheet I wanted to edit and ran the macro and Boom all the links were changed! Thanks so much!
  • To post as a guest, your comment is unpublished.
    Vern Poplaski · 2 years ago
    I loaded the hyperlink change macro and ran it. It worked but only on the active cell. How do you get it to go through the entire worksheet?
  • To post as a guest, your comment is unpublished.
    Hannes · 2 years ago
    I have a spreadsheet with thousands of links to scanned images on a Google Drive folder. When Excel crashes, it decides to change all my hyperlinks and have it point at a APP ROAMING directory. It took me less than 15 minutes to fix all links. You are the best !!!!
  • To post as a guest, your comment is unpublished.
    pranav · 2 years ago
    great help. the code helped me mass update hyperlinks in a minute.

    thanks a ton
    Pranav
  • To post as a guest, your comment is unpublished.
    Tom · 2 years ago
    Amazing - thanks v much, this just saved me a load of manual editing after a spreadsheet of mine crashed and recovered but with corrupted hyperlinks
  • To post as a guest, your comment is unpublished.
    Diishaa · 2 years ago
    How would I change this in order to update hyperlinks that link to folders within a hard drive rather than external web addresses?
  • To post as a guest, your comment is unpublished.
    Diishaa · 2 years ago
    I tried to run it on hyperlinks that contains other folders reference but it didn't work.
    How would I change this in order to update hyperlinks that link to folders within a hard drive rather than external web addresses?
  • To post as a guest, your comment is unpublished.
    Benjamin · 2 years ago
    Amazing. Worked like a charm on excel 2013, no tweaking required, unlike similar fixes I've seen for this problem. THANK YOU sooooo much. Saved a massive headache and hours of time.
  • To post as a guest, your comment is unpublished.
    Jeanie H · 2 years ago
    Thank you so much for developing this! I had a user who created a bunch of hyperlinks on multiple tabs (at least several hundred) and somehow they had a file path to his AppData\Roaming folder on his c drive instead of to the network folder. I was able to use your VBA script to remove that portion of the link code and now it all works. Saved us probably a week's worth of updating and it took me less than 2 minutes to implement!
  • To post as a guest, your comment is unpublished.
    Terri Floren · 3 years ago
    This is brilliant. You saved me SO.MUCH.TIME. today. Thanks for sharing!
  • To post as a guest, your comment is unpublished.
    Terri Floren · 3 years ago
    Wow! This saved me SO.MUCH.TIME. You're awesome. Thanks for sharing!
  • To post as a guest, your comment is unpublished.
    Rob Smith · 3 years ago
    This is the most helpful Excel article I have ever come across. I have had many problems where hyperlinks within a file become corrupted, or I want to move location of some hyperlinked files, and updating has always been a major problem. My Excel programmer didn't have a simple fix. This works faultlessly. I am very grateful - thank you!
  • To post as a guest, your comment is unpublished.
    abdralin · 4 years ago
    it did a lot of help
    thank you very much
  • To post as a guest, your comment is unpublished.
    carl · 4 years ago
    No worries I figured it out and set as a string
  • To post as a guest, your comment is unpublished.
    carl · 4 years ago
    Hey guys what am i missing, I get 'Compile error - Variable not defined' for the XTitleId in Excel 2013 :cry:
  • To post as a guest, your comment is unpublished.
    Peter · 4 years ago
    Brilliant! Thanks a lot!!!!
  • To post as a guest, your comment is unpublished.
    Mansoor · 4 years ago
    Thanks for a brilliant Piece of Program. Works LIKE a CHARM..."WLC"
  • To post as a guest, your comment is unpublished.
    Tony V · 4 years ago
    Is there a way to change multiple hyperlink "text to display" at the same time?
  • To post as a guest, your comment is unpublished.
    Lasse A · 4 years ago
    Thank thanks thanks !!!!!!!
    you saved me for 2 days of work here
  • To post as a guest, your comment is unpublished.
    Dylan · 4 years ago
    mauricio-

    You are awesome! Thanks! Also, for another report I'll need it to just update the links on only specified tabs, is that possible?
  • To post as a guest, your comment is unpublished.
    Dylan · 5 years ago
    How would I change this in order to update hyperlinks that link to references within a workbook rather than external web addresses?
    • To post as a guest, your comment is unpublished.
      mauricio · 5 years ago
      Just needed the same, try these changes:

      Sub ReplaceHyperlinks()
      'Updateby20140220
      Dim Wb As Workbook
      Dim Ws As Worksheet
      Dim xHyperlink As Hyperlink
      Dim xOld As String, xNew As String

      xTitleId = "CambiaLink"
      'Set Ws = Application.ActiveSheet
      Set Wb = Application.ActiveWorkbook
      xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
      xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
      For Each Ws In Wb.Worksheets
      'Application.ScreenUpdating = False
      For Each xHyperlink In Ws.Hyperlinks
      Debug.Print ("voy " & xHyperlink.SubAddress)
      xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew)
      Next
      Next
      Application.ScreenUpdating = True
      End Sub
  • To post as a guest, your comment is unpublished.
    gav · 5 years ago
    thanks!!!! :lol: that helped a great deal.
  • To post as a guest, your comment is unpublished.
    Kid Jägerskiöld · 5 years ago
    Hi, this seems to work great but some characters (for example "\" and "%"). In my case I have hyperlink adresses like [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] and I need to get the start [../../../../../../Application%20Data/Microsoft/] away from the adress from hundreds of links. The beginning of the links are the same, but the ends are different. Do you have any good advice?
  • To post as a guest, your comment is unpublished.
    Eric Ong · 5 years ago
    Hi, could you give me the VB code if i need to change links in Powerpoint instead of excel?

    Thanks
  • To post as a guest, your comment is unpublished.
    alex ximenez · 5 years ago
    love it, you save me a ton of work.
  • To post as a guest, your comment is unpublished.
    Tarun Varshne · 5 years ago
    Ammazing it saved my lots of effort.