اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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


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

رابط هذا التعليق
شارك

السلام عليكم

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

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

جرب هذا :


 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 نفسها

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

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

تم تعديل بواسطه yousef_kaf
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information