كيف يمكن حساب أو جمع الخلايا التي تحتوي على خط شطب في Excel؟
في Excel، يُعد تطبيق تنسيق الخط المشطوب (Strikethrough) على خلايا معيّنة وسيلة شائعة لتمييز البيانات باعتبارها قديمة أو غير ذات صلة أو غير صالحة. ويُعد هذا المؤشر البصري أداة فعّالة لتحسين إدارة البيانات، إذ يساعدك على التركيز على المعلومات الجوهرية أثناء التحليل. ومع ذلك، عند إجراء عمليات حسابية—مثل العد أو الجمع—قد تحتاج إلى فصل النتائج الخاصة بالخلايا ذات الخط المشطوب عن تلك التي لا تحتوي عليه. ومعرفة كيفية التعامل مع هذه السيناريوهات تبسّط سير عملك وتؤدي إلى رؤى أكثر دقة. يقدم هذا المقال عدة طرق عملية لحساب وجمع الخلايا التي تحتوي—or لا تحتوي—على تنسيق الخط المشطوب في Excel، باستخدام دوال VBA قابلة للتخصيص توفر مرونةً تلبي احتياجاتك المختلفة في إدارة البيانات.
حساب الخلايا ذات الخط المشطوب باستخدام VBA في Excel
حساب الخلايا التي لا تحتوي على خط مشطوب باستخدام VBA في Excel
جمع القيم باستثناء الخلايا ذات الخط المشطوب باستخدام VBA في Excel
حساب أو جمع الخلايا ذات الخط المشطوب باستخدام Kutools لـ Excel
حساب الخلايا ذات الخط المشطوب في Excel
إذا كنت بحاجة إلى تحديد العدد الإجمالي للخلايا المنسَّقة بخط مشطوب ضمن نطاق معيَّن، فلا يمكن تحقيق ذلك مباشرةً باستخدام الدوال المدمجة في Excel، نظرًا لعدم وجود صيغة قادرة على التعرُّف على تنسيقات النص مثل الخط المشطوب. ولذلك، يُعد استخدام دالة معرَّفة من قبل المستخدم (UDF) في VBA حلاً عمليًّا وفعّالًا. ويكون هذا النهج مفيدًا بشكل خاص عند إدارة قوائم المهام أو تحديثات الجرد أو أي سيناريو يُستخدم فيه الخط المشطوب للإشارة إلى بيانات مكتملة أو غير صالحة أو قديمة.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في نافذة VBA، انقر فوقإدراج > وحدة نمطية (Module)لإنشاء وحدة جديدة، ثم الصق الكود التالي فينافذة الوحدة النمطية.
كود VBA: حساب الخلايا ذات الخط المشطوب
Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountStrike = xOut
End Function
3. بعد إدخال الكود، احفظ ملفك (للاحتفاظ بالمقطع البرمجي)، ثم أغلق محرر VBA وعُد إلى ورقة العمل الخاصة بك. في أي خلية فارغة ترغب في ظهور النتيجة بها، أدخل الصيغة التالية (على سبيل المثال، للتحقق من الخلايا ذات الخط المشطوب في النطاق)A2:B14):=CountStrike(A2:B14)
تلميح: يمكنك تغييرA2:B14 إلى أي نطاق آخر ترغب في التحقق منه.
4. اضغط على مفتاحEnter لتنفيذ الصيغة، وسيعرض Excel فورًا عدد جميع الخلايا ذات الخط المشطوب في النطاق المحدد. ويُمكّنك ذلك من تتبع التقدم بكفاءة أو إزالة الإدخالات القديمة عند الحاجة. انظر لقطة الشاشة:
تحذير: لضمان استمرار توفر كود VBA هذا للاستخدام مستقبلاً، يُرجى حفظ الملف بصيغة .xlsm (ملف Excel الذي يدعم الماكرو).
حساب الخلايا التي لا تحتوي على خط مشطوب في Excel
قد تصادف حالات تحتاج فيها إلى عد الخلايا التيلاتحتوي على تنسيق الخط المشطوب في نطاق معيّن. فعلى سبيل المثال، في جداول تتبع المشاريع أو بيانات المبيعات، غالبًا ما تريد عد الإدخالات النشطة أو الصالحة فقط (أي تلك التي لا تحتوي على خط مشطوب) لأغراض العمليات اللاحقة. ونظرًا لأن دوال Excel الافتراضية مثل COUNT وCOUNTA تتجاهل تنسيقات النصوص، فإن الحل المخصص عبر VBA يوفّر لك تحكمًا دقيقًا لتلبية هذه الاحتياجات.
1. اضغط علىALT + F11 لتشغيل نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انتقل إلىإدراج > وحدة نمطية (Module)لإضافة وحدة كود جديدة، ثم الصق الكود التالي في نافذة تلك الوحدة.
كود VBA: حساب الخلايا التي لا تحتوي على خط مشطوب
Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + 1
End If
Next
CountNoStrike = xOut
End Function
3. احفظ ملفك الذي يدعم الماكرو، ثم عُد إلى ورقة العمل وأدخل الصيغة التالية في خلية فارغة (على سبيل المثال، للنطاق)A2:B14): =countnostrike(A2:B14)، ثم اضغط علىEnter للحصول على النتيجة. سيقوم Excel بحساب الخلايا ضمن النطاق المحدد التي لا تحتوي على تنسيق الخط المشطوب فقط.
ملاحظة: في المثال أعلاه،A2:B14 هو نطاق الخلايا قيد التقييم. غيّر مرجع النطاق حسب احتياجاتك في ورقة العمل الخاصة بك. كن على علم أيضًا بأن الدمج أو التنسيقات الخاصة قد تؤثر أحيانًا على النتائج—لذا تأكد مرتين من أن نطاقك يحتوي فقط على الخلايا المقصودة.
جمع القيم باستثناء الخلايا ذات الخط المشطوب في Excel
عند التعامل مع البيانات الرقمية التي تحتوي على إدخالات غير نشطة أو يجب تجاهلها (مثل تلك المنسَّقة بخط مشطوب)، غالبًا ما تحتاج إلى جمع الأرقام الصالحة فقط. ويُعدّ هذا أمرًا شائعًا في أوراق الميزانية، أو إدارة الجرد، أو تتبع المهام، حيث تمثّل الإدخالات ذات الخط المشطوب عناصر قديمة أو مكتملة يتعيّن استبعادها من المجاميع. وبما أن دالة SUM المدمجة في Excel لا تميّز بين الخلايا المنسَّقة بتخطيط مشطوب وتلك غير المنسَّقة، فإن استخدام دالة VBA معرَّفة من قبل المستخدم يصبح ضروريًّا لهذا الغرض.
1. استخدمALT + F11 لفتح محررمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة نمطية (Module)لإضافة وحدة، ثم الصق الكود أدناه في نافذة تلك الوحدة.
كود VBA: جمع القيم باستثناء الخلايا ذات الخط المشطوب
Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
If Not pRng.Font.Strikethrough Then
xOut = xOut + pRng.Value
End If
Next
ExcStrike = xOut
End Function
3. احفظ وأغلق محرر VBA. في ورقة العمل المستهدفة، اختر خلية فارغة وأدخل الصيغة التالية (مثال: للنطاق)B2:B14):=excstrike(B2:B14) ثم اضغط علىEnter، وسيقوم Excel تلقائيًا بجمع القيم في النطاق المحدد التيلاتحتوي على تنسيق الخط المشطوب، ليمنحك مجموعًا يستثني القيم القديمة فورًا.
ملاحظة: غيّرB2:B14 إلى نطاق البيانات الفعلي الخاص بك. تتجاهل هذه الدالة الخلايا ذات الخط المشطوب، بغض النظر عن قيمتها. وإذا واجهت نتائج غير متوقعة، فتأكد من أن جميع الخلايا تحتوي على إدخالات رقمية والتنسيق الصحيح.
تلميح عملي: إذا كنت بحاجة إلى تحديث نتيجة الجمع بعد تغيير حالة الخط المشطوب لأي خلية، فأعد حساب ورقة العمل بالضغط علىF9.
حساب أو جمع الخلايا ذات الخط المشطوب باستخدام Kutools لـ Excel
إذا أردت حساب أو جمع الخلايا التي تحتوي على تنسيق الخط المشطوب فقط، فإن Excel لا يوفّر طريقة مدمجة لذلك—لكنKutools لـ Excelيجعل الأمر سهلًا من خلال ميزةتصفية خاصة.
1. حدد العمود
انقر على العمود الذي يحتوي على الخلايا المنسَّقة بخط مشطوب.
2. افتح تصفية مخصصة
انتقِل إلى علامة التبويبKUTOOLS PLUS، ثم انقر فوقتصفية خاصة > تصفية الخلايا التي تحتوي على خط مشطوب.
3. تأكيد التصفية
ستظهر نافذة منبثقة تعرض عدد الخلايا التي تطابقت مع الشرط. انقر فوقموافقللمتابعة.
4. عرض النتائج
أصبحت الخلايا ذات الخط المشطوب الآن مُرشَّحة ومرئية. حدد نطاق التصفية—وسترى فورًا المجموع والمتوسط والعدد فيشريط الحالةالموجود في أسفل Excel.
✨لماذا تستخدم Kutools؟
يقدّم Kutools لـ Excel أكثر من 300 ميزة قوية وسهلة الاستخدام مثل هذه—توفر لك الوقت وتعزز إنتاجيتك دون الحاجة إلى كتابة صيغ معقدة أو أكواد VBA.
سواء كنت تُصفّي البيانات حسب التنسيق، أو تنظّفها، أو تدمج الأوراق، أو تُجري تعديلات جماعية، فإن Kutools يبسّط كل ذلك في ثوانٍ!
جرب Kutools لـ Excel مجانًا لمدة 30 يومًا، واكتشف ما فاتك!
مقالات ذات صلة:
كيف يمكن جمع أو عد الأرقام المكتوبة بخط عريض ضمن نطاق معيّن من الخلايا في Excel؟
كيف يمكن عد وجمع الخلايا في Excel بناءً على لون خلفيتها؟
كيف يمكن عدّ أو جمع الخلايا بناءً على لون خطها في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل