Barve grafikona vrtilne tabele - nasveti za Excel

Kazalo

Shari pošlje vprašanje za Excel v tem tednu.

Odgovora na to vprašanje nisem našel v našem IT oddelku, Excelovih datotekah za pomoč ali spletni pomoči za Microsoft Excel in upam, da lahko pomagate.

Podatke programa Excel analiziram v obdobju dvajsetih let in za vsako leto moram narediti tortne diagrame programa Excel. Grafikoni Excel temeljijo na vrtilni tabeli (ali vrtilni grafikonu v Excelu 2000) z letnico kot poljem strani. Težava je v tem, da vsa leta ne vsebujejo enakih elementov, zato bo vsak Excelov grafikon za isto barvo uporabil drugo barvo rezina pite.

Poskušamo primerjati podatke v teh 20 letih, zato je nujno imeti enake barve za vsak grafikon. Na koncu moram spremeniti vsako veliko rezino na številnih grafikonih, da se ujema s prvo, včasih tudi večkrat, ker se lahko barve spremenijo, če se podatki spremenijo, in moram ponovno izračunati vrtilno tabelo, na kateri temelji grafikon.

MrExcel je prvič preizkusil vrtilni grafikon. Vrtilni grafikoni so zelo zmogljiv način za ustvarjanje grafikona za več različnih scenarijev podatkov, vendar imajo to nadležno napako. Vrtilno tabelo sem postavil z letnikom razreda kot vrstico in letnikom kot stranjo. Prosil sem, da razredno leto razvrstite glede na padajoče rezultate. Med spreminjanjem vrtilnega grafikona iz leta v leto se bodo barve rezin tort, povezanih s Freshmanom, spreminjale. Nekatera leta so člani iz vseh štirih razredov, druga leta pa člani iz samo treh razredov.

Vzorčni vrtilni grafikon

Excel uporabi privzeti vrstni red barv za vsako rezino, zato se bodo ustrezne barve spreminjale iz leta v leto. Vidim, da se moj upravitelj z gnusom zmajuje z glavo, ko sem mu razdelil te karte.

To težavo lahko rešimo z vizualnim osnovnim makrom. Če nastavite oznake podatkov tako, da prikazujejo ime oznake, potem je možno poiskati ime vsake rezine znotraj visual basic. Ko imate ime, lahko barvo te rezine prebarvate glede na vrednost imena.

Vzorčni vrtilni grafikon

Excel je uporabil zgornje barve za leto 1990, vendar se leta 1991 barve spreminjajo s spreminjanjem števila elementov in njihovega zaporedja:

Naslednji makro je trdo kodiran za poseben primer Shari, kjer ima možne vrednosti brucoš, sophomore, junior in senior. Če dodate dodatne stavke Case z različnimi barvnimi indeksi, lahko to prilagodite svojim okoliščinam.

Sub ColorPieSlices() ' Copyright 1999.com ' This macro will re-color the pie slices in a chart ' So that slices for a specific category are similarly colored ' Select the chart before calling the macro ' ' Find the number of pie slices in this chart NumPoints = ActiveChart.SeriesCollection(1).Points.Count ' Loop through each pie slice For x = 1 To NumPoints ' Save the label currently attached to this slice If ActiveChart.SeriesCollection(1). _ Points(x).HasDataLabel = True Then SavePtLabel = ActiveChart.SeriesCollection(1) _ .Points(x).DataLabel.Text Else SavePtLabel = "" End If ' Assign a new data label of just the point name ActiveChart.SeriesCollection(1).Points(x).ApplyDataLabels Type:= _ xlDataLabelsShowLabel, AutoText:=True ThisPt = ActiveChart.SeriesCollection(1).Points(x).DataLabel.Text ' Based on the label of this slice, set the color Select Case ThisPt Case "Freshman" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 3 Case "Sophomore" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 4 Case "Junior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 5 Case "Senior" ActiveChart.SeriesCollection(1). _ Points(x).Interior.ColorIndex = 6 Case Else ' Add code here to handle an unexpected label End Select ' Return the label to it's original pre-macro state ActiveChart.SeriesCollection(1). _ Points(x).DataLabel.Text = SavePtLabel Next x End Sub

Zaženite urejevalnik VB z alt-F11. Vstavi - modul. Vstavite postopek. Kot ime vnesite ColorPieSlices in kliknite V redu. Vnesite zgornji makro.

Za lažje življenje makro dodelite bližnjici v Excelu. V Excelu naredite Orodja - Makro. Označite ColorPieSlices in kliknite gumb z možnostmi. V polje za bližnjico vnesite "d". Kliknite V redu in zaprite pogovorno okno Makro s klikom na "x" v zgornjem desnem kotu. Zdaj, ko spremenite vrtilni grafikon, lahko pritisnete Ctrl + D, da rezine tort prebarvate v želeni nabor barv.

Zanimive Članki...