Note: The other languages of the website are Google-translated. Back to English

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

في Excel ، يمكنك تلوين بعض الخلايا باستخدام التنسيق الشرطي. سيخبرك هذا البرنامج التعليمي الآن ببعض الطرق المفيدة والسهلة لعد الخلايا أو جمعها بسرعة حسب اللون باستخدام التنسيق الشرطي في Excel.

عد الخلايا حسب لون الخط والخلفية بواسطة VBA

عد / مجموع الخلايا حسب لون الخط مع التنسيق الشرطي بواسطة Kutools for Excel فكرة جيدة 3      لعب

عد / مجموع الخلايا حسب لون الخلفية مع التنسيق الشرطي بواسطة Kutools for Excel فكرة جيدة 3      لعب


السهم الأزرق الحق فقاعة عد الخلايا حسب الخط ولون الخلفية بواسطة VBA

في Excel ، يمكن فقط لرمز VBA عد الخلايا بسرعة استنادًا إلى لون خط ولون معينين.

1. صحافة ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة وانسخ والصق أدناه رمز VBA إلى ظهرت وحدة نافذة.

فبا: عد الخلايا بناءً على لون الخط والخلفية.

Sub DisplayFormatCount()
	'Updateby20150305
	Dim Rng As Range
	Dim CountRange As Range
	Dim ColorRange As Range
	Dim xBackColor As Long
	Dim xFontColor As Long
	On Error Resume Next
	xTitleId       = "KutoolsforExcel"
	Set CountRange = Application.Selection
	Set CountRange = Application.InputBox("Count Range :", xTitleId, CountRange.Address, Type: = 8)
	Set ColorRange = Application.InputBox("Color Range(single cell):", xTitleId, Type: = 8)
	Set ColorRange = ColorRange.Range("A1")
	xReturn        = 0
	For Each Rng In CountRange
		qqq           = Rng.Value
		xxx           = Rng.DisplayFormat.Interior.Color
		If Rng.DisplayFormat.Interior.Color = ColorRange.DisplayFormat.Interior.Color Then
			xBackColor   = xBackColor + 1
		End If
		If Rng.DisplayFormat.Font.Color = ColorRange.DisplayFormat.Font.Color Then
			xFontColor = xFontColor + 1
		End If
	Next
	MsgBox "BackColor is " & xBackColor & Chr(10) & "FontColor is " & xFontColor
End Sub

3. انقر يجري زر أو اضغط F5 مفتاح لتشغيل الكود ، ثم حدد النطاق الذي تحتاجه في مربع الحوار المنبثق. انظر لقطة الشاشة:
دوك العد حسب اللون الشرطي 1

4. انقر OK، ثم حدد الخلية التي تريد حساب لون الخط والخلفية الخاص بها بناءً على. انظر لقطة الشاشة:

دوك العد حسب اللون الشرطي 2

5. انقر OK. ثم ينبثق مربع حوار لإخبارك بعدد الخلايا التي لها نفس لون الخلفية ولون الخط مع الخلية المحددة في النطاق.

دوك العد حسب اللون الشرطي 3


السهم الأزرق الحق فقاعة عد / مجموع الخلايا حسب لون الخط مع التنسيق الشرطي بواسطة Kutools for Excel

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

1. حدد النطاق الذي تريد حسابه أو جمع الخلايا حسب لون الخط باستخدام التنسيق الشرطي ، ثم انقر فوق كوتولس بلس> عد حسب اللون. انظر لقطة الشاشة:

دوك العد حسب اللون الشرطي 4

2. ثم في عد حسب اللون الحوار، حدد تنسيق مشروط تحت طريقة اللون قائمة و الخط تحت نوع اللون قائمة. ثم يمكنك عرض نتيجة العد والتلخيص في مربع الحوار. انظر لقطة الشاشة:

دوك العد حسب اللون الشرطي 5

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

دوك العد حسب اللون الشرطي 6      دوك العد حسب اللون الشرطي 7


عد / مجموع الخلايا حسب لون الخلفية مع التنسيق الشرطي بواسطة Kutools for Excel

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

1. حدد النطاق الذي تريد عد الخلايا أو جمعها حسب لون الخلفية باستخدام التنسيق الشرطي ، ثم انقر فوق كوتولس بلس > عد حسب اللون.

بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:

2. ثم في عد حسب اللون الحوار، حدد تنسيق مشروط تحت طريقة اللون قائمة و خلفيّة تحت نوع اللون قائمة. ثم يمكنك عرض نتيجة العد والتلخيص في مربع الحوار. انظر لقطة الشاشة:

دوك العد حسب اللون الشرطي 8

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

دوك العد حسب اللون الشرطي 9

انقر هنا لمعرفة المزيد عن العد حسب اللون.

تلميح.بإضافة إلى عد حسب اللون الأداة المساعدة ، يمكنك أيضًا حساب / مجموع / متوسط ​​الخلايا حسب لون الخلفية أو لون الخط مع التنسيق القياسي فقط أو كلا التنسيقين القياسي والشرطي. إذا كنت تريد تطبيق Count by Color دون قيود في 30 أيام، يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.


السهم الأزرق الحق فقاعة حساب الخلايا حسب لون الخط أو لون الخلفية



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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (7)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اسمحوا لي أن أهنئكم على برنامج VBA الأكثر سهولة في الفهم والمكتوبة لأداء مثل هذه المهمة البسيطة - على سبيل المثال ، حساب عدد الخلايا ذات اللون المحدد المشتق من التنسيق الشرطي. إنه يتفوق على سروال برنامج الوحش من قبل بيرسون ، ولا يعمل حتى ، على الأقل في Excel 2013. ولا تعمل برامج العد المفترضة الأخرى التي قمت بتجربتها. لك هو الوحيد !! لقد نجح هذا على أكمل وجه. شكرا لك شكرا لك شكرا لك. أطيب التمنيات للعطلات ، مورت في دالاس
تم تصغير هذا التعليق بواسطة المشرف على الموقع
hi


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


شكر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
آسف ليس لدي أي فكرة عن رمز VBA.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا.

VBA đếm ô màu rất hay، tuy nhiên bạn có thể sửa giúp mình để kết quả không hiện thành msg box mà hiện luôn trên ô excel chỉnh được không؟ هذا يعني أنه متوسط ​​لا يمكن تغييره إلى: د. البريد của mình là tranvanlong.dne@gmail.com. Mình cám on.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يمكنك أن تعلمني من فضلك أكواد VBA وأود أن أتعلم VBA باستخدام ورقة إكسل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،

هذه قطعة رائعة من VBA وتعمل بشكل مثالي. هل أنت قادر على تعديل هذا الرمز لجعله دالة ثم استخدامه كصيغة؟

على سبيل المثال
= DisplayFormatCount (A14: E14، A2، False) لحساب لون الخلفية (نطاق العد ، خلية مطابقة اللون ، النوع)

= DisplayFormatCount (C29: D29، A2، True) لحساب لون الخط

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


هتاف
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL