Note: The other languages of the website are Google-translated. Back to English
English English

Bagaimana cara mewarnai grafik berdasarkan warna sel di Excel?

Biasanya, saat Anda membuat bagan, warna bilah kolom adalah default. Jika Anda perlu memformat warna yang diisi pada setiap bilah berdasarkan warna sel seperti gambar berikut yang ditunjukkan, bagaimana Anda bisa menyelesaikannya di Excel?

Warnai bagan dengan satu atau beberapa seri data berdasarkan warna sel dengan kode VBA

Warnai grafik dengan satu atau beberapa seri data berdasarkan warna sel dengan fitur luar biasa


Warnai bagan dengan satu atau beberapa seri data berdasarkan warna sel dengan kode VBA

Warnai bagan dengan satu seri data berdasarkan warna sel

Dengan kode VBA berikut, Anda dapat dengan cepat mengubah warna grafik yang berisi satu seri data berdasarkan warna nilai sel asli, lakukan seperti ini:

1. Pertama, buat bagan batang atau kolom seperti gambar berikut yang ditampilkan (Pilih data dan klik Menyisipkan > Sisipkan Kolom atau Bagan Batang):

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di Module Window.

Kode VBA: Batang bagan warna dengan satu seri data berdasarkan warna sel:

Sub ColorChartColumnsbyCellColor()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, xRows As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    With xChart.SeriesCollection(1)
        Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(1), "!")(1))
        xRows = xRg.Rows.Count
        Set xRg = xRg(1)
        For I = 1 To xRows
            .Points(I).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xRg.Offset(I - 1, 0).Interior.ColorIndex)
        Next
    End With
End Sub

Note: Pada kode di atas, Grafik 1 adalah nama bagan yang ingin Anda gunakan, harap ubah menjadi nama Anda sendiri.

4. Setelah menempelkan kode di atas, silahkan tekan F5 kunci untuk menjalankan kode ini, dan warna batang bagan telah diubah berdasarkan warna sel asli, lihat tangkapan layar:


Warnai bagan dengan beberapa seri data berdasarkan warna sel

Jika bagan Anda dengan beberapa seri data, harap terapkan kode VBA berikut:

1. Silakan buat diagram batang atau kolom yang berisi beberapa seri data seperti gambar berikut yang ditampilkan:

2. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Klik Menyisipkan > Modul, dan tempel kode berikut di jendela modul.

Kode VBA: Batang bagan warna dengan beberapa seri data berdasarkan warna sel:

Sub CellColorsToChart()
'Updateby Extendoffice
    Dim xChart As Chart
    Dim I As Long, J As Long
    Dim xRowsOrCols As Long, xSCount As Long
    Dim xRg As Range, xCell As Range
    On Error Resume Next
    Set xChart = ActiveSheet.ChartObjects("Chart 1").Chart
    If xChart Is Nothing Then Exit Sub
    xSCount = xChart.SeriesCollection.Count
    For I = 1 To xSCount
        J = 1
        With xChart.SeriesCollection(I)
            Set xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
            If xSCount > 4 Then
                xRowsOrCols = xRg.Columns.Count
            Else
                xRowsOrCols = xRg.Rows.Count
            End If
            For Each xCell In xRg
                .Points(J).Format.Fill.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                .Points(J).Format.Line.ForeColor.RGB = ThisWorkbook.Colors(xCell.Interior.ColorIndex)
                J = J + 1
            Next
        End With
    Next
End Sub

4. Lalu tekan F5 kunci untuk menjalankan kode ini, bar bagan diisi dengan warna sel asli sekaligus, lihat tangkapan layar:

Catatan:

1. Pada kode di atas, Grafik 1 adalah nama bagan yang ingin Anda gunakan, harap ubah menjadi nama Anda sendiri.

2. Kode ini juga dapat diterapkan pada diagram garis.


Warnai grafik dengan satu atau beberapa seri data berdasarkan warna sel dengan fitur luar biasa

Dengan menggunakan kode di atas, warna grafik tidak akan selalu cocok dengan warna sel, untuk mengatasi masalah ini, saya akan memperkenalkan alat yang berguna - Ubah Warna Bagan Menurut Warna Sel of Kutools untuk Excel, dengan fitur praktis ini, Anda bisa mewarnai bagan berdasarkan warna sel dengan cepat dan mudah.

Catatan: Untuk menerapkan ini Ubah Warna Bagan Menurut Warna Sel, pertama, Anda harus mengunduh Kutools untuk Excel, lalu terapkan fitur dengan cepat dan mudah.

Setelah menginstal Kutools untuk Excel, lakukan seperti ini:

1. Pertama, silahkan masukkan grafik yang ingin Anda gunakan, lalu pilih grafik, lalu klik Kutools > Charts > Alat Bagan > Ubah Warna Bagan Menurut Warna Sel, lihat tangkapan layar:

2. Dan kemudian, kotak prompt muncul, klik OK .

3. Sekarang, bagan yang Anda pilih telah diwarnai berdasarkan warna sel seperti gambar di bawah ini yang ditampilkan:

Warnai bagan dengan satu seri data berdasarkan warna sel

Warnai bagan dengan beberapa seri data berdasarkan warna sel

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!


