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

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

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

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

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

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

1. اضغط باستمرار على مفتاحي ALT + F11، وسيتم فتح نافذة Microsoft Visual Basic for Applications.

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. انقر فوق موافق، وسيظهر مربع مطالبة آخر لتذكيرك بإدخال عنوان الرابط الجديد الذي تريد استخدامه.

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

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

إذا كنت ترغب في استبدال مسارات الروابط من تحديد معين، أوراق متعددة، المصنف الحالي أو عدة مصنفات، كيف يمكنك القيام بذلك؟ باستخدام ميزة البحث والاستبدال في Kutools لـ Excel، يمكنك التعامل مع هذه المهمة بسرعة.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. انقر فوق Kutools > التنقل، انظر لقطة الشاشة:

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

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

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

انقر لتنزيل Kutools لـ Excel لتجربة مجانية!

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