كيفية تغيير مسارات الروابط التشعبية المتعددة دفعة واحدة في 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 لتجربة مجانية!
المزيد من المقالات ذات الصلة:
- استخراج العناوين الفعلية من الروابط التشعبية
- لنفترض أن لديك نطاقًا من الخلايا التي تحتوي على روابط تشعبية، والآن تحتاج إلى رؤية الوجهة الحقيقية لهذه الروابط واستخراجها من الروابط كما هو موضح في لقطة الشاشة التالية. هل هناك طرق سهلة لحل هذه المشكلة بسرعة؟
- تحويل عناوين URL للصور إلى صور فعلية في Excel
- إذا كان لديك قائمة من عناوين URL للصور في العمود A، وتريد الآن تنزيل الصور المقابلة من عناوين URL وعرضها في العمود المجاور B كما هو موضح في لقطة الشاشة اليسرى. في Excel، كيف يمكنك استخراج الصور الفعلية من عناوين URL للصور بسرعة وسهولة؟
- تحويل نص URL إلى رابط تشعبي قابل للنقر في Excel
- لنفترض أن لديك عدة عناوين URL في ورقة العمل الخاصة بك، لكنها غير مرتبطة، والآن تحتاج إلى تحويل جميع عناوين URL غير المرتبطة إلى روابط تشعبية قابلة للنقر كما هو موضح في لقطات الشاشة التالية. بالطبع، يمكنك النقر المزدوج عليها واحدة تلو الأخرى لجعلها قابلة للنقر، ولكن هذا سيكون مضيعة للوقت إذا كان هناك الكثير من عناوين URL. كيف يمكنك تحويل عناوين URL غير المرتبطة إلى روابط تشعبية قابلة للنقر تلقائيًا في Excel؟
- فتح صفحة معينة من مستند PDF من رابط تشعبي في Excel
- عندما تقوم بربط خلية بملف PDF، عادةً ما ستنتقل إلى الصفحة الأولى من ملف PDF عند النقر لفتح الرابط التشعبي. إذا كنت بحاجة إلى الانتقال مباشرة إلى صفحة معينة من ملف PDF بالنقر على الرابط التشعبي، فقد تساعدك هذه المقالة.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد