د یو چارټ رنګ د هغې ډاټا سره د حجرو څخه

د ستونزې جوړښت

زه غواړم په هسټوګرام کې کالمونه (یا په پای چارټ کې ټوټې، او نور) په اتوماتيک ډول هغه رنګ ولري چې د سرچینې ډیټا سره د اړوندو حجرو ډکولو لپاره کارول شوی و:

د انفرادي ملګرو د حیرانتیا او قهرجن ژړا اټکل کول، دا باید په پام کې ونیول شي چې البته، په ډیاګرام کې د ډکولو رنګ هم په لاسي ډول بدلیدلی شي (په کالم کې ښیې کلیک وکړئ - نقطه / لړۍ بڼه (د ډیټا نقطه / لړۍ بڼه) وغيره – هیڅوک استدلال نه کوي. مګر په عمل کې ، ډیری شرایط شتون لري کله چې دا په مستقیم ډول د ډیټا سره حجرو کې ترسره کول اسانه او خورا اسانه وي ، او بیا چارټ باید په اوتومات ډول رنګ شي. هڅه وکړئ، د بیلګې په توګه، په دې چارټ کې د کالمونو لپاره د سیمې له مخې ډک کړئ:

زه فکر کوم چې تاسو نظر ترلاسه کوئ، سمه ده؟

د حل

هیڅ شی مګر یو میکرو دا نشي کولی. له همدې امله، موږ خلاص یو بصری اساسی مدیر له ټب څخه د پراختیا (پراختیا کونکی - بصری اساسی مدیر) یا د کیبورډ شارټ کټ فشار ورکړئ Alt + F11د مینو له لارې یو نوی خالي ماډل داخل کړئ داخل کړئ - ماډل او هلته د داسې میکرو متن کاپي کړئ، کوم چې به ټول کار وکړي:

Sub SetChartColorsFromDataCells() که TypeName(Selection) <> "ChartArea" بیا MsgBox "Snachala выделите диаграмму!" د فرعي پای څخه وتل که د j = 1 لپاره c.SeriesCollection.Count f = c.SeriesCollection(j) لپاره c = ActiveChart Set کړئ. Formula m = Split(f, ",") Set r = Range(m(2)) د i لپاره = 1 ته r.Cells.count c.Series Collection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.color بل او بل j پای فرعي

تاسو اوس کولی شئ Visual Basic وتړئ او Excel ته بیرته راشئ. د جوړ شوي میکرو کارول خورا ساده دي. چارټ غوره کړئ (د چارټ ساحه، نه د پلاټ ساحه، گرډ یا کالمونه!):

او زموږ میکرو د تڼۍ سره چل کړئ میکروس ټوپ د پراختیا (پراختیا کونکي - میکروس) یا د کیبورډ شارټ کټ سره Alt + F8. په ورته کړکۍ کې، د بار بار کارولو په صورت کې، تاسو کولی شئ د تڼۍ په کارولو سره میکرو ته د کیبورډ شارټ کټ وټاکئ پارامترونو (اختیارونه).

PS

په مرهم کې یوازینی مچ د قضیو لپاره د ورته فعالیت کارولو ناممکن دی چیرې چې رنګ د مشروط فارمیټینګ قواعدو په کارولو سره د سرچینې ډیټا حجرو ته ټاکل شوی. له بده مرغه، Visual Basic د دې رنګونو لوستلو لپاره جوړ شوی وسیله نلري. البته، ځینې "بیسکه" شتون لري، مګر دا د ټولو قضیو لپاره کار نه کوي او نه په ټولو نسخو کې.

  • میکرو څه دي، څنګه یې وکاروئ، چیرته چې په Visual Basic کې د میکرو کوډ داخل کړئ
  • په Excel 2007-2013 کې مشروط بڼه کول
  • په Excel 2013 کې په چارټونو کې څه نوي دي

یو ځواب ورکړئ ووځي