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
catur.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
