Šaris siunčia šios savaitės „Excel“ klausimą.
Neradau atsakymo į šį klausimą iš mūsų IT skyriaus, „Excel“ pagalbos failų ar „Microsoft Excel“ internetinės pagalbos ir tikiuosi, kad galite padėti.
Analizuoju „Excel“ duomenis per dvidešimt metų ir man reikia sudaryti kiekvienų metų „Excel“ skritulių diagramas. „Excel“ diagramos yra pagrįstos suvestine lentele (arba suvestine diagrama „Excel 2000“), o metai kaip puslapio laukas. Problema ta, kad ne visais metais yra tie patys elementai, todėl kiekvienoje „Excel“ diagramoje tam pačiam bus naudojama skirtinga spalva. pyrago griežinėlis.
Bandome palyginti šių 20 metų duomenis, todėl būtina turėti tas pačias kiekvienos diagramos spalvas. Galų gale turiu pakeisti kiekvieną daugelį diagramų skiltelių, kad jos atitiktų pirmąją, kartais kelis kartus, nes spalvos gali pasikeisti, jei keičiasi duomenys ir turiu iš naujo apskaičiuoti sukamą lentelę, pagal kurią pateikiama diagrama.
MrExcelas pirmą kartą išbandė sukimosi diagramą. „Pivot“ diagramos yra labai galingas būdas sukurti diagramą keliems skirtingiems duomenų scenarijams, tačiau jie turi šį erzinantį trūkumą. Aš sukūriau sukamą lentelę, kurios eilutė buvo klasės metai, puslapis - metai. Paprašiau, kad klasės metai būtų surūšiuoti pagal mažėjančius balus. Kasmet keičiant sukimo diagramą, pasikeis su „Freshman“ susietų pyrago griežinėlių spalvos. Kai kuriais metais yra narių iš visų keturių klasių, kitais metais - tik iš 3 klasių.
„Excel“ kiekvienai daliai taiko numatytąją spalvų tvarką, todėl atitinkamos spalvos keisis kiekvienais metais. Matau, kaip mano vadovas pasibjaurėdamas purto galvą, kai padaviau jam šias diagramas.
Yra būdas su vaizdine pagrindine makrokomanda išspręsti šią problemą. Jei nustatysite duomenų žymes, kad būtų rodomas etiketės pavadinimas, galima rasti kiekvieno gabalo pavadinimą iš „Visual Basic“. Gavę vardą, galite perdažyti to gabalo spalvą pagal pavadinimo vertę.
„Excel“ 1990 m. Naudojo anksčiau nurodytas spalvas, tačiau 1991 m. Spalvos keičiasi keičiant elementų skaičių ir jų seką:
Ši makrokomanda yra užkoduota konkrečiam Šari pavyzdžiui, kai ji turi galimas pirmakursių, antrakursių, jaunesniųjų ir vyresniųjų vertybes. Pridėdami papildomų atvejų sakinius su skirtingais spalvų indeksais, galite tai pritaikyti, kad susidorotumėte su konkrečia situacija.
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 SubPaleiskite VB redaktorių naudodami alt-F11. „Do Insert“ - modulis. Įterpti procedūrą. Įrašykite „ColorPieSlices“ kaip pavadinimą ir spustelėkite Gerai. Įveskite aukščiau pateiktą makrokomandą.
Norėdami palengvinti gyvenimą, priskirkite makrokomandą „Excel“ nuorodai. Programoje „Excel“ atlikite Įrankiai - makrokomanda. Pažymėkite „ColorPieSlices“ ir spustelėkite parinkčių mygtuką. Spartiųjų klavišų laukelyje įveskite „d“. Spustelėkite Gerai ir uždarykite makrokomandų langą spustelėdami „x“ viršutiniame dešiniajame kampe. Dabar, pakeisdami „Pivot“ diagramą, galite paspausti „Ctrl“ + D, kad pyrago griežinėliais nuspalvintumėte norimą spalvų rinkinį.
