احمد السيد سليمان

نرجو ايضاح كيفية انهاء المشكلة وفقا لما ذكره الأخ Mas123 حسث ان المشكلة مازلت قائمة عند الدخول الى صفحة المنتديات " الصفحة الرئيسية للمنتدى " ولا تظهر المشكلة عند الدخول الى جديد الموقع

المشكلة مازالت قائمة وخصوصا فى الصفحة الرئيسية للمنتدى نرجو سرعة ايجاد حل

استاذى aah_aah2008 لك كل تحية واحترام وقد اسعدنى ان ردى يتطابق مع رد استاذى مشرف قسم الاكسيل

عمل رائع من احد اساتذة المنتدى حاولت تعديل المعادلة لتفتح ملف ولكن هناك خطأ ما لم استطع الوصول اليه وفيايلى المعادلة اسم المسار D:\Investment _ Data اسم الملف book2.xls اسم الورقة ورقة 9 ADDRESS(100,1,4,,MID(CELL("[D:\Investment _ Data\book2.xls]"!A3),FIND("]",CELL("[D:\Investment _ Data\book2.xls]"!A3))+1,256))

شاهد الملف المرفق mazan...1.rar

ارى ان يتم تقسيم الملف الى تفاصيل واجماليات وهو رأى الاستاذ يحى حسين وتجد ملف مرفق يتضمن : الورقة الاولى التفاصيل الورقة الثانية الاجماليات ويتم وضع ارقام الحسابات المرتبطة ثم يتم التجميع تلقائيا Book10.rar

الاخ يحى حسين ........اشكرك على المشاركة ولكن ..... كيف يتم تطبيق حدث فتح الصفحة.......ارجو مزيد من الايضاح وان امكن تطبيق عملى

تم ادخال تعديل على المعادلة مثال للدالة المذكورة.rar

مرفق ذات الحل الذى ارفقه احد الاعضاء بعد ادخال بعض التعديلات عليه حيث ان التعديل فى المعادلات قد يؤدى الى الخطا تاريخ.rar

برجاء الاطلاع على المرفق Book10.rar

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

هل يمكن تطوير كود الاستاذ اسامة ليشمل كل من الاعمدة والصفوف التى اجمالى قيمتها تساوى صفر

هل يمكن تطوير كود الاستاذ هادى على جميع اوراق العمل وليس ورقة واحدة

لحد علمى ان الماكرو لايعمل مع اللصق

نعم استاذ بمعنى الكلمة

مرفق ملف تلوين بالتنسيق الشرطى Book1.rar

اليك اخى موضوع قد يكون مفيد http://www.officena.net/ib/index.php?showt...02&hl=المدى

Sub sAdd() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False For i = 5 To 200 If Sheets("A1").Range("e" & i) <> "" Then Sheets("A1").Range("f" & i) = Sheets("A1").Range("e" & i) / Sheets("A1").Range("d" & i) End If If Sheets("A1").Range("e" & i) = "" Then Sheets("A1").Range("f" & i) = "" End If If Sheets("A1").Range("I" & i) <> "" Then Sheets("A1").Range("J" & i) = Sheets("A1").Range("I" & i) / Sheets("A1").Range("H" & i) End If If Sheets("A1").Range("I" & i) = "" Then Sheets("A1").Range("J" & i) = "" End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub كيف يتم تنفيذ هذا الكود على جميع اوراق العمل الموجودة بالملف دفعة واحدة بدلا من انشاء كود لكل ورقة وتعديل الكود عند اضافة اوراق جديدة

يمكن اخى تغير نهاية المدى الى اكثر من 200 وليكن مثلا 20000 وذلك حسب حجم البيانات التى تستخدمها " التجميع مرتبط بالمدى وليس بحجم البيانات اذا كانت اقل من او اكثر من 200 " كما نرجو من الاخوة الاعضاء التعديل على الكود ليعمل على مدى غير محدد يزيد وينقص حسب حجم البيانات

ارجو مزيد من الايضاح

شاهد المرفق قد يكون هذا هو المطلوب test.rar

جارى العمل على تطوير الملف ليكون متكامل

بارك الله فيك وكل عام وجميع الاعضاء بخير بمناسبة المولد النبوى هذا هو المطلوب هناك سؤال اخر كيف يتم تنفيذ هذا الكود على جميع اوراق العمل الموجودة بالملف دفعة واحدة بدلا من انشاء كود لكل ورقة

مطلوب تعديل الكود التالى ليعمل على كامل العمود وليس خلية واحدة Sub sAdd() If Sheets("1").[A1] <> "" Then Sheets("1").[c1] = Sheets("1").[A1] _ / Sheets("1").[b1] End If If Sheets("1").[A1] = "" Then Sheets("1").[c1] = "" End If End Sub بمعنى ان العمود" c" c = a/b

سوف اضع ملف جديد باذن الله به بعض التعديلات فى وقت لاحق