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