KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تحسب المجموع التراكمي (الإجمالي المتراكم) لعمود في Excel؟

المؤلفXiaoyangتاريخ التعديل

في تحليل البيانات، قد يكون تتبع كيفية تراكم القيم بمرور الوقت أو عبر الإدخالات أمرًا بالغ الأهمية. يُمكّنك المجموع التراكمي، المعروف أيضًا بالإجمالي المتراكم، من مراقبة إجمالي الأرقام في تسلسل بشكل مستمر، مع تحديث تلقائي فور إضافة إدخالات جديدة. ويُعد هذا الأسلوب مفيدًا بشكل خاص في دفاتر الحسابات المالية، وإدارة المخزون، وتتبع المبيعات، أو أي مهمة يكتسب فيها الإجمالي التدريجي أهمية قصوى. في هذه المقالة، ستجد حلولًا تفصيلية خطوة بخطوة لحساب الإجماليات المتراكمة في ورقة عمل Excel الخاصة بك، إلى جانب نصائح عملية وملاحظات وإرشادات استكشاف الأخطاء وإصلاحها المصممة خصيصًا لسيناريوهات العالم الحقيقي الشائعة.

حساب المجموع التراكمي أو الإجمالي المتراكم لعمود باستخدام الصيغ

رمز VBA - أتمتة حساب المجموع التراكمي لمجموعات البيانات الديناميكية أو النطاقات الكبيرة


حساب المجموع التراكمي أو الإجمالي المتراكم لعمود باستخدام الصيغ

للحصول على المجموع التراكمي لبيانات العمود في Excel، استخدم صيغًا مباشرة تحسب الإجمالي المتراكم تلقائيًا كلما أدخلت قيمًا جديدة.

1. أدخل هذه الصيغة: =SUM($B$2:B2) في خلية فارغة بجانب بياناتك (على سبيل المثال، إذا كانت أرقامك في العمود B بدءًا من الصف 2، فأدخل الصيغة في الخلية C2)، كما هو موضح في لقطة الشاشة:

أدخل صيغة لحساب المجموع التراكمي

2. اضغطEnter لتأكيد الصيغة. ستعرض الخلية الآن المجموع التراكمي حتى ذلك الصف. ولتطبيق هذا الحساب على صفوف إضافية، حدد الخلية التي تحتوي على الصيغة، ثم اسحب مقبض التعبئة (المربع الصغير في الزاوية السفلية اليمنى للخلية النشطة) لأسفل لتعبئة الخلايا الإضافية حسب الحاجة. انظر لقطة الشاشة:

اسحب واملأ الصيغة في الخلايا الأخرى

ملاحظة: بشكل افتراضي، ستستمر الصيغة أعلاه في عرض آخر إجمالي محسوب حتى في الصفوف التي يكون فيها العمود B فارغًا، وقد يؤدي ذلك أحيانًا إلى لبس عند مراجعة النتائج أسفل بيانات الإدخال الخاصة بك. وللحصول على نتائج أكثر وضوحًا—خاصةً في التقارير أو لوحات المعلومات—استخدم الصيغة المحسّنة أدناه لترك الخلايا فارغة عندما لا توجد قيم مجاورة:

=IF(B2=«»,"",SUM($B$2:B2))

بهذه الطريقة، تُظهر فقط الصفوف التي تحتوي على قيم فعلية في العمود B إجماليًا متراكمًا. انظر الناتج المحسَّن في لقطة الشاشة أدناه:

صيغة لا تعرض أي شيء إذا كانت الخلية المجاورة فارغة

عند توسيع هذه الصيغ، تأكد من بقاء نطاق المرجع ($B$2:B2) ثابتًا—فإذا بدأت حساباتك في صف مختلف، فعدّل المراجع وفقًا لذلك. ولدى التعامل مع مجموعات بيانات كبيرة، فكّر في استخدام جداول Excel التي تُعدّل النطاقات تلقائيًا كلما نمت بياناتك.

لقطة شاشة لـ kutools for excel ai

افتح سحر إكسل مع KUTOOLS AI

  • التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
  • الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
  • برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
  • تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
  • ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

رمز VBA - أتمتة حساب المجموع التراكمي لمجموعات البيانات الديناميكية أو النطاقات الكبيرة

للمستخدمين الذين يتعاملون مع نطاقات بيانات ضخمة، أو مجموعات تتزايد باستمرار، أو يحتاجون إلى أتمتة حساب المجاميع التراكمية عبر أوراق متعددة، يُعد ماكرو VBA حلاً فعّالًا ومثاليًا. فهو يتيح لك تجنّب سحب الصيغ يدويًّا مرارًا، وأتمتة إعادة الحساب تلقائيًّا بعد كل تحديث، والتكيف بسلاسة مع هياكل البيانات المتغيرة. ويُوصى بهذا الأسلوب تحديدًا للمستخدمين المتوسطين الملمين بالاستخدام الأساسي للماكروات.

