كيفية الحفاظ على المجموع التراكمي في خلية واحدة في Excel؟

ستوضح لك هذه المقالة طريقة للحفاظ على المجموع التراكمي في خلية واحدة في Excel. على سبيل المثال، تحتوي الخلية A1 حاليًا على الرقم 10، وعند إدخال رقم آخر مثل 5، ستكون القيمة الناتجة لـ A1 هي 15 (10+5). يمكنك القيام بما يلي بسهولة لتحقيق ذلك.

الحفاظ على المجموع التراكمي في خلية واحدة باستخدام كود VBA

الحفاظ على المجموع التراكمي في خلية واحدة باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA في الحفاظ على المجموع التراكمي داخل خلية. يرجى اتباع الخطوات التالية خطوة بخطوة.

1. افتح ورقة العمل التي تحتوي على الخلية التي ستحافظ فيها على المجموع التراكمي. انقر بزر الماوس الأيمن على تبويب الورقة وحدد عرض الكود من قائمة السياق.

2. في نافذة Microsoft Visual Basic for Applications التي ستفتح، قم بنسخ ولصق كود VBA أدناه في نافذة الكود. انظر إلى لقطة الشاشة:

كود VBA: الحفاظ على المجموع التراكمي في خلية واحدة

Dim mRangeNumericValue As Double
'Updated by ExtendOffice 20180814

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EndF
Application.EnableEvents = False

If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
        If Target.Range("A1").Value = 0 Then mRangeNumericValue = 0
       Target.Range("A1").Value = 1 * Target.Range("A1").Value + mRangeNumericValue
    End If
End If

EndF:
  Application.EnableEvents = True
mRangeNumericValue = 0
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo err0
If Target.Count = 1 Then
    If (Len(Target.Range("A1").Value) > 0) And IsNumeric(Target.Range("A1").Value) Then
       mRangeNumericValue = Target.Range("A1").Value
   End If
End If
err0:
End Sub

ملاحظة: في الكود، A1 هي الخلية التي ستحافظ فيها على المجموع التراكمي. يرجى تحديد الخلية حسب الحاجة.

3. اضغط على مفتاحي Alt + Q لإغلاق نافذة Microsoft Visual Basic for Applications.

من الآن فصاعدًا، عند إدخال أرقام في الخلية A1، سيستمر المجموع بالتحديث ديناميكيًا كما هو موضح في لقطة الشاشة أدناه.

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!