اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


خالدو

الردود الموصى بها

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

 

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

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

Book1.zip

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

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

='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) 
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information