كيفية حساب / جمع الخلايا التي تحتوي على خط مشطوب في Excel؟

في Excel، من الشائع تطبيق تنسيق الخط المشطوب على بعض الخلايا لتحديد البيانات القديمة أو غير ذات الصلة أو غير الصالحة. يمكن أن يحسن هذا المؤشر البصري إدارة البيانات بشكل كبير ويساعدك على التركيز على المعلومات المهمة أثناء التحليل. ومع ذلك، عند إجراء العمليات الحسابية - مثل العد أو الجمع - قد ترغب في فصل النتائج للخلايا التي تحتوي على خط مشطوب عن تلك التي لا تحتوي عليه. فهم كيفية التعامل مع هذه السيناريوهات يمكن أن يسرع سير العمل ويؤدي إلى رؤى أكثر دقة. يقدم هذا المقال عدة طرق عملية لحساب وجمع الخلايا ذات التنسيق المشطوب أو بدونه في Excel باستخدام وظائف VBA قابلة للتخصيص تقدم مرونة لاحتياجات إدارة البيانات المختلفة.

عد الخلايا التي تحتوي على خط مشطوب باستخدام VBA في Excel

عد الخلايا التي لا تحتوي على خط مشطوب باستخدام VBA في Excel

جمع باستثناء الخلايا التي تحتوي على خط مشطوب باستخدام VBA في Excel

حساب أو جمع الخلايا التي تحتوي على خط مشطوب باستخدام Kutools لـ Excel

عد الخلايا التي تحتوي على خط مشطوب في Excel

إذا كنت بحاجة إلى تحديد العدد الإجمالي للخلايا التي تم تنسيقها بخط مشطوب في نطاق معين، فلا يمكن تحقيق ذلك مباشرة باستخدام وظائف Excel المدمجة، حيث لا توجد صيغة تتعرف على تنسيق النصوص مثل الخط المشطوب. لذلك، يصبح استخدام وظيفة محددة بواسطة المستخدم (UDF) في VBA حلاً عمليًا. هذا النهج مفيد بشكل خاص عند إدارة قوائم المهام، تحديثات المخزون، أو أي سيناريو يتم فيه استخدام الخط المشطوب للإشارة إلى بيانات مكتملة أو غير صالحة أو قديمة.

1. اضغط مع الاستمرار على ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة VBA، انقر فوق Insert > 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

قد تكون هناك حالات تحتاج فيها إلى حساب عدد الخلايا التي لا تحتوي على تنسيق الخط المشطوب في نطاق معين. على سبيل المثال، في جداول تتبع المشاريع أو بيانات المبيعات، غالبًا ما ترغب في حساب الإدخالات النشطة/الصالحة فقط (أي تلك التي لا تحتوي على خط مشطوب) لأغراض التشغيل الأخرى. تتجاهل وظائف COUNT أو COUNTA الافتراضية في Excel تنسيق النصوص، لذلك تقدم حلول VBA المصممة تحكمًا دقيقًا لهذه الاحتياجات.

1. اضغط على ALT + F11 لتشغيل نافذة Microsoft Visual Basic for Applications.

2. انتقل إلى Insert > 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 لفتح محرر Microsoft Visual Basic for Applications.

2. انقر فوق Insert > 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 يجعل الأمر سهلًا باستخدام ميزة Filter Strikethrough الخاصة به.

1. حدد العمود

انقر فوق العمود الذي يحتوي على الخلايا ذات التنسيق المشطوب.

2. افتح الفلتر الخاص

انتقل إلى علامة التبويب Kutools Plus، ثم انقر فوق Special Filter > Filter Strikethrough.

3. تأكيد الفلتر

ستظهر مربع حوار يوضح عدد الخلايا التي تطابق الشرط. انقر OK للمتابعة.

4. شاهد النتائج

الخلايا التي تحتوي على خط مشطوب الآن مرشحة ومرئية. حدد النطاق المرشح - ستلاحظ فورًا القيم Sum و Average و Count في شريط الحالة أسفل Excel.

✨ لماذا تستخدم Kutools؟

يقدم Kutools لـ Excel أكثر من 300 ميزة قوية وسهلة الاستخدام مثل هذه - مما يساعدك على توفير الوقت وزيادة الإنتاجية دون كتابة صيغ معقدة أو أكواد VBA.

سواء كنت تقوم بتصفية حسب التنسيق، تنظيف البيانات، دمج الأوراق، أو التحرير الدُفعي، يقوم Kutools بتبسيط عملك في ثوانٍ.

 جرب Kutools لـ Excel مجانًا لمدة 30 يومًا واستكشف ما كنت تفتقده!

مقالات ذات صلة:

كيفية جمع / حساب الأرقام الغامقة في نطاق من الخلايا في Excel؟

كيفية حساب وجمع الخلايا بناءً على لون الخلفية في Excel؟

كيفية حساب / جمع الخلايا بناءً على ألوان الخطوط في Excel؟