عد الخلايات ذات اللون المحدد في الإكسل

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

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

اضغط هنا لرابط المقالة باللغة الانجليزية2815384

حول المؤلف:

يتم توفير هذه الوثيقة بلقاح التهاب السحايا راديني راهايو. مايكروسوفت ذلك نشكر ذلك أفضل المتخصصين الذين يشاركون خبرتهم المهنية استباقي مع مستخدمين آخرين. سيوضع على المقالة موقع ويب لأفضل لاعب أو مدونة لاحقاً.

الأعراض

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

الحل

على الرغم من دون استخدام الدالة COUNTIF ، نحن لا يزال الحصول على النتائج باستخدام VBA. باستخدام VBA، يمكننا إنشاء UDF (دالة معرفة من قبل المستخدم) وحفظه في ملف الوظيفة الإضافية بحيث يمكن استخدامه لكل مصنف وكمبيوتر آخر.

ما يمكن القيام به

فيما يلي خطوات إنشاء الحساب UDF لون الخلية:

1. فتح Microsoft Excel ثم اضغط Alt + F11 لإظهار نافذة " محرر Visual Basic ".
2. في القائمة إدراج ، حدد الوحدة النمطية لإنشاء وحدة نمطية. ثم كتابة البرنامج النصي التالي:
   

   Function CountCcolor(range_data As range, criteria As range) As Long
       Dim datax As range
       Dim xcolor As Long
   xcolor = criteria.Interior.ColorIndex
   For Each datax In range_data
       If datax.Interior.ColorIndex = xcolor Then
           CountCcolor = CountCcolor + 1
       End If
   Next datax
   End Function

   
3. قم بإغلاق إطار VBE والعودة إلى Excel.
4. لاختبار UDF، إنشاء بعض بيانات النموذج أو يمكنك تحميل هذا الملف المثال هنا.
5. في الخلية D3كتابة الدالة: = كونتككولور(range_data، معايير)
   حدد الخلية C2 إلى C51 في أرجومين range_data،
   حدد الخلية F1 في معايير أرجومين،
   
   
6. اضغط مفتاح الإدخال Enter والنتيجة في الخلية F2 6. هذا يعني عدد الخلايا التي تحتوي على لون خلية أزرق من 6 خلايا.
   
   
7. يمكنك أيضا اختبار لون آخر. تغيير لون الخلية F1 بأي لون ترغب من البيانات باستخدام "نسخ التنسيق" للحصول على نفس اللون.
   
   
8. يمكنك أيضا تعبئة الجبهة الديمقراطية، حيث يمكن استخدام الدالة في المصنف وجهاز آخر. الرجاء هذه الخطوات ما يلي:
   
   
   الخطوة 1: حفظ المصنف
   
   
   1. كتابة الاسم الذي تريده إلى المسماة في المربع اسم الملف . هنا أنا اسم لون الخلية عدد.
   2. لنوع الملف، اختر تنسيق Excel الإضافية (.xlam) .
      
      
      
      ملاحظة: يمكنك حفظ ملف الوظيفة الإضافية في أي مكان تريده. ولكن إذا كنت تريد أن يكون مدرجاً في Excel مضمن، يجب حفظه إلى الموقع الافتراضي. على جهاز الكمبيوتر مع نظام التشغيل Windows 7، يكون الموقع الافتراضي لأي إصدارات من Microsoft Excel: C:\Users\RADDINI\AppData\Roaming\Microsoft\AddIns
   
   
   الخطوة 2: تثبيت الوظيفة الإضافية
   
   1. فتح Microsoft Excel على الكمبيوتر الذي تريد تثبيت مربع الحوار "فتح" الإضافية الإضافية عن طريق النقر فوق إضافة في علامة التبويب المطور .
   2. في مربع الحوار الوظيفة الإضافية ، انقر فوق الزر استعراض حيث يتم عرض مربع الحوار استعراض .
      
      
   3. انتقل إلى موقع الملف هذا ملف الوظيفة الإضافية حفظ. اختر الملف وانقر فوق فتح.
   4. في مربع الحوار وظائف إضافية تأكد من خانة الاختيار إضافة غير محددة. ثم انقر فوق موافق.
      
      

الآن بتثبيت UDF لون الخلية عدد وجاهزة للاستخدام.

إخلاء مسؤولية حلول محتوى المجتمع

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

Warning: This article has been translated automatically

خصائص

رقم الموضوع: 2815384 - آخر مراجعة: 04/04/2016 02:17:00 - المراجعة: 5.0

تنطبق على

• Microsoft Office Excel 2003
• Microsoft Office Excel 2007
• Microsoft Excel 2010
• Microsoft Excel 2013
• Excel 2016

كلمات البحث

• kbmvp kbcommunity kbstepbystep kbmt KB2815384 KbMtar