የአንድ ገበታ ቀለም ከሴሎች ከውሂቡ ጋር

የችግሩ መፈጠር

በሂስቶግራም ላይ ያሉት ዓምዶች (ወይም በፓይ ገበታ ላይ ያሉ ቁርጥራጮች፣ ወዘተ) ተጓዳኝ ህዋሶችን በምንጭ ውሂቡ ለመሙላት ጥቅም ላይ የዋለው ቀለም በራስ-ሰር እንዲኖራቸው እፈልጋለሁ፡-

የግለሰቦችን አጋሮች የሚገርሙ እና የሚያናድዱ ጩኸቶችን በመገመት ፣ በስዕሉ ላይ ያለው የመሙያ ቀለም እንዲሁ በእጅ ሊቀየር እንደሚችል ልብ ሊባል ይገባል (በአምዱ ላይ በቀኝ ጠቅ ያድርጉ - የነጥብ / ተከታታይ ቅርጸት (የመረጃ ነጥብ/ተከታታይ ይቅረጹ) ወዘተ - ማንም አይከራከርም. ነገር ግን በተግባር ግን ይህንን በቀጥታ በሴሎች ውስጥ ከመረጃ ጋር ለማድረግ ቀላል እና የበለጠ ምቹ በሚሆንበት ጊዜ ብዙ ሁኔታዎች አሉ ፣ ከዚያ ገበታው በራስ-ሰር እንደገና መቀባት አለበት። ለምሳሌ በዚህ ገበታ ውስጥ ላሉት አምዶች መሙላትን በክልል ለማዘጋጀት ይሞክሩ፡

ሃሳቡን የተረዳህ ይመስለኛል፣ አይደል?

መፍትሔ

ይህን ማድረግ የሚችለው ከማክሮ በስተቀር ምንም ነገር የለም። ስለዚህ, እንከፍተዋለን ቪዥዋል ቤዚክ አርታዒ ከትር ገንቢ (ገንቢ - ቪዥዋል ቤዚክ አርታዒ) ወይም የቁልፍ ሰሌዳ አቋራጩን ይጫኑ Alt + F11, በምናሌው ውስጥ አዲስ ባዶ ሞጁል አስገባ አስገባ - ሞጁል እና ሁሉንም ስራ የሚያከናውነውን የእንደዚህ ዓይነቱን ማክሮ ጽሑፍ እዚያ ይቅዱ።

ንዑስ ቻርት ቀለሞችን ከዳታሴሎች() አይነት ስም (ምርጫ) ከሆነ <> "ChartArea" then MsgBox "Сначала выделите диаграмму!" ከተዋቀረ ንዑስ መጨረሻ ውጣ c = ActiveChart ለ j = 1 ወደ c.SeriesCollection.Count f = c.SeriesCollection(j) ፎርሙላ m = ክፋይ (f, ",") አዘጋጅ r = ክልል (m (2)) ለ i = 1 ወደ r.Cells.ለመቁጠር c.SeriesCollection(j) .ነጥቦች(i) .ቅርጸት.ሙላ.ForeColor.RGB = _ r.ሴሎች(i).ውስጣዊ.ቀለም ቀጣይ i ቀጣይ j መጨረሻ ንዑስ.  

አሁን Visual Basicን መዝጋት እና ወደ ኤክሴል መመለስ ትችላለህ። የተፈጠረውን ማክሮ መጠቀም በጣም ቀላል ነው። ሰንጠረዡን ምረጥ (የገበታ ቦታ እንጂ የቦታ ቦታ፣ ፍርግርግ ወይም አምዶች አይደለም!)

እና የእኛን ማክሮ በአዝራሩ ያሂዱ ማክሮስ ትር ገንቢ (ገንቢ - ማክሮ) ወይም በቁልፍ ሰሌዳ አቋራጭ Alt + F8. በተመሳሳዩ መስኮት ውስጥ, በተደጋጋሚ ጥቅም ላይ በሚውልበት ጊዜ, አዝራሩን በመጠቀም የቁልፍ ሰሌዳ አቋራጭ ወደ ማክሮ መመደብ ይችላሉ ግቤቶች (አማራጮች).

PS

በሽቱ ውስጥ ያለው ብቸኛው ዝንብ ሁኔታዊ የቅርጸት ደንቦችን በመጠቀም ቀለም ወደ ምንጭ ውሂብ ሴሎች ሲመደብ ተመሳሳይ ተግባርን መጠቀም የማይቻል ነው. እንደ አለመታደል ሆኖ ቪዥዋል ቤዚክ እነዚህን ቀለሞች ለማንበብ አብሮ የተሰራ መሳሪያ የለውም። እርግጥ ነው, የተወሰኑ "ክራችቶች" አሉ, ግን በሁሉም ጉዳዮች ላይ አይሰሩም እና በሁሉም ስሪቶች ውስጥ አይደሉም.

• ማክሮዎች ምንድን ናቸው ፣ እንዴት እንደሚጠቀሙባቸው ፣ በ Visual Basic ውስጥ ማክሮ ኮድ የት እንደሚያስገባ
• ሁኔታዊ ቅርጸት በ Excel 2007-2013
• በ Excel 2013 ውስጥ በቻርት ውስጥ ምን አዲስ ነገር አለ።