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

ما هو كود الجمع المتراكم


alaamun

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

السلام عليكم

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

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

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

السلام عليكم

اخي الفضل

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

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

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

مرفق مثال

تحياتي

______.rar

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

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

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

السلام عليكم

بعد اذن اخي عادل

اخي alaamun مرفق ملف بتعديل بسيط لماقام به الاخ عادل جزاه الله خيرا

مع الشكر

ابو خالد

____________________.rar

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

السلام عليكم

اخي الفضل

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

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

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

مرفق مثال

تحياتي

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

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

السلام عليكم

اخي 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...

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

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

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

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

السلام عليكم

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

اخي ghazi1

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

اخي rashad

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

خالص تحياتي

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

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

____________1.rar

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

أخى عادل

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

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

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

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

  • 14 years later...

اخي عادل انت مبدع اريد رصيد تراكي بحيث عندما اضيف قيمة في الخلية A تضاف في الخليةB وعند مسح القيمة في الخلية A تبقى نفس القيمة في الخلية B وهكذا شكرا مسبقا

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

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