كيفية البحث عن كافة الروابط (المراجع الخارجية) وإدراجها في Excel؟
في Excel ، يمكنك الرجوع إلى محتويات الخلايا في مصنف آخر عن طريق إنشاء مرجع خارجي. ولكن عندما تريد سرد جميع ارتباطات المصنف في Excel ، يبدو من الصعب العثور على كافة المراجع الخارجية (الارتباطات) وإدراجها. ستساعدك الطريقة الصعبة في هذه المقالة في اكتشاف كافة الارتباطات الموجودة في المصنف وإدراجها بسرعة.
ابحث عن جميع الروابط وقم بإدراجها باستخدام أمر البحث
ابحث عن كل الروابط وسردها باستخدام ماكرو VB
ابحث عن جميع الروابط وسردها باستخدام Kutools for Excel
ابحث عن جميع الروابط وقم بإدراجها باستخدام أمر البحث
لأن الروابط الخارجية تحتوي على قوس [ التوقيع ، يمكننا معرفة الروابط الخارجية إذا كان بإمكاننا الحصول على جميع علامات الأقواس في المصنف بأكمله.
1. انقر الصفحة الرئيسية > بحث وتحديد > لفتح بحث واستبدال صندوق المحادثة. يمكنك أيضًا فتح ملف بحث واستبدال مربع الحوار مع الضغط CTRL + F مفاتيح.
2. في مجلة اوجد ماذا: مربع ، أدخل الجزء الأيسر من علامة القوس "[".
3. انقر مزيد من الخيارات، في ضمن القائمة المنسدلة ، اختر ورقة or مصنف التي تريد العثور على الروابط منها. انظر لقطة الشاشة:
4. ثم انقر فوق جد كل زر. ثم يسرد جميع المراجع الخارجية في ملف بحث واستبدال مربع الحوار على الفور. صحافة CTRL + A لتحديد جميع خلايا الارتباط كما هو موضح في لقطة الشاشة التالية:
يمكن أن يكتشف الجزء الأيسر من علامة القوس الروابط الخارجية في المصنف بأكمله. إذا كنت تريد معرفة جميع أنواع الروابط ، بما في ذلك الروابط الداخلية والروابط الخارجية ، فيمكنك إدخال علامة التعجب "!"في تجد ما: صندوق.
ابحث عن كل الروابط وسردها باستخدام ماكرو VB
يمكن أن يساعدنا ماكرو VBA التالي في سرد كافة مصنفات المصدر المرتبطة في ورقة عمل جديدة من المصنف الحالي.
1. اضغط باستمرار ALT + F11 مفاتيح ، ويفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، ولصق الماكرو التالي في نافذة الوحدة النمطية.
فبا: قائمة بجميع الروابط في إكسيل.
Sub ListLinks()
Dim xSheet As Worksheet
Dim xRg As Range
Dim xCell As Range
Dim xCount As Long
Dim xLinkArr() As String
On Error Resume Next
For Each xSheet In Worksheets
Set xRg = xSheet.UsedRange.SpecialCells(xlCellTypeFormulas)
If xRg Is Nothing Then GoTo LblNext
For Each xCell In xRg
If InStr(1, xCell.Formula, "[") > 0 Then
xCount = xCount + 1
ReDim Preserve xLinkArr(1 To 2, 1 To xCount)
xLinkArr(1, xCount) = xCell.Address(, , , True)
xLinkArr(2, xCount) = "'" & xCell.Formula
End If
Next
LblNext:
Next
If xCount > 0 Then
Sheets.Add(Sheets(1)).Name = "Link Sheet"
Range("A1").Resize(, 2).Value = Array("Location", "Reference")
Range("A2").Resize(UBound(xLinkArr, 2), UBound(xLinkArr, 1)).Value = Application.Transpose(xLinkArr)
Columns("A:B").AutoFit
Else
MsgBox "No links were found within the active workbook.", vbInformation, "KuTools for Excel"
End If
End Sub
3. اضغط على F5 مفتاح لتشغيل هذا الماكرو. ثم يقوم بإنشاء ورقة عمل جديدة باسم ورقة الارتباط وسرد كافة مواقع الارتباطات وأسماء المصنفات المصدر المرتبطة وحفظ المسارات فيها مرة واحدة. انظر لقطة الشاشة:
ابحث عن جميع الروابط وسردها باستخدام Kutools for Excel
بدافع كوتولس ل إكسيلالصورة البحث عن الروابط المعطلة وكسرها، يمكنك العثور على جميع الروابط الخارجية لورقة العمل النشطة ، وفي نفس الوقت ، يمكنك كسر الروابط المحددة كما تريد.
إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. قم بتنشيط ورقة العمل التي تريد العثور على الارتباطات ، وانقر فوق كوتولس > لينك > البحث عن الروابط المعطلة وكسرها، انظر لقطة الشاشة:
2. في مجلة البحث عن الروابط المعطلة وكسرها مربع الحوار، انقر فوق منقي القائمة المنسدلة للاختيار جميع الروابط، ويتم سرد كافة الارتباطات الموجودة في ورقة العمل النشطة ، ويمكنك عرض حالة الروابط أيضًا ، OK لتقف على الرابط صالح ، خطأ يعني أن الرابط معطل.
ملاحظة:
1. إذا كان عرض الخلية يتم تحديد الخيار ، عند النقر فوق الارتباط الموجود في القائمة. سيجد وينقل إلى الخلية المحددة التي تحتوي على الرابط في ورقة العمل.
2. وإذا كنت تريد قطع ارتباط ، يمكنك تحديد الارتباط من القائمة ، ثم النقر فوق كسر الارتباط.
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
إذا كنت تريد معرفة المزيد عن هذه الميزة ، الرجاء النقر فوق البحث عن الروابط المعطلة وكسرها.
ابحث عن جميع الروابط وسردها باستخدام Kutools for Excel
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. قم بتنزيل الإصدار التجريبي المجاني الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!