مساعده فى معادله لكن بشرط

[ahmed_atoon]

 

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

فى البدايه اعتذر اذا كان العنوان ليس مناسب للمضمون 

رجاء المساعده فى هذه المعادله

ملف اكسيل به 2 ورقة عمل مثال A and B

بالورقة A يوجد بعض الارقام وهكذا للورقة B

عند عمل معادله وليكن كمثال جمع الارقام بالورقتين الجمع تمام

ولكن لو تم عمل اضافه صف بالورقة الاولي A يتم ترحيل رقم الخليه وهذا خطاً

***********

هل يمكن عند اضافه الصف بالورقة A يتم اضافته بشكل تلقائي للورقة B

او تلوين الخليه التى بها معادله بالورقة B لمعرفه ان هناك تغير تم

مرفق مثال بسيط 

Book1.xlsx

[سليم حاصبيا]

المعادلة الصحيحة

=IF(SUM(A1,A!A1)=0,"",SUM(A1,A!A1))

 

[ahmed_atoon]

2 hours ago, سليم حاصبيا said:

المعادلة الصحيحة

=IF(SUM(A1,A!A1)=0,"",SUM(A1,A!A1))



شكراً لك اخي سليم

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

=IF(SUM(A4,A!A5)=0,"",SUM(A4,A!A5))

تم جمع  A4 مع  A5 واذا اضف اي رقم بالصف الجديد لاتتأثر الخلايا وايضا اريد ان اقوم بعمل شرط اذا تم اضافه صف جديد ان يقوم بتلوين الخليه A4 بالورقة B مثلاً

** ورجاء توضيح الفرق للمعادله الخاصه بك عن المعادله البسيطه بالمرفق الاول لأن الاثنين نفس الشئ حتى الان

Book1.xlsx

تم تعديل مارس 24, 2019 بواسطه ahmed_atoon

[سليم حاصبيا]

3 ساعات مضت, 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

لمعالجة هذا الأمر

ثبت العامود A لتصبح المعادلة هكذا

=IF(SUM($A1,A!$A1)=0,"",SUM($A1,A!$A1))

الفرق للمعادله الخاصه بك عن المعادله البسيطه

الفرق ان الدالة  SUM تتجاهل النصوص و الفراغات

انظر الى هذا الملف للمزيد من المعلومات

False_Sum.xlsx

[ahmed_atoon]

3 hours ago, سليم حاصبيا said:

لمعالجة هذا الأمر

ثبت العامود A لتصبح المعادلة هكذا

=IF(SUM($A1,A!$A1)=0,"",SUM($A1,A!$A1))



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

=IF(SUM($A3,A!$A3)=0,"",SUM($A3,A!$A3))

الرجاء النظر ع المرفق والتجربة عليه واذا كان لايوجد طريقه فطريقه وضع شرط اذا تم اضافه صف بالورقة
A
يتم تلوين الخليه
A4 بالورقة B

Book1.xlsx

تم تعديل مارس 24, 2019 بواسطه ahmed_atoon

[سليم حاصبيا]

ربما تعني هذا الشيء

(اذا أضفت أو حذفت صفوفاً في الصفحة B  اخرج من الصفحة ثم عد اليها لتضبط المعادلات)

 

Sum_with_rows_added.xlsm

[ahmed_atoon]

27 minutes ago, سليم حاصبيا said:

ربما تعني هذا الشيء

(اذا أضفت أو حذفت صفوفاً في الصفحة B  اخرج من الصفحة ثم عد اليها لتضبط المعادلات)

 

Sum_with_rows_added.xlsm 16.96 kB · 1 download

هو بالضبط تسلم اخي سليم

قمت بحذف هذا الكود من ال 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

[سليم حاصبيا]

يمكنك حذفه اذا اردت

انا وضعته  للتحقق من نتيجة المعادلات دون ان اذهب الى الصفحة الثانية لمعاينة الخلايا هناك

او يمكنك وضع كلمة  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]

8 hours ago, سليم حاصبيا said:

يمكنك حذفه اذا اردت

انا وضعته  للتحقق من نتيجة المعادلات دون ان اذهب الى الصفحة الثانية لمعاينة الخلايا هناك

او يمكنك وضع كلمة  Rem  أمام كل سطر منه لتعطيله عن العمل ليبدو هكذا

تمام تسلم اخي سليم

هل يوجد كود لعمل شرط بتلوين الخليه رقم 4 مثلا بالورقة B

اذا تم اضافه صف بالورقة A

تم تعديل مارس 25, 2019 بواسطه ahmed_atoon

[ahmed_atoon]

On 3/25/2019 at 12:20 AM, سليم حاصبيا said:

 

اخي سليم 

هل يوجد كود لتلوين الخليه بالورقة الثانيه اذا تم اضافه صف بالورقة الاولي

[ahmed_atoon]

Up

[سليم حاصبيا]

17 دقائق مضت, ahmed_atoon said:

Up

لا أعتقد انه بوجد  Evnent للــ Insert_row