Shari beküldi az e heti Excel kérdést.
Nem találtam erre a választ az informatikai részlegünkről, az Excel súgófájljaiból vagy a Microsoft Excel online súgójából, és remélem, hogy tud segíteni.
Húsz éven át elemzem az Excel adatait, és minden évhez készítenem kell az Excel kördiagramokat. Az Excel diagramok egy pivot táblán (vagy az Excel 2000 pivot charton) alapulnak, az év oldalmezőként szerepel. A probléma az, hogy nem minden év ugyanazokat az elemeket tartalmazza, ezért minden Excel diagram más színt használ ugyanazon pite szelet.
Megpróbáljuk összehasonlítani a 20 év adatait, ezért elengedhetetlen az egyes diagramok azonos színe. Végül sok grafikon mindegyik szeletét meg kell változtatnom, hogy megfeleljen az elsőnek, néha többször is, mert a színek megváltozhatnak, ha az adatok változnak, és újra kell számolnom azt a pivot táblázatot, amelyre a diagram épül.
MrExcel először próbálta ki a forgástáblát. A pivot-diagramok nagyon hatékony módszerek diagramok létrehozására az adatok különböző forgatókönyveihez, de rendelkeznek ezzel a bosszantó hibával. Felállítottam a forgatótáblát, amelynek sora az év, az oldal az év volt. Kértem, hogy az osztályév válogasson csökkenő pontszámok alapján. Amint évről évre megváltoztatja a forgástáblát, a Freshman-hez társított pite szeletek színei megváltoznak. Néhány évben vannak tagok mind a négy osztályból, máskor csak 3 osztályból vannak tagok.
Az Excel minden szeletre alapértelmezett színrendet alkalmaz, így a megfelelő színek évről évre változnak. Látom, hogy menedzserem undorral rázta a fejét, amikor átadtam neki ezeket a listákat.
Van egy módja annak, hogy egy vizuális alapmakróval megoldjuk ezt a problémát. Ha úgy állítja be az adatcímkéket, hogy megjelenítsék a címke nevét, akkor a visual basic-ben meg lehet találni az egyes szeletek nevét. Miután megvan a neve, újraszínezheti a szelet színét a név értéke alapján.
Az Excel 1990-ben a fenti színeket használta, de 1991-ben a színek változnak az elemek számának és sorrendjének változásával:
A következő makrót keményen kódoljuk Shari konkrét példájához, ahol a Gólya, Másodéves, Junior és Senior lehetséges értékei vannak. További, különféle színindexekkel rendelkező Case utasítások hozzáadásával testreszabhatja ezeket az adott helyzet kezeléséhez.
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 SubIndítsa el a VB szerkesztőt az alt-F11 paranccsal. Do Insert - modul. Beszúrási eljárás. Írja be a ColorPieSlices nevet, és kattintson az OK gombra. Írja be a fenti makrót.
Az élet megkönnyítése érdekében rendelje hozzá a makrót az Excel parancsikonjához. Az Excelben végezze el az Eszközök - Makró lehetőséget. Jelölje ki a ColorPieSlices elemet, és kattintson a Beállítások gombra. A gyorsbillentyű mezőbe írjon be egy "d" betűt. Kattintson az OK gombra, és zárja be a Makró párbeszédpanelt az "x" gombra kattintva a jobb felső sarokban. Most, miután megváltoztatta a kimutatási diagramot, megnyomhatja a Ctrl + D billentyűkombinációt, hogy a tortaszeleteket a kívánt színkészletre színezze át.
