انتقل إلى المحتوى الرئيسي

كيفية حساب / مجموع الخلايا التي يتوسطها خط في إكسيل؟

في 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) إلى خلية فارغة ، انظر لقطة الشاشة:

doc-count-Strike-1

4. ثم اضغط أدخل مفتاح ، وتم حساب جميع الخلايا التي يتوسطها خط. انظر لقطة الشاشة:

doc-count-Strike-1


السهم الأزرق الحق فقاعة عد بدون خلايا يتوسطها خط في 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) في خلية فارغة ، واضغط على أدخل مفتاح ، ثم ستحصل على النتيجة التي تحتاجها.

doc-count-Strike-1

ملاحظات: في الصيغ أعلاه ، 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) في خلية فارغة ، واضغط على أدخل مفتاح ، وستحصل على مجموع جميع الأرقام بدون الخلايا التي يتوسطها خط. انظر لقطة الشاشة:

doc-count-Strike-1

ملاحظات: في الصيغ أعلاه ، B2: B14 هو النطاق الذي تريد جمع الخلايا به بدون تنسيق يتوسطه خط.


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

كيفية جمع / عد الأرقام الغامقة في مجموعة من الخلايا في إكسيل؟

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

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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I want to ignore the cell from count where both type of text strike and non strike available by VBA
This comment was minimized by the moderator on the site
Great! I found a little bug here. The result doesn't actualize by itself. When I do changes on the sheet, the number doesn't changes. How can I fix it? Thanks
This comment was minimized by the moderator on the site
Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
This comment was minimized by the moderator on the site
This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
This comment was minimized by the moderator on the site
[quote]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?By Ari[/quote] ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points: Public Function ExcStrike(pWorkRng As Range) As Double 'Update 20161107_IITCSglobal.com Application.Volatile Dim pRng As Range Dim xOut As Double xOut = 0 For Each pRng In pWorkRng If Not pRng.Font.Strikethrough Then xOut = xOut + pRng.Value End If Next ExcStrike = xOut End Function
This comment was minimized by the moderator on the site
Thank you very much for this information, it's extremely helpful, However, I'm having an issue using the VBA code: Sum exclude strikethrough cells.

It does not exclude the strikethrough cells in my table unless I manually perform a strikethrough then double click the cell for the code to work.

I'm using a table with a conditional format to shade and strikethrough the entire row when (Table Header called Sold) Column "W" cell contains a "Yes", then that row will have a strikethrough and grey color. The worksheet table is "InventoryItems" and is configured to calculated automatically, but the code is not being triggered to exclude the dollar amount when the cell contains the strikethrough. Could you advise what I might be doing wrong?
Thank you for your time and help.

There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations