خصم قيمة من عدة خلايا بالتتابع

[يوسف السيد]

فى الملف المرفق ادناه ... قيمة اريد ان يتم خصمها من عدة خلايا تباعاً الى تنتهى تلك القيمة

والملف به التوضيح ... وشكرا

خصم.rar

[أبو حنــــين]

حسب فهمي للسؤال تضع هذا الكود و ان كنت على خطأ يرجى التوضيح أكثر

مثال تعطي الارقام قبل العملية

ثم تعطي الناتج المتوقع من الكود

Private Sub CommandButton1_Click()

Dim cl As Range

For Each cl In Range("C3:G3")

cl.Value = Val(cl.Value - Range("A1").Value)

Next

End Sub

[ياسر خليل أبو البراء]

أخي الحبيب

جرب الملف التالي

Discount.rar

[عبدالله باقشير]

السلام عليكم

الشكر واصل لاخواني

ابو حنين - ياسر خليل

جرب هذا :

 Sub kh_Calculate()

Dim cl As Range

Dim d As Double, v As Double

'''''''''''''''''''''''''

d = Val(Range("A1"))

'''''''''''''''''''''''''

For Each cl In Range("C3:G3")

    v = Val(cl)

    If d <> 0 Then

        If d > v Then

            d = d - v: v = 0

        Else

            v = v - d: d = 0

        End If

    End If

    cl.Value = v

Next

End Sub

في امان الله

[جمال عبد السميع]

ماشاء الله أساتذتي أعمال الأساتذة تظهر من محتواها بارك الله فيكم وأثري الله بكم المكتبة العربية بهذه الكنوز

[ياسر خليل أبو البراء]

مفيش كلام بعد دا الكلام

إبداعاتك ليس لها حدود أيها المبدع دائماً

[الـعيدروس]

السلام عليكم

الاساتذه الاحبه خبور خير يوسف خليل أبو حنين حفظكم الله

جزاكم الله خير حلول متنوعه ورائعه

تقبلو مروري

[ياسر خليل أبو البراء]

مشكور على مرورك العطر أبو ناصر (المعنى في بطن الشاعر)...أهم شيء إنه يكون شاعر بالإكسيل

[عبدالله باقشير]

بارك الله فيكم الجمع المبارك

تقبلوا تحياتي وشكري

[بن علية حاجي]

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

أخي الكريم، إبداعات وأكواد رائعة من إخوان مبدعين لا يبخلون بما عندهم جازاهم الله عنا ألف خير وخير وبارك الله لهم في علمهم وفي أهليهم وفي صحتهم وجعل اليسر طريقهم إلى كل خير... وأشارك هذا الجمع الكريم بحل في الملف المرفق باستعمال المعادلات أرجو أن يجد جانبا يركن فيه بين هذه الحلول الرائعة بالأكواد....

أخوكم بن علية

خصم.rar

[ياسر خليل أبو البراء]

بارك الله فيك يا بن عليه

أنت ملك المعادلات ... جزاكم الله خيرا

[يوسف السيد]

الاخوه الافاضل :

أ-ابو حنين

أ-عبدالله باقشير

أ-ياسر خليل

أ-بن علية حاجى

وكل الاعضاء المشاركين بالموضوع

بارك الله لكم جميعا ... ورزقكم الجنة بغير حساب

[يوسف السيد]

فعلا الحلول رائعة ومتنوعة ... ولكن لى سؤال .. لماذا لا تكون تُظهر عملية الخصم الارقام بالسالب عندما تكون القيمة المطروحة اكبر من القيمة الموجودة بالخلية ولكى اكون اكثر وضوحا .. ارفقت مثال بالارقام قبل وبعد الخصم كما تفضل وطلب الاخ/ابو حنين

خصم2.rar

[أبو حنــــين]

أخي يوسف

و الله لم استوعب السؤال

الخلية A1 تحتوي علبى القيمة 1000

الخلية C3 تحتوي على القيمة 500

و انت تريد ان يظهر العدد 0 في الخلية C4

كذلك بالنسبة للخلية D3 فهي تحتوي على العدد 300 و عند الخصم تصبح الخلية D4 تساوي 0

و للخلية E3 تحتوي على العدد 100 و عند الخصم تصبح الخلية E4 تساوي -100

في الحقيقة لم افهم كيف تمت هذه العملية

رجاءا الشرح اكثر لتتضح المسألة

[يوسف السيد]

الفاضل : ابو حنين ... عذرا على الاطالة والثقل

A1 يوجد بها القيمة 1000

فى الخلية C3 يتم عمل الاتى : 1000 - قيمة الخليةA1 وهى 500 فيكون الناتج=500 ... وهنا نكون قد خصمنا كامل قيمة C3 فيتم وضع صفر مكانها

وفى الخليةD3 الاتى : ماتبقى من عملية الطرح فى A1 وهو مبلغ500 - قيمة الخلية D3 وهى 300 فيكون الناتج = 200 ... وهنا ايضا تم خصم كامل قيمة D3 فيتم وضع صفر مكانها.

وفى الخلية E3 الاتى : ما تبقى من عملية الطرح فى D3 وهو مبلغ 200 - قيمة الخلية E3 وهى 100 فيكون الناتج = -100 ... لان قيمة المبلغ المراد خصمه اكبر من قيمة الخلية E3 نفسها

اتمنى ان اكون قد وفقت فى توضيح المطلوب

وشكرا مرة اخرى لسعة صدرك يا ابو حنين

تم تعديل ديسمبر 2, 2012 بواسطه yousef_kaf