Artikel bagan lainnya:

  • Buat Diagram Batang yang Melapisi Diagram Batang Lain Di Excel
  • Saat kami membuat bagan batang atau kolom berkerumun dengan dua seri data, dua batang seri data akan ditampilkan berdampingan. Namun, terkadang, kita perlu menggunakan hamparan atau diagram batang yang tumpang tindih untuk membandingkan dua seri data dengan lebih jelas. Pada artikel ini, saya akan berbicara tentang cara membuat diagram batang yang tumpang tindih di Excel.
  • Salin Satu Format Bagan Ke Orang Lain Di Excel
  • Misalkan ada beberapa jenis bagan di lembar kerja Anda, Anda telah memformat satu bagan sesuai kebutuhan Anda, dan sekarang Anda ingin menerapkan pemformatan bagan ini ke bagan lain. Tentu saja, Anda dapat memformat orang lain secara manual satu per satu, tetapi ini akan membuang banyak waktu, adakah cara cepat atau praktis bagi Anda untuk menyalin satu format bagan ke format lain di Excel?
  • Sorot Titik Data Maks dan Min Dalam Bagan
  • Jika Anda memiliki bagan kolom yang ingin Anda sorot titik data tertinggi atau terkecil dengan warna berbeda agar menonjol seperti gambar berikut yang ditampilkan. Bagaimana Anda bisa mengidentifikasi nilai tertinggi dan terkecil dan kemudian menyorot titik data di bagan dengan cepat?
  • Buat Bagan Langkah Di Excel
  • Diagram langkah digunakan untuk menunjukkan perubahan yang terjadi pada interval yang tidak teratur, ini adalah versi diagram garis yang diperpanjang. Namun, tidak ada cara langsung untuk membuatnya di Excel. Artikel ini, saya akan berbicara tentang cara membuat bagan langkah selangkah demi selangkah di lembar kerja Excel.
  • Buat Diagram Batang Kemajuan Di Excel
  • Di Excel, diagram batang kemajuan dapat membantu Anda memantau kemajuan menuju target seperti gambar berikut yang ditampilkan. Tapi, bagaimana Anda bisa membuat diagram batang kemajuan di lembar kerja Excel?

Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2019 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (8)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Jika saya memiliki lebih banyak grafik di lembar saya? apakah kamu punya kode lain?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih untuk kode-kode ini! Ini adalah persis apa yang saya cari dengan satu detail yang tidak cukup pas. Ketika saya menjalankan kode, grafik batang diwarnai dengan benar tetapi bukan legenda yang tetap tidak berubah. Apakah ada variasi pada kode yang menyertakan legenda? Atau adakah cara untuk mencocokkan Legenda dengan perubahan di bagan tanpa kode?
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas kode-kodenya! Bagaimana Anda menambahkan format bersyarat ketika format sudah ditetapkan?
Komentar ini diminimalkan oleh moderator di situs
Ini adalah awal yang luar biasa, tetapi warna bagan dan sel tidak selalu cocok. Tahu kenapa?
Komentar ini diminimalkan oleh moderator di situs
saya tidak bisa membuatnya bekerja :( apakah ini seharusnya berfungsi pada diagram batang bertumpuk? Terima kasih
Komentar ini diminimalkan oleh moderator di situs
Tidak apa-apa. Tapi... kenapa tidak masuk ke opsi "Format Legend Entry" di setiap seri data di bagan, dan pilih "Isi" dan buat warna yang Anda inginkan. Maksud saya ... semuanya baik-baik saja, tetapi kode VBA untuk tugas sederhana ini agak berlebihan. Tapi terima kasih. Hargai Anda membagikannya.
Komentar ini diminimalkan oleh moderator di situs
Jika saya memiliki lebih banyak grafik di lembar saya? apakah kamu punya kode lain?
Komentar ini diminimalkan oleh moderator di situs
Untuk lebih dari 1 Bagan:



Sub CellColorsToChart()'Updateby Extendoffice
Redupkan xChart Sebagai Bagan
Redup I Selama, J Selama, Selamanya
Redupkan xRowsOrCols Selamanya, xSCount Selama Rentang Dim xRg As, xCell As Range
On Error Resume Next

Untuk Y = 1 Sampai 100Setel xChart = ActiveSheet.ChartObjects("Bagan "&Y). Bagan Jika xChart Bukan Apa-apa Kemudian Keluar dari Sub
xSCount = xChart.SeriesCollection.Count
Untuk I = 1 Sampai xSCount
J = 1
Dengan xChart.SeriesCollection(I)
Tetapkan xRg = ActiveSheet.Range(Split(Split(.Formula, ",")(2), "!")(1))
Jika xSCount > 4 Maka
xRowsOrCols = xRg.Columns.Count
Lain
xRowsOrCols = xRg.Rows.Count
End If
Untuk Setiap xCell Dalam xRg
.Points(J).Format.Fill.ForeColor.RGB = Buku Kerja Ini.Warna(xCell.Interior.ColorIndex)
.Points(J).Format.Line.ForeColor.RGB = Buku Kerja Ini.Warna(xCell.Interior.ColorIndex)
J = J + 1
Next
Akhiri Dengan Selanjutnya
Next
End Sub

Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan