Excel: كيفية إصلاح الروابط التالفة

في Excel، تُستخدم الروابط إلى مصنفات أخرى غالبًا للإشارة إلى معلومات ذات صلة. لكن إذا تم إعادة تسمية مصنف المصدر أو نقله إلى موقع مختلف، فقد تنقطع هذه الروابط وتؤدي إلى أخطاء. يقدم هذا البرنامج التعليمي طريقتين فعالتين — استخدام ميزة «تحرير الروابط» أو كود VBA — لتحديد الروابط التالفة وإصلاحها بسرعة في مصنفك.

إصلاح الروابط التالفة باستخدام ميزة تحرير الروابط

إصلاح الروابط التالفة باستخدام كود VBA

في Excel، يمكنك الانتقال إلى مربع حوار «تحرير الروابط» لإصلاحها واحدة تلو الأخرى.

1. فعّل المصنف الذي يحتوي على الروابط التالفة، ثم انقر علىبيانات > تحرير الروابط(ضمن مجموعة)الاستعلامات والاتصالات).

2. في مربع حوارتحرير الروابط، انقر علىفحص الحالةلمعرفة الروابط التالفة.
 

3. بعد ذلك، انقر على الرابط التالف، ثم اضغط على زرتغيير المصدر. في نافذةتغيير المصدر، اختر مصنف المصدر الصحيح، ثم انقر علىموافق.

يمكنك الآن رؤية أن الحالة قد تغيّرت منخطأإلىموافق. كرّر الخطوة 3 لإصلاح الروابط التالفة الأخرى.

يعرض هذا القسم كود VBA المُعد لمساعدتك في إصلاح الروابط التالفة.

1. فعّل المصنف الذي تريد إصلاح الروابط التالفة فيه، ثم اضغط على مفاتيحAlt+F11.

2. بعد ذلك، في نافذةMicrosoft Visual Basic for Applications المنبثقة، انقر علىإدراج > وحدة نمطيةلإنشاء وحدة نمطية فارغة جديدة.

3. انسخ والصق الكود أدناه في الوحدة النمطية الجديدة.

VBA: إصلاح الروابط التالفة

Sub ResetInvalidLinks()
'UpdatedbyExtendoffice20220701
Dim xWB As Workbook
Dim xLks As Variant
Dim xFNum, xStatus As Integer
Dim xStrLk, xLinAddress As String
Dim xF
Dim xLk
Set xWB = Application.ActiveWorkbook
xLks = xWB.LinkSources(xlExcelLinks)
If IsEmpty(xLks) Then
    MsgBox "Select updated source"
    Exit Sub
End If
On Error Resume Next
For xFNum = LBound(xLks) To UBound(xLks)
    xStrLk = xLks(xFNum)
    xStrLk = Right(xStrLk, Len(xStrLk) - InStrRev(xStrLk, "\"))
    xStatus = ActiveWorkbook.LinkInfo(xStrLk, xlLinkInfoStatus)
    If xStatus <> 0 And xStatus <> 3 Then
        MsgBox xStrLk & " the link is broken, please select new source"
        xF = Application.GetOpenFilename()
        If xF <> "" Then
            For Each xLk In ActiveSheet.UsedRange.Hyperlinks
                xLinAddress = Right(xLk.Address, Len(xLk.Address) - InStrRev(xLk.Address, "\"))
                    If InStr(xStrLk, GetAddress) <> 0 Then
                        ActiveSheet.Hyperlinks.Add Anchor:=xLk.Range, Address:=xF
                    End If
            Next
            ActiveWorkbook.ChangeLink xLks(xFNum), xF, xlLinkTypeExcelLinks
        End If
        End If
    Next
End Sub

4. اضغط على مفتاحF5 أو زرتشغيل لتنشيط الكود. سيبدأ الآن بالبحث عن أي روابط تالفة. إذا وُجدت روابط تالفة، فستظهر نافذة منبثقة لإعلامك بها، ويُرجى تحديد مصدر جديد. انقر علىموافقللمتابعة.

5. في نافذةفتح، اختر المصدر المحدَّث، ثم انقر علىموافق.

إذا بقي أي رابط تالف في المصنف، فستظهر النوافذ السابقة مجددًا حتى يتم إصلاح جميع الروابط غير الصالحة.

ملاحظة: في حال عدم وجود أي روابط تالفة في المصنف، سيتوقف كود VBA عن العمل فور الانتهاء من التشغيل.

تلميح: إذا كنت ترغب في عرض جميع الروابط الخارجية وكسر الروابط التالفة، فإن ميزةKutools لـ Excelالخاصة بـالعثور على الروابط وكسرهاستكون خيارًا مثاليًا.

لمعرفة المزيد عن هذه الميزة، يُرجىالاطلاع على برنامجنا التعليمي التفصيلي.

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

• حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
• برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
• يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
• تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
• أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...