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.
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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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.
- Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!