كيفية الوصل الى الارتباطات الخطأ في الملف

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

السلام عليكم ورحمة الله وبركاته وبعد :

عندي ملف كلما افتحه تاتيني رسالة تشير ان هناك في الملف ارتباطات بمصار بيانت اخرى .

سؤالي : ماذا تعني هذه وكيف اتوصل الى المشكلة في الملف واحلها

مرفق صورة من تلك الرسالة

تخياتي

Doc1.rar

[ابو تميم]

السلام عليكم

يمكن اتباع الصورة وتحرير ارتباطات الملف ومعرفة الارتباط غير الفعال والذي توجد عليه مشكلة

[الـعيدروس]

السلام عليكم

ان كان المصنف ليس به ارتباطات

اي بمعنى ليس بحاجة الارتباطات للمصنف

الطريقة الاولى من اعدادات خيارات الاكسل

ثم مركز التوثيق

ثم اعدادات مركز التوثيق

ثم المحتوى الخارجي

ثم اعدادات الامان لإرتباطات المصنف

( حفز على تعطيل التحديث التلقائي لإرتباطات المصنف )

طريقة اخرى

إستخدم هذا الكود لحذف الارتباطات

Public Sub Delet_Link()

Dim Sh As Worksheet

For Each Sh In Worksheets

Sh.Cells.Hyperlinks.Delete

Next Sh

End Sub

اوهذا الكود

End Sub

Sub Celr_Link()

Dim cell As Range

For Each cell In ActiveSheet.UsedRange

If Left(cell.Formula, 1) = "=" And InStr(cell.Formula, "[") > 1 Then

cell.Value = cell.Value

End If

Next cell

End Sub

[الشهابي]

أستاذي العزيز / العيدروس أبو نصار

بصراحة كل ما اتطلعت على ردودكم

وجدت لمسات إبداعية

فعلا أحياناً رسائل تحديث الإرتباط مزعجة

ولا تدري أين الخلية التي فيها الإرتباط

وخاصة عندما يكون الملف فيه أوراق عدة وارتباطات كثيرة

ولكن من خلال الكودين إن شاء الله يكون الحل

ولكن هل من طريقة لمعرفة الخلايا المرتبطة في الملف

وجزاكم الله خير أستاذنا

والعفو

[الـعيدروس]

السلام عليكم

الاخ الحبيب الشهابي حفظك الله

اشكرك من اعماق قلبي على كلماتك الطيبه ومروك العطر

بخصوص ماطلبته جرب الكود التالي

Sub Show_L()

Dim r, a

Dim cell As Range

r = 1

For Each cell In ActiveSheet.UsedRange

If Left(cell.Formula, 1) = "=" And InStr(cell.Formula, "[") > 1 Then

a = a & cell.AddressLocal & vbNewLine

'Cells(r, 1) = cell.AddressLocal ' لاظهار الخلايا المرتبطه في عمود معين

'r = r + 1

End If

Next cell

MsgBox a

End Sub

وهكذا لعرض مسارات الملفات المرتبطه في العمود "A"

Sub V_link()

    Dim V As Variant

    Dim i As Long

    V = ActiveWorkbook.LinkSources(xlExcelLinks)

    If Not IsEmpty(V) Then

	    For i = 1 To UBound(V)

		    Cells(i, 1).Value = V(i)

	    Next i

    End If

    Exit Sub

End Sub

او بهذه الطريقة لفتح الملفات المرتبطه مباشره

Sub opn_link()

    Dim V As Variant

    Dim i As Long

    V = ActiveWorkbook.LinkSources(xlExcelLinks)

    If Not IsEmpty(V) Then

	    For i = 1 To UBound(V)

		    Workbooks.Open Filename:=V(i)

	    Next i

    End If

    Exit Sub

End Sub

تم تعديل نوفمبر 21, 2012 بواسطه عباد

[الشهابي]

أستاذي العزيز / العيدروس أبو نصار

لا أجد أفضل من جزاك الله خير

بارك الله فيكم أستاذنا وما قصرت

[عبدالله باقشير]

السلام عليكم

احسنت اخي ابو انصار

حلول متنوعة

بارك الله فيك وجزاك خيرا

تقبل تحياتي وشكري

[saad abed]

ابوتصار

اصبحت انتظر ردودك

بسم الله ما شاء الله لا قوة الا بالله

جزاك الله خيرا وبارك فيك

[خالد الشاعر]

استاذ skyblue

http://www.officena.net/ib/index.php?showtopic=35476&hl=

اطلع على هذه الموضوع سوف تجد الحل انشاء الله

[الـعيدروس]

السلام عليكم

الاستاذ الكبير عبدالله باقشير مرورك شرف كبير واعتز به

الاخ الحبيب سعد عابد كلنا نتعلم من بعض جزاك الله كل خير

الاخ الفاضل khhanna جزاك الله خير على اثراء الموضوع

وهذا تعديل بسيط لعمل Hyperlink للوصول لخلايا الارتباط على حده في جميع الاوراق

Sub Show_L()

Dim r, a

Dim cell As Range

Dim Sh As Worksheet

r = 1

For Each Sh In ThisWorkbook.Worksheets

For Each cell In Sh.UsedRange

If Left(cell.Formula, 1) = "=" And InStr(cell.Formula, "[") > 1 Then

With ActiveSheet

With .[A1]

.Value = "مراجع خلاياالإرتباط"

.VerticalAlignment = xlCenter

.HorizontalAlignment = xlCenter

End With

With .Cells(.Rows.Count, 1).End(xlUp)(2, 1)

    .Value = Sh.Name & "!" & cell.Address

    .Hyperlinks.Add Anchor:=.Offset(0, 0), Address:="", SubAddress:=(Sh.Name) & "!" & (cell.Address)

End With

End With

End If

Next cell

Next Sh

End Sub