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

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

أصلح الروابط المعطلة عن طريق تطبيق تعديل الروابط

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

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

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

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

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

الآن يمكنك رؤية الحالة تغيرت من خطأ إلى OK، ثم كرر الخطوة 3 لإصلاح الروابط المعطلة الأخرى.

يقدم هنا رمز VBA الذي يمكن أن يساعدك.

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

2. ثم في ظهرت ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة لإنشاء وحدة فارغة جديدة.

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

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

إذا كان لا يزال هناك ارتباط معطل في المصنف ، فستظهر مربعات الحوار أعلاه مرة أخرى حتى يتم إصلاح جميع الروابط المعطلة.

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

معلومه- سرية: إذا كنت تريد عرض جميع الروابط الإضافية وكسر الروابط المعطلة ، كوتولس ل إكسيلالصورة البحث عن الروابط المعطلة وكسرها ستكون الميزة مساعدًا جيدًا.

للحصول على تفاصيل حول هذه الميزة ، الرجاء الضغط هنا.

للحصول على نسخة تجريبية مجانية مدتها 30 يومًا، يرجى التنزيل من هنا.

---

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

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

• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء... 

---

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

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء...