Šari iesūta šīs nedēļas Excel jautājumu.
Es nevarēju atrast atbildi uz šo no mūsu IT nodaļas, Excel palīdzības failiem vai Microsoft Excel tiešsaistes palīdzības, un ceru, ka jūs varat palīdzēt.
Es analizēju Excel datus divdesmit gadu laikā, un man ir jāveido Excel sektoru diagrammas katram gadam. Excel diagrammas ir balstītas uz rakurstabulu (vai pagrieziena diagrammu programmā Excel 2000), lapas gads ir gads. Problēma ir tā, ka ne visos gados ir vieni un tie paši vienumi, tāpēc katrā Excel diagrammā tam pašam tiks izmantota atšķirīga krāsa. pīrāga šķēle.
Mēs cenšamies salīdzināt šo 20 gadu datus, tāpēc ir svarīgi, lai katrai diagrammai būtu vienādas krāsas. Man galu galā ir jāmaina katrs daudzais slānis daudzās diagrammās, lai tie atbilstu pirmajam, dažreiz vairākas reizes, jo krāsas var mainīties, ja mainās dati, un man ir jāpārrēķina rakurstabula, uz kuras balstās diagramma.
MrExcel pirmo reizi izmēģināja pagrieziena diagrammu. Pagrieziena diagrammas ir ļoti spēcīgs veids, kā izveidot diagrammu vairākiem dažādiem datu scenārijiem, taču tām ir šis kaitinošais trūkums. Es izveidoju pagrieziena tabulu ar klases gadu kā rindu, gadu kā lapu. Es palūdzu, lai klases gads tiktu sakārtots, ņemot vērā dilstošos rādītājus. Gadu no gada mainot pagrieziena diagrammu, mainīsies ar Freshman saistīto pīrāgu šķēlīšu krāsas. Dažus gadus ir dalībnieki no visām četrām klasēm, citus gadus dalībnieki ir tikai no 3 klasēm.
Excel katrai šķēlei piemēro noklusējuma krāsu secību, tāpēc attiecīgās krāsas katru gadu mainīsies. Es redzu, kā mans menedžeris riebīgi krata galvu, kad pasniedzu viņam šīs diagrammas.
Ir veids, kā ar vizuālo pamata makro atrisināt šo problēmu. Ja iestatāt datu plāksnītes uz etiķetes nosaukuma parādīšanu, tad katras šķēles nosaukumu ir iespējams atrast no visual basic. Kad esat ieguvis vārdu, varat mainīt šīs šķēles krāsu, pamatojoties uz nosaukuma vērtību.
Excel 1990. gadā izmantoja iepriekš minētās krāsas, bet 1991. gadā krāsas mainās, mainoties vienumu skaitam un to secībai:
Šis makro ir grūti kodēts konkrētam Šari piemēram, kur viņai ir iespējamās pirmkursnieka, otrā kursa, juniora un vecākā vērtības. Pievienojot papildu lietu paziņojumus ar dažādiem krāsu indeksiem, varat to pielāgot, lai rīkotos atbilstoši jūsu situācijai.
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 SubSāciet VB redaktoru ar alt-F11. Vai ievietot - modulis. Ievietošanas procedūra. Ierakstiet ColorPieSlices kā nosaukumu un noklikšķiniet uz Labi. Ievadiet iepriekš minēto makro.
Lai padarītu dzīvi vieglāku, piešķiriet makro saīsnei programmā Excel. Programmā Excel veiciet Rīki - makro. Iezīmējiet ColorPieSlices un noklikšķiniet uz opcijas pogas. Īsinājumtaustiņu lodziņā ievadiet “d”. Noklikšķiniet uz Labi un aizveriet dialoglodziņu Makro, augšējā labajā stūrī noklikšķinot uz "x". Tagad, mainot rakursdiagrammu, varat nospiest taustiņu kombināciju Ctrl + D, lai pīrāga šķēles mainītu vēlamajā krāsu komplektā.
