كيفية حساب أو جمع الخلايا ذات الخطوط في المنتصف في 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، انقر على إدراج > وحدة لإنشاء وحدة جديدة، ثم الصق الكود التالي في نافذة الوحدة.

كود 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. انتقل إلى إدراج > وحدة لإضافة وحدة كود جديدة. الصق الكود التالي في نافذة الوحدة تلك.

كود 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. انقر على إدراج > وحدة لإضافة وحدة، والصق الكود أدناه في نافذة الوحدة تلك.

كود 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؟