حساب عدد الخلايا التي تحتوي على لون الخلية المحددة باستخدام VBA

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

هام: تمت ترجمة هذه المقالة باستخدام برامج مايكروسوفت للترجمة الآلية ومن المحتمل ان يتم تحريرها او تدقيقها بعد ذلك من خلال تكنولوجيا منصة مجموعات الترجمة(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 Longxcolor = criteria.Interior.ColorIndexFor Each datax In range_data    If datax.Interior.ColorIndex = xcolor Then        CountCcolor = CountCcolor + 1    End IfNext dataxEnd Function

  3. قم بإغلاق إطار VBE والعودة إلى Excel.
  4. لاختبار UDF، إنشاء بعض بيانات النموذج أو يمكنك تحميل هذا الملف المثال هنا.
  5. في الخلية (د) 3، كتابة الدالة: = كونتككولور(range_data، معايير)
    حدد الخلية في أرجومين range_data، C2 إلى C51
    حدد الخلية في معايير أرجومين، F1


  6. اضغط على أدخل وفي الخلية 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 أو أي من مورديها بإمكانية حدوث الأضرار.

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 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
تعليقات