Bls: [belajar-excel] Challenge VBA: Membuat warna pada cell [1 Attachment]

[Lazuardi Biru]

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 Sub


penjelasan
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 <dwint.ruswa...@gmail.com> 
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 <ferry...@yahoo.com> 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