مطلوب كود يدخل معادلات في الملف المرفق

[خالدو]

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

 

ارجو التكرم والمساعدة بادراج معادلات في الاعمدة الثلاثة الموضحة بالملف المرفق بالاكواد يكون افضل.

وجزاكم الله خيراً.

Book1.zip

تم تعديل فبراير 27, 2014 بواسطه خالدوكوم

[klma7lwa]

تفضل اخى الكريم الروابط بالنسبة للملف الاول 

='C:\Docs\2011\Dec-201313\files\[330904 DEC-13.xlsx]sheet1'!$C$37
='C:\Docs\2011\Dec-201313\files\[330904 DEC-13.xlsx]sheet1'!$E$42
='C:\Docs\2011\Dec-201313\files\[330904 DEC-13.xlsx]sheet1'!$E$73

ويمكنك تكرار الارتباط بعاليه مع تغير اسم ملف الارتباط

 

 

كما يمكنك ايضا من عمل ذلك بكل سهولة من خلال فتح الملف الذى به القيمة والملف المراد ان يظهر به القيمة(الملف الذى ارفقته انت)

فى الملف المراد ان يظهر به القيمة(الملف الذى ارفقته انت) وفى الخلية المراد ان يظهر بها الارتباط اضغط = ثم ادخل للملف الاصلى للقيمة وقم بالوقوف على الخلية المراد اظهار قيمتها ثم اضغط انتر

[خالدو]

جزاك الله خيراً اخي الكريم ولكن ليس هذا ما اريده ... ممكن اعمل ربط مباشر بالملفات ولكن هذه القيم "الوصلات " متغيرة وليست ثابتة كما انها تبلغ 32154 صف "ملف" 

 

لو ممكن كود يعالج الموضوع بحيث يتعامل مع الوصلة:

 

C:\Docs\2011\Dec-201313\files\330909 Dec-13.xlsm

 

ويدرج عليها اسم الورقة والخلية

 

اكرر الشكر والدعاء لك.

[خالدو]

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

 

وجدت الحل بفضل الله من أحد المنتديات وأحببت مشاركته مع اخواني الاعزاء في هذا المنتدى العظيم لعله ينفع :

    Option Explicit
    Sub GetDataDemo()
         
        Dim FilePath$, FileName$, i&
        Const SheetName$ = "Form"
         
        Application.ScreenUpdating = False
         
        For i = 9 To Cells(Rows.Count, "C").End(xlUp).Row
            FilePath = Left(Cells(i, "C"), InStrRev(Cells(i, "C"), "\"))
            FileName = Mid(Cells(i, "C"), InStrRev(Cells(i, "C"), "\") + 1)
            Cells(i, "G") = GetData(FilePath, FileName, SheetName, "$C$73")
            Cells(i, "H") = GetData(FilePath, FileName, SheetName, "$E$42")
            Cells(i, "I") = GetData(FilePath, FileName, SheetName, "$E$73")
        Next i
    End Sub
    Private Function GetData(Path, File, Sheet, Address) 
        Dim Data$ 

    Data = "'" & Path & "[" & File & "]" & Sheet & "'!" & _    Range(Address).Range("A1").Address(, , xlR1C1

    GetData = ExecuteExcel4Macro(Data)