Langkah langkah dalam mengubah warna pada diagram?

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

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:

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 ...
• Super Formula Bar (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 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!

Langkah langkah untuk mengubah warna pada grafik adalah?

Langkah langkah untuk mengubah warna background pada tabel?

Buatlah langkah langkah cara mengubah warna tulisan pada Microsoft Word?

Bagaimana cara memberi warna pada gambar?