كيفية الاستمرار في تشغيل الإجمالي في خلية واحدة أو خلية واحدة في Excel؟
ستوضح لك هذه المقالة طريقة للحفاظ على التشغيل الإجمالي في خلية واحدة أو خلية واحدة في Excel. على سبيل المثال ، تحتوي الخلية A1 على الرقم 10 حاليًا ، عند إدخال رقم آخر مثل 5 ، ستكون قيمة نتيجة A1 هي 15 (10 + 5). يمكنك القيام بما يلي لإنجازه بسهولة.
استمر في تشغيل الإجمالي في خلية واحدة أو خلية واحدة مع رمز VBA
استمر في تشغيل الإجمالي في خلية واحدة أو خلية واحدة مع رمز VBA
يمكن أن يساعدك رمز VBA أدناه في الحفاظ على التشغيل الإجمالي في خلية. يرجى القيام بما يلي خطوة بخطوة.
1. افتح ورقة العمل التي تحتوي على الخلية التي ستستمر في تشغيلها بالكامل. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وحدد عرض الرمز من قائمة السياق.
2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق رمز 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. اضغط على قديم + Q مفاتيح لإغلاق ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
من الآن فصاعدًا ، عند كتابة الأرقام في الخلية A1 ، سيستمر تشغيل الإجمالي في الداخل كما هو موضح أدناه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!