Assalamualaikum.. Bismillah. Newbie mau ikutan sotoy :D
Berikut script saya :
Sub Tes()
Dim nRow, nCol As Integer
Application.ScreenUpdating = False
For nRow = 1 To 38
For nCol = 1 To 19
Cells(nRow, nCol).Select
If (ActiveCell.Row + ActiveCell.Column) Mod 2 = 1 Then
ActiveCell.Interior.ColorIndex =
WorksheetFunction.RandBetween(3, 18)
End If
Next nCol
Next nRow
End Sub
Logika yg saya gunakan, setiap cell yg aktif Row dan Column index nya
dijumlah kan dan menggunakan fungsi Mod.
semoga logika yg amburadul ini bisa diterima.. hehehe..
2014-04-16 10:45 GMT+07:00 dwint ruswanto <[email protected]>:
>
>
> Assalamu'alaikum wr. wb.,
>
> Berdasarkan permintaan dari pak Heri yang lagi semangat belajar VBA, saya
> mewakili moderator ingin memberikan sedikit challange kepada BeExceller.
>
> Kasusnya seperti gambar di bawah ini:
>
>
> Yang diminta adalah:
> Membuat warna interior cel seperti di atas dengan pola seperti papan catur
> menggunakan VBA, jenis warna bebas asal tidak putih semua hehehehe :)
>
> Boleh menggunakan scipt apa saja, penilaian pemenang akan ditentukan oleh
> moderator dan keputusan moderator tidak bisa diganggu gugat hehehehe :)
>
> Biar adil, Moderator dan Miss Jan Raisin tidak boleh mengikuti challenge
> ini, selain itu semua BeExceller dipersilakan mengikuti challenge ini.
>
> Peserta selain harus menyertakan workbook <= 250 KB juga harus menerangkan
> jalannya script itu di body email, hal ini untuk melatih BeExceller berbagi
> ilmu dan menerangkannya kepada member yang lain.
>
> Buat menambah semangat, ada 2 buah buku sebagai hadiah untuk 2 pemenang,
> tetapi bukan buku mengenai Excel atau VBA karena millis belum memiliki buku
> sendiri. Pemenang akan diminta mengirimkan alamat pengiriman ke email owner
> (bukan email milis) beserta telepon yang bisa dihubungi setelah challenge
> ini ditutup dan diperoleh 2 orang pemenang.
>
> Batas waktu challenge 7 hari mulai sekarang, dan akan ditutup pada hari
> Rabu tanggal 23 April 2014 jam 12:00 WIB.
>
> Tujuan dari challenge ini bukan untuk mengejar hadiahnya, tetapi sekedar
> untuk melatih kemampuan mengajarkan ilmu kepada yang lain.
>
> Selamat berkreasi.
>
> Wassalam,
>
> -dwint-
>
>
>
<<inline: pict-001.png>>
vba challange_sony.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12
