kalo tanpa conditioning formatting dengan warna-warni
Sub WarnaWarni()
Const sRangeTarget As String = "A1:G8"
Dim aRange As Range, i As Long, c As Range
'object range yang akan diwarnai
Set aRange = Range(sRangeTarget)
'hapus warna sebelumnya
aRange.Clear
'memberi warna selang seling
For Each c In aRange
i = (c.Row Mod 2) + (c.Column Mod 2)
'jika i= 1 warnai cells dengan kombinasi RGB
If i = 1 Then
c.Interior.Color = RGB(Int(Rnd() * 100), Int(Rnd() * 100),
Int(Rnd() * 100))
End If
Next
End Sub
-----Original Message-----
From: zainul_ulum[at]yahoo[dot]com [mailto:[email protected]]
Sent: Wednesday, April 16, 2014 1:42 PM
To: '[email protected]'
Subject: RE: [belajar-excel] Challenge VBA: Membuat warna pada cell [1
Attachment]
Mas Rust
sebenarnya bisa pakai conditional formatting tanpa vba.
karena yang diminta pakai vba berikut codenya:
Sub WarnaCatur2()
With [A1:G8] 'range target
.FormatConditions.Delete 'menghapus conditional format sebelumnya
'membuat conditional formating dan mewarnainya (fill)
With .FormatConditions.Add(xlExpression,
Formula1:="=MOD(ROW(),2)+MOD(COLUMN(),2)=1").Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
End With
End With
End Sub
2014-04-16 11:56 GMT+07:00 dwint ruswanto <[email protected]>:
@Miss Jan: kalo MJR dan moderator turun gunung kan gak keliatan lagi asyiknya
challenge ini wkwkwkwk :D @pak Hery: scriptnya bagus pak.. tapi ada 1 syarat
yang kurang, yaitu harus menerangkan jalannya script di body email hehehe :) @
Pak Ferry, kalo lihat gambar yang saya sertakan, di sana warnanya ada banyak
pak.. tidak terbatas 2 warna saja.. tidak ada batasan minimal cel.. yang
penting scriptnya bisa jalan dan pak Ferry bisa menerangkan kepada BeExceller
yang lain tentang logika atau alur script yang diberikan. Ditunggu kreasi
scriptnya pak :) ayoo.. yang lain ditunggu kreasinya ya..
Wassalam,
-dwint-
Pada 16 April 2014 11.19, Ferry Alexander <[email protected]> menulis:
wah nice challange nih, mohon diperjelas untuk range cell yang digunakan apakah
ada batasan minimal misalnya 100 cell begitu?
Kebetulan kemarin habis sharring sana rekan-rekan diperusahaan lain ttg
interior cell....
untuk ukuran file sudah jelas maksimal 250kb, warna apakah hanya 2 warna saja
atau boleh lebih dari 2 warna, mohon penjelasannya.
Rgds,
ferry
--
Terima kasih
Raya
