كيف تحسب عدد المرات التي يتم فيها تغيير الخلية في إكسيل؟
لحساب عدد المرات التي يتم فيها تغيير خلية محددة في Excel ، يمكن أن تساعد رموز VBA المتوفرة في هذه المقالة.
قم بحساب عدد المرات التي يتم فيها تغيير الخلية برمز VBA
قم بحساب عدد المرات التي يتم فيها تغيير الخلية برمز VBA
يمكن أن تساعدك رموز VBA التالية في حساب عدد المرات التي يتم فيها تغيير خلية محددة في Excel.
1. في ورقة العمل التي تحتوي على خلية واحدة أو أكثر تحتاج إلى حساب التغيير الإجمالي لها ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق عرض الرمز من قائمة السياق. انظر لقطة الشاشة:
2. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انسخ والصق أحد رموز VBA التالية في ملف رمز نافذة حسب احتياجاتك.
كود فبا 1: تعقب التغييرات لخلية واحدة فقط
Dim xCount As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRg As Range, xCell As Range
On Error Resume Next
If Target = Range("B9") Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B9"))
If Not xRg Is Nothing Then
xCount = xCount + 1
Range("C9").Value = xCount
End If
Application.EnableEvents = True
End Sub
ملاحظة: في الكود ، B9 هي الخلية التي تحتاجها لحساب تغييراتها ، و C9 هي الخلية لملء نتيجة العد. الرجاء تغييرها كما تريد.
رمز فبا 2: تعقب التغييرات لخلايا متعددة في عمود
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220916
Dim xSRg As Range
Dim xRRg As Range
Set xSRg = Range("B9:B1000")
Set xCell = Intersect(xSRg, Target)
If xCell Is Nothing Then Exit Sub
Application.EnableEvents = False
On Error Resume Next
Set xCell = xCell.Range("A1")
Set xRRg = xCell.Offset(0, 1)
xRRg.Value = xRRg.Value + 1
Application.EnableEvents = True
End Sub
ملاحظة: في هذا الخط "ضبط xRRg = xCell.Offset (0، 1)"، الرقم 1 يمثل عدد الأعمدة المراد إزاحتها إلى يمين مرجع البداية (هنا مرجع البداية هو العمود B، والعدد الذي تريد إرجاعه موجود في العمود C الذي يقع بجوار العمود B). إذا كنت بحاجة إلى إخراج النتائج في العمود S، قم بتغيير الرقم 1 إلى 10.
من الآن فصاعدًا ، عندما تتغير الخلية B9 أو أي خلية في النطاق B9: B1000 ، سيتم فرض العدد الإجمالي للتغييرات وتعبئته تلقائيًا في الخلية المحددة.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!






















