لون مخطط من خلايا ببياناتها

صياغة المشكلة

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

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

أعتقد أنك فهمت الفكرة ، أليس كذلك؟

الحلول

لا شيء سوى الماكرو يمكنه فعل ذلك. لذلك ، نفتح محرر Visual Basic من علامة التبويب المطور (المطور - محرر Visual Basic) أو اضغط على اختصار لوحة المفاتيح ALT + F11، أدخل وحدة فارغة جديدة من خلال القائمة إدراج - وحدة وانسخ نص مثل هذا الماكرو هناك ، والذي سيقوم بكل العمل:

Sub SetChartColorsFromDataCells () If TypeName (التحديد) <> "ChartArea" ثم MsgBox "Сначала выделите диаграмму!" اخرج من Sub End إذا ضبط c = ActiveChart لـ j = 1 إلى c.SeriesCollection.Count f = c.SeriesCollection (j). Formula m = Split (f، "،") Set r = Range (m (2)) For i = 1 إلى r.Cells.Count c.SeriesCollection (j) .Points (i) .Format.Fill.ForeColor.RGB = _ r.Cells (i).

يمكنك الآن إغلاق Visual Basic والعودة إلى Excel. استخدام الماكرو الذي تم إنشاؤه بسيط للغاية. حدد المخطط (منطقة المخطط ، وليس منطقة الرسم ، أو الشبكة أو الأعمدة!):

وتشغيل الماكرو باستخدام الزر وحدات الماكرو علامة التبويب المطور (المطور - وحدات الماكرو) أو باستخدام اختصار لوحة المفاتيح ALT + F8. في نفس النافذة ، في حالة الاستخدام المتكرر ، يمكنك تعيين اختصار لوحة مفاتيح للماكرو باستخدام الزر المعلمات (خيارات).

PS

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

  • ما هي وحدات الماكرو ، وكيفية استخدامها ، ومكان إدراج التعليمات البرمجية للماكرو في Visual Basic
  • التنسيق الشرطي في Excel 2007-2013
  • الجديد في المخططات في Excel 2013

اترك تعليق