1. أولًا، افتح محرر VBA: انقرأدوات المطور > Visual Basic. في نافذةMicrosoft Visual Basic for Applications الجديدة، انقرInsert > Module، ثم الصق الكود أدناه في نافذة الوحدة:

Sub CalculateCumulativeSum()
    Dim selRange As Range
    Dim outputCol As Integer
    Dim i As Long
    Dim cumSum As Double
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set selRange = Application.Selection
    Set selRange = Application.InputBox("Select the range for running total calculation (single column):", xTitleId, selRange.Address, Type:=8)
    
    If selRange Is Nothing Then Exit Sub
    
    outputCol = selRange.Columns(selRange.Columns.Count).Column + 1
    cumSum = 0
    
    For i = 1 To selRange.Rows.Count
        If IsNumeric(selRange.Cells(i, 1).Value) And selRange.Cells(i, 1).Value <> "" Then
            cumSum = cumSum + selRange.Cells(i, 1).Value
            selRange.Cells(i, 1).Offset(0, 1).Value = cumSum
        Else
            selRange.Cells(i, 1).Offset(0, 1).Value = ""
        End If
    Next i
End Sub

2 لتشغيل الماكرو، انقر على زرزر التشغيل أو اضغطF5. عند المطالبة، حدد نطاق البيانات (عمود واحد فقط) الذي تريد معالجته، وسيقوم الماكرو تلقائيًا بملء الإجماليات المتراكمة في العمود الموجود مباشرةً على يمينه.

يُعد هذا الأسلوب فعّالًا بشكل خاص مع مجموعات البيانات الكبيرة أو المتغيرة ديناميكيًا، إذ يتيح لك إعادة تشغيل الماكرو تلقائيًا كلما تم تحديث البيانات. ومع ذلك، ننصحك دائمًا بعمل نسخة احتياطية من بياناتك قبل تشغيل أي ماكرو، نظرًا لأنه يكتب القيم مباشرةً في الخلايا. ولتحسين الأداء، تجنّب تشغيل هذا الماكرو على أعمدة كاملة أو نطاقات غير متجاورة.

إذا لم يحسب الماكرو القيم المتوقعة، فتأكد من أن نطاق التحديد يحتوي على بيانات رقمية فقط، ولا يحتوي على خلايا مدمجة.

أفضل أدوات الإنتاجية لمكتبتك

🤖KUTOOLS AI مساعد: ثوّر تحليل البيانات استنادًا إلى:التنفيذ الذكي   |  إنشاء الكود|  إنشاء الصيغ المخصصة  |  تحليل البيانات وإنشاء المخططات البيانية|  استدعاء الوظائف المحسنة
الميزات الشائعة:البحث، التمييز أو وضع علامة على المكررات   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |  التقريب بدون استخدام الصيغة...
بحث متقدم:VLookup متعدد المعايير  |  VLookup متعدد القيم  |   VLookup عبر أوراق متعددة   |   مطابقة غامضة....
قائمة منسدلة متقدمة:إنشاء قائمة منسدلة بسرعة   |  قائمة منسدلة تابعة   |  قائمة منسدلة متعددة الاختيار....
مدير الأعمدة:إضافة عدد محدد من الأعمدة|نقل الأعمدة|تبديل حالة ظهور الأعمدة المخفية|مقارنة النطاقات والأعمدة...
ميزات مميزة:التركيز على الشبكة   |  عرض التصميم   |شريط الصيغ المحسن   | مدير الدفتر والورقة   |  مكتبة الموارد(نص تلقائي)|  أداة اختيار التاريخ   |  تجميع ورقات العمل  |  تشفير/فك تشفير الخلايا   | إرسال رسائل البريد الإلكتروني حسب القائمة   |  مرشح متقدم   |   تصفية خاصة(تصفية الخلايا التي تحتوي على خط عريض/مائل/يتوسطه خط...) ...
أفضل 15 مجموعات الأدوات:12 أدواتالنصوص(إضافة نص،حذف الأحرف المحددة، ...)|   50+أنواعالمخططات البيانية(مخطط جانت، ...)|   40+ صيغعملية(حساب العمر بناءً على تاريخ الميلاد، ...)|   19 أدواتالإدراج(إدراج رمز QR،إدراج صورة من المسار، ...)|   12 أدواتالتحويل(تحويل إلى كلمات،تحويل العملة، ...)|   7 أدواتدمج وتقسيم(دمج متقدم للصفوف،تقسيم الخلايا، ...)|... وأكثر من ذلك
استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...


يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير

  • تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
  • افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل