Paragraf
Formulasi masalah
Aku pengin kolom ing histogram (utawa irisan ing bagan pai, etc.) kanthi otomatis duwe werna sing digunakake kanggo ngisi sel sing cocog karo data sumber:
Ngantisipasi tangisan sing kaget lan nesu saka kanca-kanca individu, kudu dicathet yen, mesthi, warna isi ing diagram uga bisa diganti kanthi manual (klik-tengen ing kolom - Format titik / seri (Format titik data/seri) lsp – ora ana sing mbantah. Nanging ing praktik, ana akeh kahanan nalika luwih gampang lan luwih trep kanggo nindakake iki langsung ing sel kanthi data, banjur grafik kasebut kudu dicet maneh kanthi otomatis. Coba, contone, nyetel ngisi miturut wilayah kanggo kolom ing bagan iki:
Aku mikir sampeyan entuk ide, ta?
solusi
Ora ana apa-apa kajaba makro sing bisa nindakake iki. Mulane, kita mbukak Editor Visual Basic saka tab pangembang (Pangembang - Editor Visual Basic) utawa pencet trabasan keyboard Alt + F11, masang modul kosong anyar liwat menu Insert - Modul lan nyalin teks makro kasebut ing kana, sing bakal nindakake kabeh:
Sub SetChartColorsFromDataCells() Yen TypeName(Selection) <> "ChartArea" Banjur MsgBox "Cначала выделите диаграмму!" Metu Sub End Yen Setel c = ActiveChart Kanggo j = 1 Kanggo c.SeriesCollection.Count f = c.SeriesCollection(j).Formula m = Split(f, ","") Set r = Range(m(2)) For i = 1 Kanggo r.Cells.Count c.SeriesCollection(j).Poin(i).Format.Fill.ForeColor.RGB = _ r.Sel(i).Interior.Warna Sabanjure i Sabanjure j End Sub
Sampeyan saiki bisa nutup Visual Basic lan bali menyang Excel. Nggunakake makro sing digawe gampang banget. Pilih bagan (area bagan, dudu area plot, kothak utawa kolom!):
lan mbukak macro kita karo tombol macro tab pangembang (Pangembang - Makro) utawa nganggo trabasan keyboard Alt + F8. Ing jendhela sing padha, yen kerep digunakake, sampeyan bisa nemtokake trabasan keyboard menyang makro kanthi nggunakake tombol kasebut paramèter (Pilihan).
PS
Mung fly ing ointment iku mokal kanggo nggunakake fungsi padha kanggo kasus ngendi werna diutus kanggo sel saka data sumber nggunakake aturan format saratipun. Sayange, Visual Basic ora duwe alat sing dibangun kanggo maca warna kasebut. Ana, mesthi, "kruk" tartamtu, nanging ora bisa digunakake kanggo kabeh kasus lan ora ing kabeh versi.
- Apa macro, carane nggunakake, ngendi kanggo masang kode macro ing Visual Basic
- Formatting kondisional ing Excel 2007-2013
- Apa Anyar ing Bagan ing Excel 2013