Private Sub PAPAN_CATUR_Click()
Range("=$A$1:$J$1,$A$3:$J$3,$A$5:$J$5,$A$7:$J$7,$A$9:$J$9").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(COLUMN(),2)=0"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.ThemeColor = xlThemeColorLight1
End With
Selection.FormatConditions(1).StopIfTrue = False
Range("=$A$2:$J$2,$A$4:$J$4,$A$6:$J$6,$A$8:$J$8,$A$10:$J$10").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=MOD(COLUMN(),2)=1"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Interior
.ThemeColor = xlThemeColorLight1
End With
End Subpenjelasan texs warna merah.select dilakuakan conditional format dengan formula. perintah mewarnani column yang genap atau ganjil menggunakan formula berikut. =MOD(COLUMN(),2)=0 (jika column genap) =MOD(COLUMN(),2)=1 (jika kolom ganjil) mungkin segitu penjelasanya jika ada kurag lebih mohon maaf.. heheh salam lb Pada Rabu, 16 April 2014 11:56, dwint ruswanto <[email protected]> menulis: @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 >
lb-Challenge VBA Membuat warna pada cell .xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
