Shari mengirimkan pertanyaan Excel minggu ini.
Saya belum dapat menemukan jawaban untuk pertanyaan ini dari departemen TI kami, file bantuan Excel, atau bantuan online Microsoft Excel, dan saya berharap Anda dapat membantu.
Saya menganalisis data Excel selama dua puluh tahun, dan perlu membuat diagram lingkaran Excel untuk setiap tahun. Bagan Excel didasarkan pada tabel pivot (atau Bagan Pivot di Excel 2000), dengan tahun sebagai bidang halaman. Masalahnya adalah tidak semua tahun berisi item yang sama, jadi setiap bagan Excel akan menggunakan warna yang berbeda untuk hal yang sama. potongan pai.
Kami mencoba membandingkan data selama 20 tahun ini, jadi memiliki warna yang sama untuk setiap bagan sangatlah penting. Saya akhirnya harus mengubah setiap banyak irisan pada banyak bagan agar cocok dengan yang pertama, terkadang beberapa kali karena warna dapat berubah jika data berubah dan saya harus menghitung ulang tabel pivot yang menjadi dasar bagan.
MrExcel mencoba grafik pivot untuk pertama kalinya. Bagan pivot adalah cara yang sangat ampuh untuk membuat bagan untuk beberapa skenario data yang berbeda, tetapi mereka memiliki kekurangan yang mengganggu ini. Saya menyiapkan tabel pivot dengan tahun kelas sebagai baris, tahun sebagai halaman. Saya meminta tahun kelas untuk mengurutkan berdasarkan nilai menurun. Saat Anda mengubah diagram pivot dari tahun ke tahun, warna irisan pai yang terkait dengan Freshman akan berubah. Beberapa tahun ada anggota dari keempat kelas, tahun lainnya ada anggota hanya dari 3 kelas.
Excel menerapkan urutan warna default untuk setiap irisan, sehingga warna yang sesuai akan berubah dari tahun ke tahun. Saya dapat melihat manajer saya menggelengkan kepalanya dengan jijik saat saya menyerahkan bagan ini kepadanya.
Ada cara dengan makro visual basic untuk mengatasi masalah ini. Jika Anda mengatur datalabel untuk menampilkan nama label, maka dimungkinkan untuk menemukan nama setiap potongan dari dalam visual basic. Setelah Anda memiliki nama, Anda dapat mewarnai ulang warna potongan tersebut berdasarkan nilai namanya.
Excel menggunakan warna-warna di atas untuk tahun 1990, tetapi pada tahun 1991 warna berubah seiring dengan banyaknya item dan urutannya berubah:
Makro berikut adalah hard-code untuk contoh spesifik Shari di mana dia memiliki kemungkinan nilai Freshman, Sophomore, Junior dan Senior. Dengan menambahkan pernyataan Kasus tambahan dengan indeks warna berbeda, Anda dapat menyesuaikan ini untuk menangani situasi khusus Anda.
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 SubMulai editor VB dengan alt-F11. Lakukan Sisipkan - Modul. Sisipkan Prosedur. Ketik ColorPieSlices sebagai Name dan klik OK. Masukkan makro di atas.
Untuk membuat hidup lebih mudah, tetapkan makro ke pintasan di Excel. Di Excel, lakukan Alat - Makro. Sorot ColorPieSlices dan klik tombol opsi. Di kotak tombol pintas, masukkan "d". Klik OK dan tutup kotak dialog Makro dengan mengklik "x" di pojok kanan atas. Sekarang, setelah Anda mengubah Bagan Pivot, Anda dapat menekan Ctrl + D untuk mewarnai ulang irisan pai ke kumpulan warna pilihan Anda.
