كيفية حساب / مجموع الخلايا التي يتوسطها خط في إكسيل؟
في Excel ، نقوم دائمًا بتنسيق خط يتوسطه خط لبعض الخلايا التي تشير إلى أن قيم الخلية غير مجدية أو غير صالحة ، حتى نتمكن من تحليل البيانات بشكل أكثر دقة. في هذه المقالة ، سأتحدث عن كيفية إجراء بعض العمليات الحسابية في النطاق باستخدام هذه الخلايا التي يتوسطها خط في Excel.
عد الخلايا التي يتوسطها خط في Excel
عد بدون خلايا يتوسطها خط في Excel
يستبعد المجموع الخلايا التي يتوسطها خط في Excel
عد الخلايا التي يتوسطها خط في Excel
إذا كنت تريد معرفة عدد الخلايا ذات التنسيق الذي يتوسطه خط في نطاق ما ، فيمكنك إنشاء وظيفة محددة بواسطة المستخدم ، فيرجى القيام بالخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: عد الخلايا التي يتوسطها خط
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. ثم احفظ وأغلق هذا الرمز ، والعودة إلى ورقة العمل ، ثم أدخل هذه الصيغة = CountStrike (A2: B14) إلى خلية فارغة ، انظر لقطة الشاشة:
4. ثم اضغط أدخل مفتاح ، وتم حساب جميع الخلايا التي يتوسطها خط. انظر لقطة الشاشة:
عد بدون خلايا يتوسطها خط في Excel
لكن ، في بعض الأحيان ، قد ترغب في حساب عدد الخلايا الطبيعية فقط التي تستثني الخلايا التي يتوسطها خط. يمكن أن يساعدك الكود التالي.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: عد بدون خلايا يتوسطها خط
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) في خلية فارغة ، واضغط على أدخل مفتاح ، ثم ستحصل على النتيجة التي تحتاجها.
ملاحظات: في الصيغ أعلاه ، A2: B14 هو النطاق الذي تريد تطبيق الصيغ فيه.
يستبعد المجموع الخلايا التي يتوسطها خط في Excel
نظرًا لأن الخلايا التي يتوسطها خط غير مستخدمة ، فأنا أريد هنا جمع الأرقام العادية فقط بدون الأرقام التي يتوسطها خط. لحل هذه المهمة ، تحتاج أيضًا إلى وظيفة محددة بواسطة المستخدم.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.
كود فبا: المجموع يستبعد الخلايا التي يتوسطها خط
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. ثم احفظ وأغلق هذا الرمز ، ارجع إلى ورقة العمل الخاصة بك ، واكتب هذه الصيغة = excstrike (B2: B14) في خلية فارغة ، واضغط على أدخل مفتاح ، وستحصل على مجموع جميع الأرقام بدون الخلايا التي يتوسطها خط. انظر لقطة الشاشة:
ملاحظات: في الصيغ أعلاه ، B2: B14 هو النطاق الذي تريد جمع الخلايا به بدون تنسيق يتوسطه خط.
مقالات ذات صلة:
كيفية جمع / عد الأرقام الغامقة في مجموعة من الخلايا في إكسيل؟
كيفية حساب وجمع الخلايا بناءً على لون الخلفية في إكسيل؟
كيفية حساب / جمع الخلايا بناءً على ألوان الخط في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!