Схари шаље овонедељно Екцел питање.
На овај одговор нисам успео да пронађем у нашем ИТ одељењу, Екцел датотекама за помоћ или Мицрософт Екцел мрежи на мрежи и надам се да можете помоћи.
Анализирам Екцел податке током периода од двадесет година и морам да правим Екцел табеле за сваку годину. Екцел табеле се заснивају на заокретној табели (или заокретној табели у програму Екцел 2000), са годином као пољем странице. Проблем је што све године не садрже исте ставке, па ће сваки Екцел графикон користити другу боју за исту кришка пите.
Покушавамо да упоредимо податке током ових 20 година, тако да је неопходно имати исте боје за сваки графикон. На крају морам да променим сваки много кришки на многим графиконима како би се подударао са првим, понекад и неколико пута, јер се боје могу променити ако се подаци промене и морам поново да рачунам пивот табелу на којој се графикон заснива.
МрЕкцел је први пут испробао пивот графикон. Пивот графикони су врло моћан начин за стварање графикона за неколико различитих сценарија података, али имају ту досадну ману. Поставио сам пивот табелу са годином разреда као редом, годином као страницом. Тражио сам да се разредна година сортира на основу опадајућих резултата. Како из године у годину мењате стожерни графикон, мењаће се и боје кришки колача повезаних са Фресхманом. Неке године постоје чланови из сва четири разреда, друге године чланови из само 3 разреда.
Екцел примењује подразумевани редослед боја на сваки пресек, па ће се одговарајуће боје мењати из године у годину. Видим како се мој менаџер гадљиво одмахује главом док сам му давао ове карте.
Постоји начин помоћу основног визуелног макроа да се реши овај проблем. Ако поставите ознаке података тако да приказују име ознаке, тада је могуће пронаћи име сваког пресека унутар висуал басиц-а. Једном када добијете име, можете да пребојате боју тог пресека на основу вредности имена.
Екцел је горње боје користио за 1990. годину, али 1991. године боје се мењају како се мења број предмета и њихов редослед:
Следећи макро је добро кодиран за Шариин специфичан пример где она има могуће вредности бруцоша, другог разреда, млађег и старијег. Додавањем додатних изјава Цасе са различитим индексима боја, можете ово прилагодити да се носи са вашом одређеном ситуацијом.
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 SubПокрените ВБ едитор са алт-Ф11. До Инсерт - модул. Уметни поступак. Унесите ЦолорПиеСлицес као Име и кликните на дугме У реду. Унесите горњи макро.
Да бисте олакшали живот, доделите макро пречици у програму Екцел. У програму Екцел извршите Алати - Макро. Означите ЦолорПиеСлицес и кликните дугме са опцијама. У поље за пречице унесите „д“. Кликните на дугме У реду и затворите дијалог „Макро“ кликом на „к“ у горњем десном углу. Сада, након што промените заокретну табелу, можете притиснути Цтрл + Д да бисте пререзали кришке пита у жељени скуп боја.
