the Journal

Archive for Juni 2015

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 at 16:49

Ditulis dalam Biar Gak Lupa

Tagged with ,