Shari, bu haftanın Excel sorusunu gönderiyor.
BT departmanımızdan, Excel yardım dosyalarından veya Microsoft Excel çevrimiçi yardımından bu sorunun cevabını bulamadım ve umarım yardım edebilirsin.
Excel verilerini yirmi yıllık bir süre boyunca analiz ediyorum ve her yıl için Excel pasta grafikleri yapmam gerekiyor. Excel grafikleri, bir sayfa alanı olarak yıl içeren bir pivot tabloya (veya Excel 2000'de Pivot Grafiğine) dayanmaktadır. Sorun, tüm yılların aynı öğeleri içermemesi, bu nedenle her Excel grafiğinin aynı için farklı bir renk kullanmasıdır. pasta dilimi.
Bu 20 yıldaki verileri karşılaştırmaya çalışıyoruz, bu nedenle her grafik için aynı renklere sahip olmak çok önemlidir. Sonunda birçok grafikteki birçok dilimi ilkiyle eşleşecek şekilde, bazen birkaç kez değiştirmek zorunda kalıyorum çünkü veriler değişirse renkler değişebilir ve grafiğin temel aldığı pivot tabloyu yeniden hesaplamam gerekir.
MrExcel, pivot çizelgesini ilk kez denedi. Pivot grafikler, birkaç farklı veri senaryosu için bir grafik oluşturmanın çok güçlü bir yoludur, ancak bu can sıkıcı kusurları vardır. Pivot tabloyu satır olarak sınıf yılı, sayfa olarak yıl olacak şekilde ayarladım. Sınıfın azalan puanlara göre sıralanmasını istedim. Pivot grafiği yıldan yıla değiştirdikçe, Birinci Sınıf ile ilişkili pasta dilimlerinin renkleri değişecektir. Bazı yıllarda dört sınıfın hepsinden üye var, diğer yıllarda sadece 3 sınıftan üyeler var.
Excel, her bir dilime varsayılan bir renk sırası uygular, böylece ilgili renkler yıldan yıla değişir. Bu çizelgeleri ona verirken menajerimin iğrenerek başını salladığını görebiliyorum.
Bu sorunu çözmenin görsel bir temel makro ile bir yolu var. Veri etiketlerini etiket adını görüntüleyecek şekilde ayarlarsanız, her bir dilimin adını visual basic içinden bulmak mümkündür. Bir adınız olduğunda, o dilimin rengini adın değerine göre yeniden renklendirebilirsiniz.
Excel, 1990 için yukarıdaki renkleri kullandı, ancak 1991'de renkler öğelerin sayısı ve sıralaması değiştikçe değişir:
Aşağıdaki makro, Shari'nin birinci, ikinci, ikinci ve üçüncü sınıf olası değerlerine sahip olduğu özel örneği için sabit kodlanmıştır. Farklı renk indekslerine sahip ek Durum ifadeleri ekleyerek, bunu kendi özel durumunuza göre özelleştirebilirsiniz.
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 SubVB düzenleyiciyi alt-F11 ile başlatın. Ekle - Modül. Prosedürü Ekle. Ad olarak ColorPieSlices yazın ve Tamam'a tıklayın. Yukarıdaki makroyu girin.
Hayatı kolaylaştırmak için makroyu Excel'deki bir kısayola atayın. Excel'de Araçlar - Makro yapın. ColorPieSlices'i vurgulayın ve seçenekler düğmesini tıklayın. Kısayol tuşu kutusuna bir "d" girin. Tamam'ı tıklayın ve sağ üst köşedeki "x" işaretini tıklayarak Makro iletişim kutusunu kapatın. Şimdi, Pivot Grafiğinizi değiştirdikten sonra, pasta dilimlerini tercih ettiğiniz renk kümesine göre yeniden renklendirmek için Ctrl + D tuşlarına basabilirsiniz.
