Dath cairt bho cheallan leis an dàta aige

Cruthachadh na trioblaid

Bu mhath leam gum biodh an dath gu fèin-ghluasadach aig na colbhan air an histogram (no sliseagan air a’ chlàr-cearcaill, msaa) gus na ceallan co-fhreagarrach a lìonadh leis an dàta stòr:

Le bhith a’ dùileachadh glaodhan iongantach is tàmailteach chompanaich fa-leth, bu chòir a thoirt fa-near, gu dearbh, gum faodar dath an lìonadh san diagram atharrachadh le làimh cuideachd (cliog deas air a’ cholbh - Cruth puing/sreath (Cruth puing dàta / sreath) msaa - chan eil duine ag argamaid. Ach ann an cleachdadh, tha tòrr shuidheachaidhean ann nuair a tha e nas fhasa agus nas goireasaiche seo a dhèanamh gu dìreach anns na ceallan le dàta, agus an uairsin bu chòir an clàr ath-pheantadh gu fèin-ghluasadach. Feuch, mar eisimpleir, an lìonadh a shuidheachadh a rèir sgìre airson nan colbhan sa chairt seo:

Tha mi a ’smaoineachadh gum faigh thu am beachd, ceart?

Solution

Chan urrainn dad ach macro seo a dhèanamh. Mar sin, bidh sinn a’ fosgladh Deasaiche lèirsinneach bunasach a bhon taba -leasachaidh (Leasaiche - deasaiche lèirsinneach bunaiteach) no brùth air ath-ghoirid a’ mheur-chlàir Alt + F11, cuir a-steach modal falamh ùr tron ​​​​chlàr Cuir a-steach - modal agus dèan lethbhreac de theacsa a leithid de mhacra an sin, a nì an obair gu lèir:

Fo-SetChartColorsFromDataCells() Ma tha TypeName(Taghaidh) <> "ChartArea" An uairsin MsgBox "Сначала выделите диаграмму!" Fàg an fho-chrìoch ma tha e air a shuidheachadh c = Cairt Gnìomhach Airson j = 1 Gu c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Suidhich r = Raon(m(2)) Airson i = 1 Gu r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Air adhart i An ath j Deireadh Fo  

Faodaidh tu a-nis Visual Basic a dhùnadh agus tilleadh gu Excel. Tha cleachdadh macro cruthaichte gu math sìmplidh. Tagh a’ chairt (raon clàr, chan e raon a’ phlota, cliath no colbhan!):

agus ruith am macro againn leis a’ phutan macros tab -leasachaidh (Leasaiche - Macros) no le ath-ghoirid meur-chlàr Alt + F8. Anns an aon uinneag, ma thèid a chleachdadh gu tric, faodaidh tu ath-ghoirid meur-chlàr a shònrachadh don macro a ’cleachdadh a’ phutan Chrìochan (Roghainnean).

PS

Is e an aon iteig san ointment nach eil e comasach gnìomh coltach ris a chleachdadh airson cùisean far a bheil an dath air a shònrachadh do cheallan an dàta stòr a’ cleachdadh riaghailtean cruth cumhach. Gu mì-fhortanach, chan eil inneal togte aig Visual Basic airson na dathan sin a leughadh. Tha, gu dearbh, cuid de “crutches”, ach chan eil iad ag obair airson a h-uile cùis agus chan ann anns a h-uile dreach.

  • Dè a th’ ann am macros, mar a chleachdas tu iad, càite an cuir thu a-steach còd macro ann an Visual Basic
  • Cruth cumhach ann an Excel 2007-2013
  • Na tha ùr ann an clàran ann an Excel 2013

Leave a Reply