Boja grafikona iz ćelija sa svojim podacima

Formulacija problema

Želio bih da kolone na histogramu (ili kriške na tortnom grafikonu, itd.) automatski imaju boju koja je korištena za popunjavanje odgovarajućih ćelija izvornim podacima:

Predviđajući iznenađene i ogorčene povike pojedinih drugova, treba napomenuti da se, naravno, boja ispune dijagrama može mijenjati i ručno (desni klik na kolonu – Format tačke/serija (Formatirajte tačku podataka/seriju) itd. – niko ne raspravlja. Ali u praksi postoji mnogo situacija kada je lakše i praktičnije to učiniti direktno u ćelijama s podacima, a zatim bi grafikon trebao biti automatski preslikan. Pokušajte, na primjer, postaviti popunjavanje po regijama za stupce u ovom grafikonu:

Mislim da shvatate ideju, zar ne?

rastvor

Ništa osim makroa to ne može učiniti. Stoga, otvaramo Visual Basic editor sa kartice Developer (Programer — Visual Basic Editor) ili pritisnite prečicu na tastaturi Alt + F11, ubacite novi prazan modul kroz meni Umetak – Modul i tamo kopirajte tekst takvog makroa koji će obaviti sav posao:

Sub SetChartColorsFromDataCells() Ako TypeName(Izbor) <> "ChartArea" Tada MsgBox "Načala izbacite dijagramu!" Exit Sub End Ako je postavljeno c = ActiveChart Za j = 1 Na c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ",") Postavite r = Range(m(2)) Za i = 1 To r.Cells.Count c.SeriesCollection(j).Points(i).Format.Fill.ForeColor.RGB = _ r.Cells(i).Interior.Color Next i Next j End Sub

Sada možete zatvoriti Visual Basic i vratiti se u Excel. Korištenje kreiranog makroa je vrlo jednostavno. Odaberite grafikon (područje grafikona, ne područje grafikona, mrežu ili kolone!):

i pokrenite naš makro pomoću dugmeta Macros tabulator Developer (Programer — Makroi) ili prečicom na tastaturi Alt + F8. U istom prozoru, u slučaju česte upotrebe, makrou možete dodeliti prečicu na tastaturi pomoću dugmeta parametri (Opcije).

PS

Jedina muka je nemogućnost korištenja slične funkcije za slučajeve kada se boja dodjeljuje ćelijama izvornih podataka pomoću pravila uvjetnog oblikovanja. Nažalost, Visual Basic nema ugrađeni alat za čitanje ovih boja. Postoje, naravno, određene „štake“, ali one ne rade za sve slučajeve i ne u svim verzijama.

  • Šta su makroi, kako ih koristiti, gdje ubaciti makro kod u Visual Basic
  • Uslovno oblikovanje u Excelu 2007-2013
  • Šta je novo u grafikonima u programu Excel 2013

Ostavite odgovor