Rabu, 16 April 2014

[belajar-excel] Digest Number 2877

7 Messages

Digest #2877

Messages

Tue Apr 15, 2014 10:57 pm (PDT) . Posted by:

"Bagus" bagus4bls

Wa'alaykum salam warohmatullohi wabarokatuhu...

Ikutan celeng ya mod...
maaf bisanya baru begini...

file terlampir

Wassalam

~ Bagus ~

----- Original Message -----
From: dwint ruswanto
To: belajar-excel@yahoogroups.com
Sent: Wednesday, April 16, 2014 10:45 AM
Subject: [belajar-excel] Challenge VBA: Membuat warna pada cell

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-

Tue Apr 15, 2014 11:02 pm (PDT) . Posted by:

"Sony Ario"

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 <dwint.ruswanto@gmail.com>:

>
>
> 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-
>
>
>

Tue Apr 15, 2014 11:09 pm (PDT) . Posted by:

"Raya Hidayat" raya.hidayat

dear mas dwint ruswanto

terlampir makro untuk tantangan yang mas berikan.
masih newbie jadi mohon petujuk...

variabel x = nilai cell sumbu x
variabel y = nilai cell sumbu y
variabel z = jumlah maksimal cell yang ingin diulang --> dalam makro ini
pakai nilai 10

jalannya makro menggunakan For Next untuk pengulangan sampai jumlah cell
yang diinginkan. (dalam makro ini sampai 10)
baik untuk nilai x maupun nilai y (yang mana duluan sama saja)

Langkah Pertama
mula-mula ditentukan apakah nilai x dan y tersebut masing-masing ganjil
atau genap.
caranya :
1. dengan menggunakan fungsi pembulatan : worksheetfunction odd dan
even
(bisa menggunakan salah satu saja sebenarnya tapi biar keren
pakai dua)
contoh di makronya :
a = WorksheetFunction.Odd(y) --> dibulatkan ke bilangan ganjil
terdekat.
b = WorksheetFunction.Even(x) --> dibulatkan ke bilangan bulat
terdekat

2. dilanjutkan dengan menggunakan fungsi if. bila bilangan tersebut
tidak mengalami pembulatan maka diberi nilai satu.
contoh di makronya :
if a = y Then
a = 1 '--> artinya a ini bilangan ganjil
Else
a = 0
End If

Langkah kedua
Logika yang newbie pakai dalam memberi warna dalam tantangan ini
adalah
cell yang diberi warna nilai x dan y nya tidak sama (bila nilai x =
genap maka nilai y = ganjil dan sebaliknya) yaitu
*. x=ganjil dan y=genap
*. x=genap dan y = ganjil
berhubung di makro ini bila nilai a dan b sama maka nilai x dan y
nya pasti yang satu ganjil dan yang lain genap.
dan diberi warna maka digunakan fungsi if. bila sesuai diberi warna
contoh di makronya : If a = b Then

Langkah ketiga
Pemberian warna di cell
di makronya adalah :
Sheet1.Cells(y, x).Select
With Selection.Interior
.ColorIndex = x + y
.Pattern = xlSolid
End With

untuk jenis warna yang digunakan : iseng memakai nilai penjumlahan
x dan y berhubung hanya 10 jadi tidak masalah.
kalau hitam = 1 kalau tidak salah. (colorindex di makronya)

untuk pattern menggunakan solid , di makronya : Pattern=xlSolid

demikian pola kerja makro yang newbie buat.
ternyata menjelaskan itu susah sekali. mudah-mudahan tidak ada kesalahan
dan bisa dimengerti.

note : ada tombol menghapus warna biar bagus saja dan tidak repot kalau mau
eksperimen.

terima kasih

Raya

2014-04-16 11:56 GMT+07:00 dwint ruswanto <dwint.ruswanto@gmail.com>:

>
>
> @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_hr@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
>>
>>
>
>

--
Terima kasih

Raya

Tue Apr 15, 2014 11:41 pm (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

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 <dwint.ruswanto@gmail.com>:

@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_hr@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

--
Terima kasih

Raya

Wed Apr 16, 2014 1:25 am (PDT) . Posted by:

"zainul_ulum[at]yahoo[dot]com" zainul_ulum

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:zainul_ulum@yahoo.com]
Sent: Wednesday, April 16, 2014 1:42 PM
To: 'belajar-excel@yahoogroups.com'
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 <dwint.ruswanto@gmail.com>:

@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_hr@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

--
Terima kasih

Raya

Wed Apr 16, 2014 2:16 am (PDT) . Posted by:

"De Premor" de.premor

Selamat sore semuanya, baru bisa konek lagi nih

Setelah lama nga nengokin ternyata ada celengan nya yak ! ikutan boleh ?

Sub Gradasi_Catur()
'Definisi Pemakaian Variable, di Office2010 definisi baris cukup
LONG saja karena jumlah baris di excel 2010 hanya 2^20
Dim xRow As Long, MaxRow As Long

'Untuk Colom, menggunakan Integer saja, karena cuman perlu 2^14
Dim xCol As Integer, MaxCol As Integer

'berinteraksi dengan user
MaxRow = InputBox("Masukan Jumlah Baris ?", "Gradasi Catur", 10)
MaxCol = InputBox("Masukan Jumlah Kolom ?", "Gradasi Catur", 10)

'kosongin hasil sebelumnya (kalau ada)
Cells.Clear

'Lakukan perulangan sesuai jumlah baris yang diinginkan user
For xRow = 1 To MaxRow
'Lakukan perulangan sesuai jumlah kolom yang diinginkan user
For xCol = 1 To MaxCol
'Untuk memilih cell
With Cells(xRow, xCol).Interior
'Untuk membuat pewarnaan zigzag
'Jika sisa pembagian 2 pada nilai baris masih
menyisakan 1 (Bilangan Ganjil), maka :
If xRow Mod 2 = 1 Then
'Jika ketemu baris ganjil, maka kasih warna mulai
kolom kedua
'Pewarnaan menggunakan metode RGB ( RED, GREEN,
BLUE ) maksimal nilai masing2 warna adalah 255, dimulai dari 0
'Maka kita buat steping berdasar maksimal jumlah
baris dan kolom yang diminta user untuk
'menghasilkan efek gradasi dengan marna sesuai
contoh soal
If xCol Mod 2 = 0 Then .Color = RGB((255 / MaxRow)
* xRow, (255 / MaxCol) * xCol, 10)
Else
'Jika ketemu baris ganjil, maka kasih warna mulai kolom pertama
If xCol Mod 2 = 1 Then .Color = RGB((255 / MaxRow) * xRow, (255 /
MaxCol) * xCol, 10)
End If
End With

Next
Next
End Sub

Selesai deh

Rgds,
[dp]

On 16-04-2014 13:16, Bagus wrote:
> Wa'alaykum salam warohmatullohi wabarokatuhu...
> Ikutan celeng ya mod...
> maaf bisanya baru begini...
> file terlampir
>
> Wassalam
>
> ~ Bagus ~
>
> ----- Original Message -----
> *From:* dwint ruswanto <mailto:dwint.ruswanto@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> <mailto:belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, April 16, 2014 10:45 AM
> *Subject:* [belajar-excel] Challenge VBA: Membuat warna pada cell
>
> 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-
>

Tue Apr 15, 2014 11:00 pm (PDT) . Posted by:

"Lazuardi Biru" lazuardi_biru84

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.ruswanto@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_hr@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
>

=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Diposting oleh EXCEL FEED LEARNING di 04.24

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)