Shari saadab selle nädala Exceli küsimuse.
Ma ei suutnud sellele küsimusele vastust leida meie IT-osakonnast, Exceli abifailidest ega Microsoft Exceli veebiabist ning loodan, et saate aidata.
Analüüsin Exceli andmeid kahekümne aasta jooksul ja pean tegema iga aasta kohta Exceli sektordiagrammid. Exceli diagrammid põhinevad liigendtabelis (või liigenddiagramis Excel 2000-s), leheväljana on aasta. Probleem on selles, et kõik aastad ei sisalda samu üksusi, seega kasutab iga Exceli diagramm sama värvi jaoks erinevat värvi pirukaviil.
Püüame võrrelda nende 20 aasta andmeid, seega on hädavajalik, et kõigil diagrammidel oleksid samad värvid. Pean lõpuks muutma paljude diagrammide paljusid viilusid, et need vastaksid esimesele, mõnikord mitu korda, sest värvid võivad muutuda, kui andmed muutuvad, ja ma pean ümber arvutama pöördtabeli, millel diagramm põhineb.
MrExcel proovis pöörddiagrammi esimest korda. Pöörddiagrammid on väga võimas viis diagrammide loomiseks mitme erineva stsenaariumi jaoks, kuid neil on see tüütu viga. Seadistasin pöördtabeli, mille reaks oli klassi aasta, leheks aasta. Palusin klassiaastal sortida kahanevate hindete alusel. Aasta-aastalt pöörddiagrammi muutmisel muutuvad Freshmaniga seotud pirukaviilude värvid. Mõnel aastal on liikmeid kõigist neljast klassist, teisel aastal on liikmeid kõigest 3 klassist.
Excel rakendab igale lõigule vaikimisi värvide järjekorra, nii et vastavad värvid muutuvad aastast aastasse. Ma näen, kuidas mu juht raputas vastikult pead, kui ma talle need edetabelid ulatasin.
Selle probleemi saab lahendada visuaalse põhimakroga. Kui seadistate andmesildid sildi nime kuvamiseks, on iga viilu nimi võimalik leida visuaalse põhi alt. Kui nimi on olemas, saate selle viilu värvi muuta vastavalt nime väärtusele.
Excel kasutas 1990. aastal ülaltoodud värve, kuid 1991. aastal muutuvad värvid üksuste arvu ja järjestuse muutumisel:
Järgmine makro on kõvasti kodeeritud Shari konkreetse näite jaoks, kus tal on võimalikud väärtused Esmakursuslane, Sophomore, Junior ja Senior. Lisades täiendavaid juhtumeid, millel on erinevad värviindeksid, saate seda kohandada oma konkreetse olukorra lahendamiseks.
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 SubKäivitage VB redaktor alt-F11-ga. Kas sisestada - moodul. Sisestage protseduur. Tippige nimeks ColorPieSlices ja klõpsake nuppu OK. Sisestage ülaltoodud makro.
Elu hõlbustamiseks määrake makro Exceli otseteele. Tehke Excelis Tööriistad - makro. Tõstke esile ColorPieSlices ja klõpsake nuppu suvandid. Sisestage otseteeklahvi kasti "d". Klõpsake nuppu OK ja sulgege dialoogiboks Makro, klõpsates paremas ülanurgas oleval nupul "x". Nüüd, kui olete oma liigenddiagrammi muutnud, võite klahvikombinatsiooni Ctrl + D abil muuta pirukaviilud eelistatud värvikomplekti.
