ahmed_atoon قام بنشر مارس 24, 2019 قام بنشر مارس 24, 2019 السلام عليكم ورحمه الله وبركاته فى البدايه اعتذر اذا كان العنوان ليس مناسب للمضمون رجاء المساعده فى هذه المعادله ملف اكسيل به 2 ورقة عمل مثال A and B بالورقة A يوجد بعض الارقام وهكذا للورقة B عند عمل معادله وليكن كمثال جمع الارقام بالورقتين الجمع تمام ولكن لو تم عمل اضافه صف بالورقة الاولي A يتم ترحيل رقم الخليه وهذا خطاً *********** هل يمكن عند اضافه الصف بالورقة A يتم اضافته بشكل تلقائي للورقة B او تلوين الخليه التى بها معادله بالورقة B لمعرفه ان هناك تغير تم مرفق مثال بسيط Book1.xlsxFetching info...
سليم حاصبيا قام بنشر مارس 24, 2019 قام بنشر مارس 24, 2019 المعادلة الصحيحة =IF(SUM(A1,A!A1)=0,"",SUM(A1,A!A1))
ahmed_atoon قام بنشر مارس 24, 2019 الكاتب قام بنشر مارس 24, 2019 (معدل) في 24/3/2019 at 11:13, سليم حاصبيا said: المعادلة الصحيحة =IF(SUM(A1,A!A1)=0,"",SUM(A1,A!A1)) Expand شكراً لك اخي سليم ولكن عند اضافه صف جديد بالورقة A اصبحت المعادله بهذا الشكل =IF(SUM(A4,A!A5)=0,"",SUM(A4,A!A5)) تم جمع A4 مع A5 واذا اضف اي رقم بالصف الجديد لاتتأثر الخلايا وايضا اريد ان اقوم بعمل شرط اذا تم اضافه صف جديد ان يقوم بتلوين الخليه A4 بالورقة B مثلاً ** ورجاء توضيح الفرق للمعادله الخاصه بك عن المعادله البسيطه بالمرفق الاول لأن الاثنين نفس الشئ حتى الان Book1.xlsxFetching info... تم تعديل مارس 24, 2019 بواسطه ahmed_atoon
سليم حاصبيا قام بنشر مارس 24, 2019 قام بنشر مارس 24, 2019 في 24/3/2019 at 12:25, ahmed_atoon said: شكراً لك اخي سليم ولكن عند اضافه صف جديد بالورقة A اصبحت المعادله بهذا الشكل =IF(SUM(A4,A!A5)=0,"",SUM(A4,A!A5)) تم جمع A4 مع A5 واذا اضف اي رقم بالصف الجديد لاتتأثر الخلايا وايضا اريد ان اقوم بعمل شرط اذا تم اضافه صف جديد ان يقوم بتلوين الخليه A4 بالورقة B مثلاً ** ورجاء توضيح الفرق للمعادله الخاصه بك عن المعادله البسيطه بالمرفق الاول لأن الاثنين نفس الشئ حتى الان Book1.xlsx 9.63 \u0643\u064a\u0644\u0648 \u0628\u0627\u064a\u062a · 1 download Expand لمعالجة هذا الأمر ثبت العامود A لتصبح المعادلة هكذا =IF(SUM($A1,A!$A1)=0,"",SUM($A1,A!$A1)) الفرق للمعادله الخاصه بك عن المعادله البسيطه الفرق ان الدالة SUM تتجاهل النصوص و الفراغات انظر الى هذا الملف للمزيد من المعلومات False_Sum.xlsxFetching info...
ahmed_atoon قام بنشر مارس 24, 2019 الكاتب قام بنشر مارس 24, 2019 (معدل) في 24/3/2019 at 15:26, سليم حاصبيا said: لمعالجة هذا الأمر ثبت العامود A لتصبح المعادلة هكذا =IF(SUM($A1,A!$A1)=0,"",SUM($A1,A!$A1)) Expand للأسف نفس المشكلة فقد جربت التثبيت بوضع علامه $ قبل فتح الموضوع هنا =IF(SUM($A3,A!$A3)=0,"",SUM($A3,A!$A3)) الرجاء النظر ع المرفق والتجربة عليه واذا كان لايوجد طريقه فطريقه وضع شرط اذا تم اضافه صف بالورقة A يتم تلوين الخليه A4 بالورقة B Book1.xlsxFetching info... تم تعديل مارس 24, 2019 بواسطه ahmed_atoon
سليم حاصبيا قام بنشر مارس 24, 2019 قام بنشر مارس 24, 2019 ربما تعني هذا الشيء (اذا أضفت أو حذفت صفوفاً في الصفحة B اخرج من الصفحة ثم عد اليها لتضبط المعادلات) Sum_with_rows_added.xlsmFetching info... 1
ahmed_atoon قام بنشر مارس 24, 2019 الكاتب قام بنشر مارس 24, 2019 (معدل) في 24/3/2019 at 19:50, سليم حاصبيا said: ربما تعني هذا الشيء (اذا أضفت أو حذفت صفوفاً في الصفحة B اخرج من الصفحة ثم عد اليها لتضبط المعادلات) Sum_with_rows_added.xlsm 16.96 kB · 1 download Expand هو بالضبط تسلم اخي سليم قمت بحذف هذا الكود من ال VBA لعدم وضع عامود اخر ام له فائده .Range("f:f").Clear .Range("f1") = "Values in sheet A" .Range("f1").Interior.ColorIndex = 6 .Range("g:g").ClearContents .Range("g1").Resize(Last_row).Value = _ Sheets("A").Range("a1").Resize(Last_row).Value وتم تجربه الملف بعد ذلك واشتغل تمام لو امكن بدون تعب ان الصف اللي بينزل اوتوماتيك فى الورقه B | ياخد شرط بلون علشان اعرف ان فى صف نزل علشان الملف اللى بشتغل عليه كبير هل يوجد اي تعديل بكود VBA اذا كانت بيانات مثلا 4 AI , BR الخلايا مختلفه او المعادله مختلفه عن الجميع فقط لان الجمع هنا كمثال ولو شرح سريع لكود ال VBA 🙂 تم تعديل مارس 24, 2019 بواسطه ahmed_atoon
سليم حاصبيا قام بنشر مارس 24, 2019 قام بنشر مارس 24, 2019 يمكنك حذفه اذا اردت انا وضعته للتحقق من نتيجة المعادلات دون ان اذهب الى الصفحة الثانية لمعاينة الخلايا هناك او يمكنك وضع كلمة Rem أمام كل سطر منه لتعطيله عن العمل ليبدو هكذا Rem.Range("f:f").Clear Rem.Range("f1") = "Values in sheet A" Rem.Range("f1").Interior.ColorIndex = 6 Rem.Range("g:g").ClearContents Rem.Range("g1").Resize(Last_row).Value = _ Sheets("A").Range("a1").Resize(Last_row).Value
ahmed_atoon قام بنشر مارس 25, 2019 الكاتب قام بنشر مارس 25, 2019 (معدل) في 24/3/2019 at 21:20, سليم حاصبيا said: يمكنك حذفه اذا اردت انا وضعته للتحقق من نتيجة المعادلات دون ان اذهب الى الصفحة الثانية لمعاينة الخلايا هناك او يمكنك وضع كلمة Rem أمام كل سطر منه لتعطيله عن العمل ليبدو هكذا Expand تمام تسلم اخي سليم هل يوجد كود لعمل شرط بتلوين الخليه رقم 4 مثلا بالورقة B اذا تم اضافه صف بالورقة A تم تعديل مارس 25, 2019 بواسطه ahmed_atoon
ahmed_atoon قام بنشر مارس 27, 2019 الكاتب قام بنشر مارس 27, 2019 في 24/3/2019 at 21:20, سليم حاصبيا said: Expand اخي سليم هل يوجد كود لتلوين الخليه بالورقة الثانيه اذا تم اضافه صف بالورقة الاولي
سليم حاصبيا قام بنشر مارس 29, 2019 قام بنشر مارس 29, 2019 في 29/3/2019 at 22:16, ahmed_atoon said: Up Expand لا أعتقد انه بوجد Evnent للــ Insert_row
الردود الموصى بها