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

or

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

وثيقة العد الخط بين color1

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

عد أو مجموع الخلايا استنادا إلى ألوان الخط مع وظيفة تعريف المستخدم

عد أو مجموع الخلايا على أساس لون الخط مع كوتولس ل إكسيل

عد أو مجموع الخلايا على أساس لون الخلفية مع كوتولس ل إكسيل


عد / قيم قيمة الخلية استنادا إلى الخلفية والخط وتنسيق اللون الشرطي:

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

دوك تصفية لون شنومك

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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


عد الخلايا استنادا إلى ألوان الخطوط:

لحساب عدد الخلايا ذات ألوان الخط المحددة، يرجى القيام بما يلي:

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في نافذة الوحدة.

رمز فبا: عدد الخلايا استنادا إلى ألوان الخط:

Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        CountColour = CountColour + 1
    End If
Next
End Function

3. ثم قم بحفظ هذا الرمز والعودة إلى ورقة العمل ثم قم بإدخال هذه الصيغة في خلية فارغة = CountColour (A1: D8، A1) ، انظر الصورة:

وثيقة العد الخط بين color1

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

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

وثيقة العد الخط بين color1

إجمالي الخلايا استنادا إلى ألوان الخطوط:

لخلاصة الخلايا استنادا إلى ألوان الخط، يمكن أن تساعدك وظيفة "تحديد المستخدم" التالية.

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في نافذة الوحدة.

رمز فبا: قم بإجمالي الخلايا استنادا إلى ألوان الخط:

Public Function SumByColor(pRange1 As Range, pRange2 As Range) As Double
'Update 20140210
Application.Volatile
Dim rng As Range
Dim xTotal As Double
xTotal = 0
For Each rng In pRange1
    If rng.Font.Color = pRange2.Font.Color Then
        xTotal = xTotal + rng.Value
    End If
Next
SumByColor = xTotal
End Function

3. ثم قم بحفظ هذا الرمز والعودة إلى ورقة العمل الأصلية ثم قم بإدخال هذه الصيغة = SumByColor (A1: D8، A1) في خلية فارغة، انظر الصورة:

وثيقة العد الخط بين color1

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

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

وثيقة العد الخط بين color1


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

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي:

1. حدد نطاق البيانات الذي تريد حسابه وإجماليه استنادا إلى ألوان مختلفة.

2. انقر مشروع > العد بالألوان، انظر الصورة:

وثيقة العد الخط بين color1

3. في العد بالألوان مربع الحوار، اختر التنسيق القياسي من طريقة اللون المنسدلة، وحدد الخط تحت نوع العد المنسدلة، انظر الصورة:

وثيقة العد الخط بين color1

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

وثيقة العد الخط بين color1

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


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

إذا كنت ترغب في حساب أو جمع الخلايا مع لون خلفية معينة، كوتولس ل إكسيلالصورة العد بالألوان ميزة يمكن أن تساعدك أيضا، يرجى القيام على النحو التالي:

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

2. في ال العد بالألوان مربع الحوار، اختر التنسيق القياسي من طريقة اللون المنسدلة، وحدد خلفيّة تحت نوع العد المنسدلة، انظر الصورة:

وثيقة العد الخط بين color1

3. ثم اضغط إنشاء تقرير زر، يتم إنشاء تقرير استنادا إلى ألوان الخلفية، انظر قطة:

وثيقة العد الخط بين color1

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

تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!


السهم الأزرق الفقاعة اليمنى عد أو مجموع الخلايا على أساس الخط / الخلفية / الشرطي تنسيق اللون:

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


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.
    me · 2 months ago
    COUNT CELLS BY FONT COLOR tutorial was great! But it is not working when the font color was based on the conditional formatting. Do you have something for this concern?
    • To post as a guest, your comment is unpublished.
      skyyang · 16 days ago
      Hello,
      The codes in this article can not support the conditional formatting, but, you can use our Kutools for Excel's Count by Color feature, it can help you to count or sum conditional font colors. Please try it.
  • To post as a guest, your comment is unpublished.
    Sarah · 6 months ago
    This was exactly what I needed - Thanks!
  • To post as a guest, your comment is unpublished.
    ISMERCIO · 6 months ago
    = SumByColor (A1: D8, A1) NÃO FUNCIONOU


    =SumByColor(A1:D8;A1) FUNCIONOU

    TIRANDO ESPAÇO E USANDO " ; " AO INVÉS DE " , " AI FUNCIONOU LEGAL.

    USO EXCEL 10


    MUITO BOM.


    OBRIGADO

  • To post as a guest, your comment is unpublished.
    Borja · 6 months ago
    Is there a way to change Count Or Sum Cells Based On Font Colors With User Defined Function into count or sum cells based on de conditional formating?

    I've tried with

    Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double

    Application.Volatile
    Dim rng As Range
    For Each rng In pRange1

    If rng.FormatConditions.Font.Color = pRange2.FormatConditions.Font.Color Then
    CountColour = CountColour + 1

    End If
    Next
    End Function

    But it appears not to work, any suggestion?
    Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 6 months ago
      Hello, Borja,
      May be you can use our product, Kutools for Excel, with its Count by Color feature, you can quickly count or sum the cell values based on the conditional formatting without any VBA code, please try. You can download it and free trial in 60 day.
      Thank you!
  • To post as a guest, your comment is unpublished.
    Xiahui Tan · 9 months ago
    I tried the SumByColor. It works, but not if the numbers have been coloured by conditional formatting. For example, I have a list of different numbers that are coloured red if they are within a range set by a conditional formatting rule. I would then like to sum only the red-coloured numbers. But the SumByColor VBA code does not work in this situation. Any suggestions to make it work. Thanks
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Xiahui,
      The above code can not applied to conditional formatting color, but, you can use our Kutools for Excel' Count by color feature, with it, you can quickly get the result for counting or summing based on the conditional formatting color. See the below screenshot:
  • To post as a guest, your comment is unpublished.
    Kriss · 9 months ago
    Hey
    Nice macro. I used it to just count from a simple matrix. The problem is that the macro counts also empty cells. How to exclude empty cells from counting?
    • To post as a guest, your comment is unpublished.
      skyyang · 9 months ago
      Hello, Kriss,
      To count the cells based on font color excluding the blank cells, please apply the below User Defined Function, please try:

      Public Function CountColour(pRange1 As Range, pRange2 As Range) As Double
      Application.Volatile
      Dim rng As Range
      For Each rng In pRange1
      If rng.Value <> "" Then
      If rng.Font.Color = pRange2.Font.Color Then
      CountColour = CountColour + 1
      End If
      End If
      Next
      End Function
  • To post as a guest, your comment is unpublished.
    Tahj · 10 months ago
    Exactly what I was looking for! This will save me lots of time. Thank You
  • To post as a guest, your comment is unpublished.
    Fernanda · 11 months ago
    Muito obrigada já ajudou muito, porém a minha formula só adiciona à soma outro número quando eu uso o pincel para mudar a cor, se eu trocar a cor da fonte pela barra de ferramenta não dá certo, alguém saber me explicar - webchio@gmail.com
  • To post as a guest, your comment is unpublished.
    Cheryl · 1 years ago
    This was SO helpful - Thanks very much!
  • To post as a guest, your comment is unpublished.
    Hien Dang · 1 years ago
    Hướng dẫn bên trên hình như chỉ áp dụng khi màu của giá trị trong ô hoặc màu nền của ô được tô màu bằng Manual.M muốn đếm số ô mà giá trị được bôi màu theo cách Conditional Formatting.Xin giúp đỡ ạ!
  • To post as a guest, your comment is unpublished.
    Gennelee · 1 years ago
    Hi I tried it but when I changed the color of other items, it doesnt add up or the sum doesnt change.
    Please help me.
  • To post as a guest, your comment is unpublished.
    JWong · 1 years ago
    Hi,

    I followed the instructions and it works well. But then when i re-open the file, the module window is empty. It seems i cannot save the code as needed. A box pops up saying that "VB project cannot be saved in macro-free workbooks" and therefore i have to save as a macro-free workbook.

    Please advise if I have missed any steps.

    Thanks,
    J. Wong
  • To post as a guest, your comment is unpublished.
    Adam · 1 years ago
    Rather than count or sum cells based on font colour, is there a way to display certain 'values' in another column based on font colour? for example, I have a column with multiple company names that each have a specific font colour to indicate a specific calendar year. I would like to simply create a 'year' column beside this. So for example if column B contains text with font colour green, this will display "2017" in column C. And if column B contains text with font colour red, this will display "2016" in column C. I dread to do this manually as I have thousands of rows!
  • To post as a guest, your comment is unpublished.
    antonella · 2 years ago
    Hi,
    I followed the instructions above for SumByColor and they worked great.
    I was wondering whether there is a similar formula in VB to sum by background color rather than using Kutools.
    thanks, Antonella
  • To post as a guest, your comment is unpublished.
    Mike · 2 years ago
    hi, your solution works well but when i change the content of a cell in the range to the colour selected the result cell doesn't auto update unless i go to the result cell select the formula and hit enter. Is there a way to auto update the result cell when the range is amended.
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      Hello, Mike,
      May be there is no other good method to update the result automatically when you change the cell font color, so, you need selec t the formula cell and hit Enter key or click the Automatic under the Formulas tab to get the updated result.
      If you have any other good ways, please comment here.
      Thank you very much!
  • To post as a guest, your comment is unpublished.
    mfleming · 2 years ago
    I did everything as instructed by I get #VALUE! instead of a total. I changed the formula to subtotal one single cell and it worked but when the formula has a range of cells (in my case D3:D53, I get the #VALUE result.
  • To post as a guest, your comment is unpublished.
    dfmoeller · 2 years ago
    I can't seem to get past this syntax error that I am getting. I'm not very knowledgeable when it comes to visual basic, so I'm hoping that it is just a small typing error (although I did cut and paste the code from above, rather than retype). The machine is running Windows 10/Office 2013. The error says "compile error / syntax error". The VB windows shows the line with the IF statement in the SumByColor module as highlighted. Please tell me what I'm doing wrong.
  • To post as a guest, your comment is unpublished.
    Liz · 2 years ago
    I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?
    • To post as a guest, your comment is unpublished.
      skyyang · 2 years ago
      [quote name="Liz"]I followed the instructions for SUMbyColor (for font).Showed up perfectly on my screen (my work pc has Excel 2010 ) however, on my boss's screen it comes up as '#NAME?' (fyi, his pc has the current Excel version).Is there any way to resolve this?[/quote]
      Hello,LIZ:
      After inserting the code, you should save the workbook as [b]Excel Macro-Enabled Workbook[/b] file format. And then when you open this Excel file next time, you should click[b] Enable Content[/b] from the security warning ribbon to activate the macro code. Please try this.
  • To post as a guest, your comment is unpublished.
    Luke · 2 years ago
    Hi tks for the advice.
    I have a similar problem of MYTAWALBEH
    I would like to include more columns in the function
    would be great if someone has some tips
    cheers
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and working brilliant however is it possible for anyone to explain how I could apply this to a multiple set of sheets??

    Any idea will be much appreciated so cheers in advance.
  • To post as a guest, your comment is unpublished.
    Smudge · 2 years ago
    Great read and works awesome but could someone please tell me how to apply this to multiple sheets.

    If anyone can, this will be brilliant for what I need and will be much appreciated indeed.
  • To post as a guest, your comment is unpublished.
    Phillip · 3 years ago
    Is there any way to count the cells by colour without Kutools?
  • To post as a guest, your comment is unpublished.
    Nicola · 3 years ago
    Hi! Works great, thanks.

    However, doesnt work for cells with more than one colour. Is it possible to update this code to do this?

    Nikki
  • To post as a guest, your comment is unpublished.
    KH · 3 years ago
    How do I get the spread sheet to automatically update? If my data/color changes the sum doesn't update until I select the cell with the formula, hit F2, and then click off the cell. I want my sheet to automatically update as the data changes. Thanks.
  • To post as a guest, your comment is unpublished.
    atul gaur · 3 years ago
    Sir#name error aa rahi hai
  • To post as a guest, your comment is unpublished.
    Leanne · 3 years ago
    Hi

    I need to count the number of cells in orange font from cell range B:B if Cell Range AB says 'Ventura'

    The above allows you to count according to one criteria but doesn't allow a second - I have tried but I have never written macros before and cannot get this working. Urgent help needed please?

    Thank you
    Leanne
  • To post as a guest, your comment is unpublished.
    Diana · 4 years ago
    I followed your directions for the count but in the cells that I have =CountColour(...) I have the #NAME error. I have multiple tabs, so I put the code in the sheet where I want to use it but I still got the error, so then I put it in a module. What am I missing??
    • To post as a guest, your comment is unpublished.
      nada · 3 years ago
      Click the Microsoft Office Button , and then click Excel Options.
      Click Trust Center, click Trust Center Settings, and then click Macro Settings.
      Click the options to enable macro
  • To post as a guest, your comment is unpublished.
    gwenn · 4 years ago
    thank you very much... needed a little debugging but I think that's because nothing is ever cookie cutter, what I did to fix my issues may be different than what anyone else may need to do (based on version, etc.) but once I took out the rem'd line and made sure that I was pointing to the right fields and format field to do the comparison to, it worked like a charm.
  • To post as a guest, your comment is unpublished.
    Janna · 4 years ago
    the countcolor function includes the spaces between the cell that has that specific color. can you fix this?

    thanks alot!
  • To post as a guest, your comment is unpublished.
    magician1314 · 4 years ago
    MYTawalbeh,

    I had the same issue. You have to save the workbook as a macro enabled workbook so the macro copies over. Otherwise you will continue to have the error because the macro isn't being copied over.
  • To post as a guest, your comment is unpublished.
    MYTawalbeh · 4 years ago
    IT worked ,, thank you
    But when I save and close worksheet then re-open, it shows (#Name?)
    I've saved it (Macro-enabled)
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      Click to enable macros on the yellow bar at the top of the page when you open your document and your formulas will come back. Hope this helps.
  • To post as a guest, your comment is unpublished.
    Stefanos N · 4 years ago
    Excellent work!

    Saved my wife's night!

    Thx
  • To post as a guest, your comment is unpublished.
    MEREDITH · 4 years ago
    Hello, I keep getting an error as follows "Ambiguous name detected: SumByColor". What am i doing wrong?
    • To post as a guest, your comment is unpublished.
      Lisa · 2 years ago
      I got this message when I tried to apply the same thing to another spreadsheet. When you go to insert module and copy in the text change it to SumByColour (different spelling and note there are two instances of it in the text). Then when I tried to use the formula in my second spreadsheet the new spelling came up which I selected and now the function works in this spreadsheet too. I hope this works for you because I am finding it extremely useful for various spreadsheets I work with.
  • To post as a guest, your comment is unpublished.
    Eddie L · 4 years ago
    I use a very similar method but have been playing with MULTI Colored fonts... say [Only the [b]BOLD[/b] word is red], fingers crossed you have a thought as to how I may achieve this!

    Cheers
    Eddie
  • To post as a guest, your comment is unpublished.
    nomnom · 4 years ago
    super cool, helped me a ton.

    if you don't mind me asking.
    when i try this on a colored cell number affected with "Conditional Formatting" it seems to see all the numbers as a single color. are there any way to have the program recognize that the color is different.
  • To post as a guest, your comment is unpublished.
    Khizar Hayat. · 5 years ago
    it works very good and so nice function.

    thank you.
  • To post as a guest, your comment is unpublished.
    Oguz Canturk · 5 years ago
    How do we do well to access?
  • To post as a guest, your comment is unpublished.
    Nick Roma · 5 years ago
    Hi,
    when i use this formula it keeps coming up with "Compile Error: Must be first statement on the line" and it has highlighted the "Function" on the first line of the formula. Help??
    • To post as a guest, your comment is unpublished.
      Suzy · 2 years ago
      May be you did not insert a module instead copied the code on the screen after Alt+F11
  • To post as a guest, your comment is unpublished.
    Minh Chau · 5 years ago
    Thank you so much! It works like wonder!