استفسار : ضبط الاعدادات التلقائية عند اضافة صف

[hzzan]

السلام عليكم ..

لدي ملف بسيط لحساب الايرادات والمصروفات والناتج المتبقي في الخزينة (الرصيد) ..

ولكن الملف بعدد محدد من الصفوف وفي كل مرة أضيف صف لابد ان ادخل العملية الحسابية للرصيد..

كيف يمكنني أن أضيف صف جديد ويأخذ نفس العملية الحسابية .؟!!

الاعمدة كالتالي :
A التاريخ
B البيان
C الإيرادات
D المصروفات
E الرصيد
F ملاحظات

العمليات في الصفوف كالتالي :
1 عنوان الكشف
2 ادخال التاريخ والبيان والإيرادات فقط ، والرصيد هو نفس القيمة المدخلة في الإيرادات.
3 ادخال التاريخ والبيان والإيرادات أو المصروفات ، الرصيد3 يكون كالتالي :

(الرصيد2+الإيرادات3-المصروفات3)SUM=

المشكلة عندي هي عند إضافة صف جديد مثلاً 4 أو غيره لابد أن ادخل العملية الحسابية السابقة مع تغيير الرقم 3 إلى 4 لتتوافق مع الصف4 وهكذا في كل صف يتم ادراجه .

فكيف يمكنني أن أجعل أي إضافة صف تأخذ هذه العملية (رصيد الصف السابق+الإيراد الحالي للصف الجديد-المصروف الحالي للصف الجديد) بشكل تلقائي ..؟

شكر الله سعي الجميع وبارك فيكم..

 

 

للتوضيح أكثر الملف في الرابط التالي :

http://www.mediafire.com/download/tyzvl9b9jj300bt/%D8%A8%D9%8A%D8%A7%D9%86+%D8%A8%D8%A7%D9%84%D8%A7%D9%8A%D8%B1%D8%A7%D8%AF%D8%A7%D8%AA+%D9%88%D8%A7%D9%84%D9%85%D8%B5%D8%B1%D9%88%D9%81%D8%A7%D8%AA.xlsx
 

محبكم / ياسر حسين

[ياسر العربى]

هذه الميزة توجد في الجداول قم بادارج جدول واكتب معادلاتك وسترى كيف تتكرر المعادلة لكل صف

تفضل المرفق به طريقتين لحل  مشكلتك في شيت2 وشيت3

 

 

بيان بالايرادات والمصروفات.rar

[عبدالسلام ابوالعوافي]

قمت بالرد علي المشاركة ولم اجد ردي .. يبدو بان خطأ ما قد حصل 

اكرر

اجمالي المصروفات

=SUM(C4:INDIRECT("C"&ROW()-2))

اجمالي الايرادات

=SUM(D3:INDIRECT("D"&ROW()-2))

اما بالنسبة لاضافة صفوف جديدة هناك طريقتين 

الاولى يدوية وهي كالاتي

حدد الصف الاخير في الجدول الذي يحتوي بيانات " الصف رقم 7"

ضع الموشر علي حد التحديد حتى يظهر شكل اربع اسهم

اضغط كنترول وشفت ثم اسحب التحديد للاسف قليلا حتى يحدث تغيير طفيف علي شكل التحديد

قم بالافلات .. ستلاحظ ادراج صف جديد 

الطريقة الثانية عن طريق الكود .. اذا لم تنجح معك الطريقة الاولى وتريد كود ساقوم بعمله لك

تحياتي

[hzzan]

3 ساعات مضت, ياسر العربى said:

هذه الميزة توجد في الجداول قم بادارج جدول واكتب معادلاتك وسترى كيف تتكرر المعادلة لكل صف

تفضل المرفق به طريقتين لحل  مشكلتك في شيت2 وشيت3

 

بيان بالايرادات والمصروفات.rar

شكر الله لك يا استاذ ياسر وبارك فيك 

11 دقائق مضت, عبدالسلام ابوالعوافي said:

قمت بالرد علي المشاركة ولم اجد ردي .. يبدو بان خطأ ما قد حصل 

اكرر

اجمالي المصروفات

=SUM(C4:INDIRECT("C"&ROW()-2))

اجمالي الايرادات

=SUM(D3:INDIRECT("D"&ROW()-2))

اما بالنسبة لاضافة صفوف جديدة هناك طريقتين 

الاولى يدوية وهي كالاتي

حدد الصف الاخير في الجدول الذي يحتوي بيانات " الصف رقم 7"

ضع الموشر علي حد التحديد حتى يظهر شكل اربع اسهم

اضغط كنترول وشفت ثم اسحب التحديد للاسف قليلا حتى يحدث تغيير طفيف علي شكل التحديد

قم بالافلات .. ستلاحظ ادراج صف جديد 

الطريقة الثانية عن طريق الكود .. اذا لم تنجح معك الطريقة الاولى وتريد كود ساقوم بعمله لك

تحياتي

أستاذ عبدالسلام ..

أشكر لك ايضاحك ..

 

ولكن المشكلة ليست في ناتج اجمالي المصروفات واجمالي الايرادات ...

 

انما في معادلة الرصيد في كل صف لأن العملية مرتبطة بمحصلة (الرصيد في الصف السابق+ايرادات الصف الحالي-مصروفات الصف الحالي )..

والإشكال كيف اجعل المعادلة تلقائية بحيث عند اضافة صف جديد يأخذ نفس العملية ..

 

اردت التعلم والمعرفة سواءٌ بالطريقة اليدوية أو بكتابة الكود ..

 

وأسأل الله أن يبارك في علم الجميع ..

[عبدالسلام ابوالعوافي]

الطريقة اليدوية اعلاه .. اما الكود فهو كالاتي

    Dim lstRow As Integer
    lstRow = Cells(Rows.Count, "C").End(xlUp).Row - 1
    Rows(lstRow - 1).Select
    Selection.Copy
    Rows(lstRow).Select
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
    Range("A" & lstRow & ":D" & lstRow & ", F" & lstRow).ClearContents

 

[hzzan]

شكر الله لك يا أستاذ عبدالسلام..