كيفية تلوين الرسم البياني بناءً على لون الخلية في Excel؟
عادةً ، عند إنشاء مخطط ، يكون لون شريط العمود هو الافتراضي. إذا كنت بحاجة إلى تنسيق اللون المملوء على كل شريط بناءً على ألوان الخلية كما هو موضح في لقطة الشاشة التالية ، فكيف يمكنك حلها في Excel؟
قم بتلوين المخطط بسلسلة بيانات واحدة أو عدة سلاسل بيانات بناءً على لون الخلية باستخدام أكواد VBA
قم بتلوين المخطط بسلسلة بيانات واحدة أو عدة سلاسل بيانات بناءً على لون الخلية بميزة مذهلة
قم بتلوين المخطط بسلسلة بيانات واحدة أو عدة سلاسل بيانات بناءً على لون الخلية باستخدام أكواد VBA
قم بتلوين المخطط بسلسلة بيانات واحدة بناءً على لون الخلية
باستخدام رمز VBA التالي ، يمكنك تغيير لون المخطط الذي يحتوي على سلسلة بيانات واحدة بسرعة استنادًا إلى لون قيم الخلية الأصلية ، يرجى القيام بذلك على النحو التالي:
1. أولاً ، قم بإنشاء مخطط شريطي أو عمودي كما هو موضح في لقطة الشاشة التالية (حدد البيانات وانقر فوق إدراج > إدراج مخطط عمودي أو شريطي):
2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق التعليمة البرمجية التالية في نافذة الوحدة النمطية.
كود فبا: لون أشرطة الرسم البياني مع سلسلة بيانات واحدة استناداً إلى لون الخلية:
Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, xRows As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
If xChart Is Nothing Then Exit Sub
With xChart.SeriesCollection(1)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
xRows = xRg.Rows.Count
Set xRg = xRg(1)
For I = 1 To xRows
.Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
Next
End With
End Sub
ملاحظات: في الكود أعلاه ، الرسم البياني 2 هو اسم الرسم البياني الذي تريد استخدامه ، يرجى تغييره باسمك.
4. بعد لصق الكود أعلاه ، يرجى الضغط F5 مفتاح لتشغيل هذا الرمز ، وتم تغيير لون أشرطة الرسم البياني بناءً على لون الخلية الأصلي ، انظر لقطة الشاشة:
قم بتلوين المخطط بسلسلة بيانات متعددة بناءً على لون الخلية
إذا كان المخطط الخاص بك يحتوي على سلاسل بيانات متعددة ، فالرجاء تطبيق رمز VBA التالي:
1. يرجى إنشاء مخطط شريطي أو عمودي يحتوي على سلاسل بيانات متعددة كما هو موضح في لقطة الشاشة التالية:
2. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
3. انقر إدراج > وحدة، والصق الكود التالي في نافذة الوحدة النمطية.
كود فبا: لون أشرطة الرسم البياني مع سلاسل بيانات متعددة استناداً إلى لون الخلية:
Sub CellColorsToChart()
'Updateby Extendoffice
Dim xChart As Chart
Dim I As Long, J As Long
Dim xRowsOrCols As Long, xSCount As Long
Dim xRg As Range, xCell As Range
On Error Resume Next
Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
If xChart Is Nothing Then Exit Sub
xSCount = xChart.SeriesCollection.Count
For I = 1 To xSCount
J = 1
With xChart.SeriesCollection(I)
Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
If xSCount > 4 Then
xRowsOrCols = xRg.Columns.Count
Else
xRowsOrCols = xRg.Rows.Count
End If
For Each xCell In xRg
.Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
J = J + 1
Next
End With
Next
End Sub
4. ثم اضغط F5 المفتاح لتشغيل هذا الرمز ، تمتلئ أشرطة الرسم البياني بلون الخلايا الأصلي مرة واحدة ، انظر لقطة الشاشة:
الملاحظات:
1. في الكود أعلاه ، الرسم البياني 2 هو اسم الرسم البياني الذي تريد استخدامه ، يرجى تغييره باسمك.
2. يمكن أيضًا تطبيق هذا الرمز على مخطط خطي.
قم بتلوين المخطط بسلسلة بيانات واحدة أو عدة سلاسل بيانات بناءً على لون الخلية بميزة مذهلة
باستخدام الرموز المذكورة أعلاه ، لن تتطابق ألوان الرسم البياني دائمًا مع لون الخلية ، لحل هذه المشكلة ، سأقدم هنا أداة مفيدة - تغيير لون الرسم البياني حسب لون الخلية of كوتولس ل إكسيل، مع هذه الميزة المفيدة ، يمكنك تلوين الرسم البياني بناءً على لون الخلية بسرعة وسهولة.
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:
1. أولاً ، يرجى إدخال المخطط الذي تريد استخدامه ، ثم تحديد المخطط ، ثم النقر فوق كوتولس > الرسوم البيانية > أدوات الرسم البياني > تغيير لون الرسم البياني حسب لون الخلية، انظر لقطة الشاشة:
2. وبعد ذلك ، يظهر مربع موجه ، الرجاء النقر فوق OK .
3. الآن ، تم تلوين الرسم البياني الذي حددته بناءً على ألوان الخلية كما هو موضح أدناه:
قم بتلوين المخطط بسلسلة بيانات واحدة بناءً على لون الخلية
قم بتلوين المخطط بسلسلة بيانات متعددة بناءً على لون الخلية
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
المزيد من مقالات المخططات النسبية:
- قم بإنشاء مخطط شريطي يتراكب على مخطط شريطي آخر في Excel
- عندما نقوم بإنشاء مخطط شريطي متفاوت المسافات أو مخطط عمودي مع سلسلتي بيانات ، سيتم عرض شريطي سلسلة البيانات جنبًا إلى جنب. لكن في بعض الأحيان ، نحتاج إلى استخدام مخطط شريطي متراكب أو متداخل لمقارنة سلسلتي البيانات بشكل أكثر وضوحًا. في هذه المقالة ، سأتحدث عن كيفية إنشاء مخطط شريطي متداخل في Excel.
- نسخ تنسيق مخطط واحد للآخرين في Excel
- لنفترض أن هناك عدة أنواع مختلفة من المخططات في ورقة العمل الخاصة بك ، فقد قمت بتنسيق مخطط واحد حسب حاجتك ، والآن تريد تطبيق تنسيق المخطط هذا على مخططات أخرى. بالطبع ، يمكنك تنسيق الآخرين يدويًا واحدًا تلو الآخر ، ولكن هذا سيضيع الكثير من الوقت ، هل هناك أي طرق سريعة أو سهلة لنسخ تنسيق مخطط واحد إلى تنسيق آخر في Excel؟
- قم بتمييز الحد الأقصى والحد الأدنى لنقاط البيانات في مخطط
- إذا كان لديك مخطط عمودي تريد إبراز أعلى أو أصغر نقاط البيانات بألوان مختلفة لتتفوق عليها كما هو موضح في لقطة الشاشة التالية. كيف يمكنك تحديد القيم الأكبر والأصغر ثم تمييز نقاط البيانات في المخطط بسرعة؟
- إنشاء مخطط خطوة في Excel
- يتم استخدام مخطط الخطوة لإظهار التغييرات التي حدثت على فترات غير منتظمة ، وهو عبارة عن نسخة ممتدة من المخطط الخطي. لكن لا توجد طريقة مباشرة لإنشائه في Excel. في هذه المقالة ، سأتحدث عن كيفية إنشاء مخطط خطوة بخطوة في ورقة عمل Excel.
- إنشاء مخطط شريط التقدم في Excel
- في Excel ، يمكن أن يساعدك مخطط شريط التقدم في مراقبة التقدم نحو الهدف كما هو موضح في لقطة الشاشة التالية. ولكن ، كيف يمكنك إنشاء مخطط شريط التقدم في ورقة عمل Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!