كيف يمكن الاحتفاظ بإجمالي متراكم في خلية واحدة في إكسل؟
يعرض لك هذا المقال طريقةً ذكية للحفاظ على إجمالي متراكم في خلية واحدة في إكسل. فعلى سبيل المثال، إذا كانت الخلية A1 تحتوي حاليًا على الرقم 10، وقمت بإدخال رقم جديد مثل 5، فستُحدَّث القيمة تلقائيًا لتصبح 15 (10+5). اتبع الخطوات التالية بسهولة لتحقيق ذلك!
الاحتفاظ بإجمالي متراكم في خلية واحدة باستخدام كود VBA
الاحتفاظ بإجمالي متراكم في خلية واحدة باستخدام كود VBA
يمكنك الاعتماد على كود VBA أدناه للحفاظ على إجمالي متراكم في خلية. يُرجى اتباع الخطوات التالية خطوة بخطوة.
1. افتح ورقة العمل التي تحتوي على الخلية التي تريد الاحتفاظ بالإجمالي المتراكم فيها. انقر بزر الماوس الأيمن على لسان تبويب الورقة، ثم اخترعرض الكودمن قائمة السياق.
2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقاتالمفتوحة، انسخ والصق كود 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 لإغلاق نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
ابتداءً من الآن، كلما أدخلتَ رقمًا في الخلية A1، سيتراكم الإجمالي تلقائيًا داخلها كما هو موضح في لقطة الشاشة أدناه.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل