the Journal

Mewarnai Cell di MS. Excel dengan Menggunakan VBA

leave a comment »


Untuk mewarnai sebuah cell di Microsoft Excel berdasarkan angka tertentu di setiap cell yang dibandingkan dengan sebuah nilai target dapat digunakan VBA berikut:

Sub ColorCells()

Dim Data As Range
Dim cell As Range

Set currentsheet = ActiveWorkbook.Sheets(“Minimum”)
Set Data = currentsheet.Range(“D4:D50”)
Set NilaiTarget = currentsheet.Range(“B1”)

For Each cell In Data

If cell.value <= 0 Then cell.Interior.ColorIndex = 6 ‘——— warna kuning
If cell.value > 0.25 Then cell.Interior.Color = RGB(0, 176, 80) ‘——— warna hijau

Next

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Call ColorCells

End Sub

Jika ingin menggunakan perintah ColorIndex maka rujukan nilai warna dapat dilihat di sini.

Jika ingin mewarnai dengan menggunakan angka indeks warna maka gunakan perintah cell.Interior.ColorIndex sedangkan jika ingin menggunakan kode RGB maka perintah yang harus dipakai adalah cell.Interior.Color

Written by syahmins

Juni 5, 2015 pada 16:49

Ditulis dalam Biar Gak Lupa

Tagged with ,

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: