Grafik Excel: Warna Bar Otomatis Sesuai Nilai

Pernahkah Anda ingin membuat chart yang memiliki warna bar otomatis menyesuaikan dengan nilai tertentu? Ini mirip dengan fitur Conditional Formatting yang diterapkan pada sebuah chart.

Grafik Excel merupakan alat yang dapat berguna untuk menganalisis dan memvisualisasikan data secara efektif. Salah satu fitur Excel ini memiliki kemampuan untuk mengatur warna bar pada grafik secara otomatis berdasarkan nilai-nilai data yang diinputkan. Dengan fitur ini, Anda dapat dengan mudah menyesuaikan pola atau perbedaan signifikan dalam data tanpa perlu secara manual menyesuaikan setiap elemen grafik. Training excel kali ini akan membahas cara membuat chart yang memiliki warna bar otomatis menyesuaikan dengan nilai tertentu.

Pada contoh training excel di bawah ini, kita akan memformat bar pada chart dengan 3 warna sesuai kondisi berikut:

• merah untuk nilai <= 150000
• kuning untuk nilai > 150.000 dan <= 300.000
• hijau untuk nilai > 300000

Kita akan menerapkan kondisi ini melalui makro. Kemudian kita juga akan menambahkan event makro untuk membuat makro ini dipanggil secara otomatis jika ada perubahan nilai pada data chart.

Membuat Chart

1. Pilih cell B4:C10

2. Klik tab Insert | Chart | 2D Column | Bar

3. Tambahkan data label dengan cara klik tombol [+], kemudian centang Data Labels

4. Kemudian ganti format angka dengan cara klik nilai label, kemudian klik kanan, pilih Format Data Lables

 

5. Pada Number, kita pilihan Category, kita pilih Custom

6. Pada kotak Format Code, masukan kode: #,##0,k; -#,##0,k

7. Kode tersebut akan mengubah format data label menjadi ribuan dan ditambahkan huruf “k”

Membuat Macro untuk Warna Otomatis

1. Klik tab Developer | Code | Visual Basic

2. Tambahkan module baru (jika belum ada), dengan cara klik kanan pada VBA Project, pilih Insert | Module

3. Masukan kode berikut:

Sub ChartAutoColor()

Dim chObj As ChartObject
Dim cht As Chart
Dim srs As Series
Dim pt As Point
Dim i As Integer
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("ChartWS")
Set chObj = ws.ChartObjects("Chart 3")
Set cht = chObj.Chart
Set srs = cht.SeriesCollection(1)

For i = 1 To srs.Points.Count
   Set pt = srs.Points(i)
   Select Case pt.DataLabel.Text
   Case Is < 150000
      'warna merah
      pt.Format.Fill.ForeColor.RGB = RGB(255, 0, 0)
   Case 150000 To 300000
      'warna kuning
      pt.Format.Fill.ForeColor.RGB = RGB(255, 255, 0)
   Case Is > 300000
   'warna hijau
   pt.Format.Fill.ForeColor.RGB = RGB(0, 255, 0)
End Select

Next i

End Sub

4. Jalankan kode

5. Perhatikan perubahan warna pada chart, apakah sudah sesuai dengan kriteria yang dibuat
6. Ubah data bulan Januari, kemudian coba lagi jalankan kode

Membuat Event 

 

Event ini pada dasarnya adalah memantau perubahan worksheet, termasuk didalamnya adalah perubahan data pada range/cell.

1. Pada layar VBAProject, klik kanan Worksheet ChartWS, pilih Code

2. Pada Combo kiri pilih Worksheet

3. Pada pilihan Event, pilih Change

4. Masukan nama makro untuk memformat chart, yaitu: ChartAutoColor

5. Berikutnya, kita coba ganti data chart, apakah event ini berfungsi

6. Kita ganti data bulan Januari

7. Kemudian kita ganti data bulan April

Dengan demikian, menggunakan fitur warna bar otomatis pada grafik Excel bermanfaat untuk mempermudah pemahaman pembaca terhadap pola dan perbedaan dalam dataset. Dengan mengoptimalkan fitur ini dan terus berlatih training excel, pengguna dapat membuat laporan dan presentasi yang lebih efektif serta memperkuat narasi yang ingin disampaikan melalui grafik-grafik yang dibuat menggunakan Excel.

Jika perlu file latihan untuk training excel ini, silahkan download Latihan Chart Warna Otomatis.

Terima kasih telah berkunjung, semoga bermanfaat, chaw.