نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيف يتم حساب / جمع إختراق الخلايا في إكسيل؟

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

عد عدد الخلايا التي يتم دمجها في إكسيل

عد بدون خلايا خاطئة في إكسيل

يستبعد سوم إنشاء خانات في إكسيل

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى عد عدد الخلايا التي يتم دمجها في إكسيل


إذا كنت تريد معرفة عدد الخلايا التي تحتوي على تنسيق خطي في نطاق، فيمكنك إنشاء وظيفة محددة من قبل المستخدم، يرجى اتباع الخطوات التالية:

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-العد إضراب 1

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

DOC-العد إضراب 1


السهم الأزرق الفقاعة اليمنى عد بدون خلايا خاطئة في إكسيل

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

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. ثم احفظ هذا الرمز وأغلقه، عد إلى ورقة العمل، واكتب هذه الصيغة = countnostrike (A2: B14) في خلية فارغة، واضغط على أدخل مفتاح، ثم سوف تحصل على النتيجة التي تحتاج إليها.

DOC-العد إضراب 1

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


السهم الأزرق الفقاعة اليمنى يستبعد سوم إنشاء خانات في إكسيل

لأنه لا يتم استخدام الخلايا التي تم اختراقها، هنا، أريد أن أحصل فقط على الأرقام العادية دون أرقام ستريكثرو. لحل هذه المهمة، تحتاج أيضا إلى وظيفة تعريف المستخدم.

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-العد إضراب 1

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


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

كيفية حساب / حساب الأرقام الجريئة في مجموعة من الخلايا في إكسيل؟

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

كيفية حساب / حساب الخلايا استنادا إلى ألوان الخط في إكسيل؟


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    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
  • To post as a guest, your comment is unpublished.
    Ari · 3 years ago
    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?
    • To post as a guest, your comment is unpublished.
      Mark Ayoub · 2 years ago
      [quote name="Ari"]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?[/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:

      [b]
      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
      [/b]