اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

ما هو كود الجمع المتراكم .... اعني مثلا لو قمت بادخال الرقم 10 في الخلية A1 و بعدها اقوم بادخال 4 في B2 فان الناتج في B2 يطبع 14 و عند كتابة 6 في C3 يطبع فيها 20

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

قام بنشر

السلام عليكم

اخي الفضل

الجمع التراكمي هو ان تكون هناك خلية تجمع مايكتب في خليه او خلايا اخري

و ان تم مسح بيانات الخلية الاخري لايتم مسح ما سجل بهذه الخلية

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

مرفق مثال

تحياتي

______.rar

قام بنشر

شكرا جزيلا يا اخي لكن ليس ها المطلوب فانا لا اريد ان افقد المعلومات القديمه ..... الذي اسال عنه هوة ان يتم الجمع بشكل متسلسل و ان يتم في نفس الخلية التي اقوم بالكتابة فيها اي اذا كان قبلها رقم 3 و اكتب فيها 2 يطبع تلقائيا 5 و هكذا ... شكرا

قام بنشر
السلام عليكم

اخي الفضل

الجمع التراكمي هو ان تكون هناك خلية تجمع مايكتب في خليه او خلايا اخري

و ان تم مسح بيانات الخلية الاخري لايتم مسح ما سجل بهذه الخلية

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

مرفق مثال

تحياتي

برجاء الشرح مشكور

قام بنشر (معدل)

السلام عليكم

اخي alaamun

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

اخي abouelhssan

Private Sub Worksheet_Change(ByVal Target As Range) في حدث التغيير بالشيت

On Error Resume Next الاستمرا عند مقابلة خطأ

Application.EnableEvents = False لايقاف استمرار الحدث

If Target.Column < 3 Then Exit Sub يتم توقف الكود اذا كانت الخلية المحدده تقع في عمود قبل العمود الثالث

If Target.Column > 32 Then Exit Sub يتم توقف الكود اذا كانت الخلية المحدده تقع في عمود بعد العمود الثاني و الثلاثون

m = Target.Value تعريف نخزن به قيمة الخلية المحددة اذا انطبق عليها الشروط السابقة

Target.Value = m + Cells(Target.Row, Target.Column - 1).Value قيمة الخلية المحددة يساوي قيمة المعرف السابق و هو M يضاف اليه قيمة الخلية التي في صف الخلية المحددة و العمود الذي قبلها مباشرة

Application.EnableEvents = True لاعادة تشغيل ما تم ايقافه سابقا

End Sub انتهاء الكود

تحياتي

alaa113.rar

تم تعديل بواسطه aah_aah2008
قام بنشر

جزاكم الله كل خير على هذا التعاون

والشكر للأخ aah_aah2008 على شرح الكود لأنه في هذه الحالة استطيع ان اقول بأنني

فهمت منطقية وتسلسل الكود

قام بنشر

السلام عليكم

اضافة للفائدة

هذا الكود

m = Target.Value تعريف نخزن به قيمة الخلية المحددة اذا انطبق عليها الشروط السابقة
Target.Value = m + Cells(Target.Row, Target.Column - 1).Value قيمة الخلية المحددة يساوي قيمة المعرف السابق و هو M يضاف اليه قيمة الخلية التي في صف الخلية المحددة و العمود الذي قبلها مباشرة
يختصر ب
Target.Value = Target.Value+ Cells(Target.Row, Target.Column - 1).Value

يعني المتغير ما له داعي

تحياتي

  • 4 weeks later...
قام بنشر

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

شاكرا للاخوان مجهوداتهم في الموقع ، ولكن سوالى كيف يتم عمل تجميع تراكمي مثل كشف الحساب

مثال :

A1-B1=C1

=C1+A2-B2

وهكذا ولكم جزيل الشكر

قام بنشر

السيد Adel.Hanafy المحترم

دائما مبدع في طرح والتعلم يعود لكم أشكركم على الملف المرسل مع تكرم بسيط أن يكون عامود A - عامود B وبنفس السياق الموجود في الملف

شكرا جزيلا لك على علمك الذي لا تبخل بة وتواصلك

قام بنشر
السلام عليكم

اولا الشكر واصل لجميع الاخوان

اخي ghazi1

برجاء ارسال الملف علي اكسل 2003

اخي rashad

مرفق ملف اتمني ان يكون ما تقصده

خالص تحياتي

هذا الملف بالاكسل 2003

ارجو الاخ aah_aah2008 المساعدة في هذا الموضوع

____________1.rar

قام بنشر
السلام عليكم

اخي ghazi1

ارجو ان يكون هذا هو المطلوب

تحياتي

شكر ا جزيلا علي ذلك اف شكر :clapping:

قام بنشر

أخى عادل

جزاك اللة كل خير وجعلة في ميزان حسناتك كونك لا تبخل بعلمك

أخى عادل سؤالى لك كيف يتم عمل الجمع التراكمي من خلال البوفت تيبل للأهمية حيث أريد أن يكون البيفت تيبل يظهر كل سطر المدين والدائن والرصيد وعند الأنتهاء من خلال سطر فارغ يتم عمل جمع مرة أخرى

مع الشكر الجزيل

قام بنشر

السلام عليكم

اخي rashad

عذرا ليس ليس لدي الخبره بهذه الجداول و يمكنك كرح السؤال

مرة اخري بشكل منفصل و ستجد الاجابه ان شاء الله

تحياتي

  • 14 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information