Shari lähettää tämän viikon Excel-kysymyksen.
En ole löytänyt vastausta tähän vastaukseen IT-osastoltamme, Excel-ohjetiedostoista tai Microsoft Excelin online-ohjeista, ja toivon, että voit auttaa.
Analysoin Excel-tietoja kahdenkymmenen vuoden ajan, ja minun on tehtävä Excel-ympyräkaaviot kullekin vuodelle. Excel-kaaviot perustuvat pivot-taulukkoon (tai pivot-kaavio Excel 2000: ssa), jolloin vuosi on sivukenttä. Ongelmana on, että kaikki vuodet eivät sisällä samoja kohteita, joten jokainen Excel-kaavio käyttää eri väriä samalle piirasviipale.
Yritämme verrata tietoja näiden 20 vuoden ajalta, joten jokaisen kaavion samat värit ovat välttämättömiä. Minun on lopulta vaihdettava jokainen monta kaaviota monilla kaavioilla vastaamaan ensimmäistä, joskus useita kertoja, koska värit voivat muuttua, jos tiedot muuttuvat, ja minun on laskettava uudelleen taulukko, johon kaavio perustuu.
MrExcel kokeili kääntökarttaa ensimmäisen kerran. Pivot-kaaviot ovat erittäin tehokas tapa luoda kaavio useille erilaisille skenaarioille, mutta niillä on tämä ärsyttävä virhe. Perustin pivot-taulukon, jossa rivinä oli vuoden vuosi, sivuna vuosi. Pyysin luokan vuotta lajittelemaan laskevien pisteiden perusteella. Kun vaihdat pivot-kaaviota vuodesta toiseen, Freshmaniin liittyvien piirakkaviipaleiden värit muuttuvat. Joskus on jäseniä kaikista neljästä luokasta, toisinaan vain kolmesta luokasta.
Excel käyttää oletusarvojärjestystä kullekin osalle, joten vastaavat värit muuttuvat vuodesta toiseen. Näen, että esimieheni ravistaa päätään inhona, kun annoin hänelle nämä kaaviot.
Visuaalisen perusmakron avulla on tapa ratkaista tämä ongelma. Jos asetat nimilaput näyttämään tarran nimen, jokaisen osion nimi on mahdollista löytää Visual Basic -sovelluksesta. Kun sinulla on nimi, voit värittää kyseisen leikkeen värin nimen arvon perusteella.
Excel käytti yllä olevia värejä vuodelle 1990, mutta vuonna 1991 värit muuttuvat tuotteiden määrän ja niiden järjestyksen muuttuessa:
Seuraava makro on kovakoodattu Sharin erityiselle esimerkille, jossa hänellä on mahdolliset arvot Freshman, Sophomore, Junior ja Senior. Lisäämällä ylimääräisiä tapauslausekkeita, joissa on erilaiset väriindeksit, voit mukauttaa tämän vastaamaan tilannettasi.
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äynnistä VB-editori Alt-F11: llä. Tee Lisää - moduuli. Lisää menettely. Kirjoita nimeksi ColorPieSlices ja napsauta OK. Kirjoita yllä oleva makro.
Tee elämästä helpompaa määrittämällä makro pikakuvakkeelle Excelissä. Tee Excelissä Työkalut - makro. Korosta ColorPieSlices ja napsauta Asetukset-painiketta. Kirjoita pikanäppäinruutuun "d". Napsauta OK ja sulje Makro-valintaikkuna napsauttamalla "x" oikeassa yläkulmassa. Nyt, kun olet vaihtanut pivot-kaaviota, voit painaa Ctrl + D värittääksesi piirasviipaleet haluamaasi värijoukkoon.
