معادلة أو كود يحافظ على قيمة الخلية (Historique)

[aspiran]

السلام عليكم

ممكن مساعدة في إيجاد معادلة أو كود يحافظ على قيمة الخلية  (Historique) بحيث تبقى الخلية محافظة على كل القيم التي أدخلت في أحد الخلايا المرتبطة بها

مثال

لدينا الخلية A1 و الخلية  B1  و الخلية C1

عند إدخال قيمة في الخلية B1  تخزن في الخلية  C1 تلقائيا مع إفتراض أن A1 تحتوي على قيمة < 0

في مرحلة ثانية قمت بإدخال قيمة ثانية في B1  فتخزن القيمة الثانية في الخلية C1
مضافة إليها القيمة الأولى وهكذا مع كل قيمة تسجل في الخلية B1  تخزن في الخلية C1
مضافة لها Historique    جيد

وهنا تأتي العلاقة مع الخلية A1 بحيث إذا كانت الخلية A1 =0 تحذف كل العمليات السابقة ونكون أمام Historique جديد

أرجو أن يكون الشرح مفهوما وجزاكم الله خيرا

 

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

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

والنتيجة المرجوة سيكون أدق وأسرع

تقبل تحياتى

[aspiran]

  تفضل أخي

عبد السميع

الشرح اتمنى أن يكون الشرح واضحا وجزاك الله خيرا

[aspiran]

 تفضل أخي المرفق

Historique.rar

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

السلام عليكم

ضع هذا الكود في موديل ورقة1

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("b1").Address Then
    Range("C1") = Val(Range("C1")) + Val(Target)
End If
End Sub

تحياتي

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

ماشاء الله عليك أستاذى دائما أعمالك تنطق بعبقريتك

أليك أخى المرفق بكود بروفيسير منتدانا

Historique.rar

[aspiran]

السلام عليكم

بارك الله فيكما أخواي

جمال عبد السميع عبدالله باقشير

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

بارك الله فيكم و جزاكم الله خيرا

Historique2.rar

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

السلام عليكم

جرب هذا الكود

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim iRow As Integer
If Not Intersect(Target, Range("B1:B50")) Is Nothing Then
    iRow = Target.Row
    Cells(iRow, "C") = Val(Cells(iRow, "C")) + Val(Target)
End If
''''''''''''''''''''''''
If Not Intersect(Target, Range("A1:A50")) Is Nothing Then
    iRow = Target.Row
    If Val(Target) = 0 Then
        Cells(iRow, "C") = ""
    End If
End If

End Sub

[aspiran]

تحية عسكرية إليك أستاذي

   عبدالله

كود و لا أروع  بارك الله فيك  وجزاك الله خيرا 

تم تعديل أبريل 18, 2013 بواسطه عبد الغني(aspiran)

[خالد القدس]

السلام عليكم<br /><br />فعلا الاكواد الخيبورية ملهاش حل<br /><br />بارك الله فيك استاذ خبور<br />

[aspiran]

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

 

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

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

أضع بين ايديكم مرفقا لمن اراد المساعدة

جزاكم الله خيرا

[aspiran]

المرفق

[aspiran]

لم أتمكن من إرفاق الملف على المنتدى فأرفقته على الرابط

 

http://www.4shared.com/rar/vjstmizo/moyenne.html

 

[aspiran]

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

نتيجة لخلل تقني في المنتدى فقد أضفت عدة مشاركات لهذا الموضوع إعتقادا مني أن المشاركات لم تحفظ إلا أنه بعد أكثر من 05 دقائق وجدت أن المشاركات قد حفظت لكن بدون مرفقات فوضعت رابط للمرفق أرجو أن اتلقى إجابة على موضوعي

[aspiran]

هل من مجيب

[aspiran]

السلام عليكم

أرقني كود حساب المتوسط ياجماعة هل من خبير