حول خصم القيم من الخلايا

[abdulwhab]

السلام عليكم

عندي خلية بها قيمة عددية وجعلتها في الخلية e9

وعملت خلية اخرى في e10

واوجدت خلية ثالثة في g14 وصيغتها =E9-E10

اذكانت الخلية e9=20

و e10=2

فان الناتج بكل تاكيد في g14 =18 هذه سهلة

ما اريده اخواني ان تثبت القيمة في الخلية g14 بعد كل عملية خصم لاني عندما اصفر

القيمة في الخلية e10 ترجع

قيمة الخلية g14 الى عشرين وهذا لا اريده

ان شاء الله نجد حل لديكم

والمثال بالاسفل

http://www.ajaad.com/g/book.zip

تحياتي للجميع

تم تعديل أغسطس 30, 2003 بواسطه abdulwhab

[امير عاطف]

الأخ abdulwhab :

قم بفتح محرر ال VBE عن طريق الضغط على مفتاحي ALT + F11 بعد ذلك سوف تجد على يمينك الكائنات المتاحة بدفتر العمل ..ثم قم بعمل نقرة مزدوجة على الكائن Sheet1(ورقة1) بعد ذلك قم بلصق الكود التالي .... وان شاء الله كل شيء بعد ذلك يكون على ما يرام

Private Sub Worksheet_Change(ByVal Target As Range)

If IsNull(Me.Range("e10")) Or Me.Range("e10") = 0 Then

Exit Sub

Else

Me.Range("g14").Value = Me.Range("e9") - Me.Range("e10")

End If

End Sub

[abdulwhab]

مشكور اخوي امير :yess: بارك الله فيك والحمد لله كل شي على ما يرام الآن

يا ليت اخي لو شرح بسيط للكود ولا عليك امر :d

تحياتي

[امير عاطف]

فكرة الكود قائمة على انه اذا كانت قيمة الخلية e10 غير فارغة وايضاً لا يوجد بها قيمة صفريه فيتم اجراء المعادلة في الخلية g14

= E9 - E10

اما اذا كانت قيمة الخلية e10 قيمة صفريه او قيمة فارغة فلا يتم اجراء المعادلة وكأنها غير متواجدة

[abdulwhab]

شكرا على المساعدة وجزاك الله خير