Shari šalje ovotjedno Excel pitanje.
Odgovor na ovaj nisam uspio pronaći u našem odjelu za informatiku, datotekama za pomoć programa Excel ili internetskoj pomoći za Microsoft Excel i nadam se da možete pomoći.
Analiziram Excel podatke tijekom razdoblja od dvadeset godina i trebam izrađivati kružne grafikone programa Excel za svaku godinu. Grafikoni programa Excel temelje se na zaokretnoj tablici (ili zaokretnoj tablici u programu Excel 2000), s godinom kao poljem stranice. Problem je u tome što sve godine ne sadrže iste stavke, pa će svaki Excel grafikon koristiti istu boju za istu kriška pite.
Pokušavamo usporediti podatke tijekom ovih 20 godina, pa je neophodno imati iste boje za svaki grafikon. Na kraju moram promijeniti svaku mnogo kriški na mnogim grafikonima kako bi se podudarala s prvom, ponekad i nekoliko puta, jer se boje mogu promijeniti ako se podaci promijene, a ja moram ponovno izračunati stožernu tablicu na kojoj se grafikon temelji.
MrExcel je prvi put isprobao pivot grafikon. Pivot karte su vrlo moćan način za stvaranje grafikona za nekoliko različitih scenarija podataka, ali imaju tu neugodnu manu. Postavio sam zaokretnu tablicu s godinom razreda kao redom, godinom kao stranicom. Tražio sam da se razredna godina sortira na temelju padajućih rezultata. Kako iz godine u godinu mijenjate stožerni grafikon, promijenit će se i boje kriški pita povezanih s Freshmanom. Neke godine postoje članovi iz sva četiri razreda, druge godine članovi iz samo 3 razreda.
Excel primjenjuje zadani redoslijed boja na svaku krišku, pa će se odgovarajuće boje mijenjati iz godine u godinu. Vidim kako se moj menadžer odvratno odmahuje glavom dok sam mu davao ove karte.
Postoji način s vizualnim osnovnim makronaredbama za rješavanje ovog problema. Ako postavite oznake podataka tako da prikazuju naziv oznake, tada je moguće pronaći svaku krišku unutar visual basic-a. Nakon što dobijete ime, možete prebojati boju te kriške na temelju vrijednosti imena.
Excel je gornje boje koristio za 1990. godinu, no 1991. godine boje se mijenjaju kako se mijenja broj predmeta i njihov redoslijed:
Sljedeća makronaredba teško je kodirana za Shariin specifični primjer gdje ona ima moguće vrijednosti brucoša, drugog razreda, mlađeg i starijeg. Dodavanjem dodatnih izjava slučaja s različitim indeksima boja, možete prilagoditi ovo za rješavanje vaše posebne situacije.
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 SubPokrenite VB editor s alt-F11. Umetni - modul. Umetni postupak. Upišite ColorPieSlices kao Ime i kliknite U redu. Unesite gornju makronaredbu.
Da biste olakšali život, dodijelite makronaredbu prečacu u programu Excel. U Excelu napravite Alati - Makronaredba. Označite ColorPieSlices i kliknite gumb opcija. U okvir prečaca unesite "d". Kliknite U redu i zatvorite dijaloški okvir Makronaredbe klikom na "x" u gornjem desnom kutu. Sada, nakon što promijenite zaokretni grafikon, možete pritisnuti Ctrl + D da biste prerezali kriške pite u željeni skup boja.
