Selasa, 15 April 2014

[belajar-excel] Digest Number 2876

15 Messages

Digest #2876
1a
Re: Waktu Kalkulasi VB by "Jan Raisin"
1b
Re: Waktu Kalkulasi VB by "Heri Pamungkas ( Gmail )" dchoosen88
1c
Re: Waktu Kalkulasi VB by "Mr. Kid" nmkid.family@ymail.com
1d
Re: Waktu Kalkulasi VB by "Heri Pamungkas ( Gmail )" dchoosen88
1e
Re: Waktu Kalkulasi VB by "Mr. Kid" nmkid.family@ymail.com
3b
Re: Challenge VBA: Membuat warna pada cell by "zainul_ulum[at]yahoo[dot]com" zainul_ulum
3e
Re: Challenge VBA: Membuat warna pada cell by "Heri Pamungkas ( Gmail )" dchoosen88
3g
Re: Challenge VBA: Membuat warna pada cell by "Heri Pamungkas ( Gmail )" dchoosen88

Messages

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

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam * 60
menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^

karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5 mewakili 12
jam

bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan
format #0.000 untuk menampilkan 3 angka di belakang desimal (misal: 0.450),
setelah itu baru mengambil 3 digit sebelah kanan yaitu 450
jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3) bukan
sebaliknya

tambahan sedikit:

- Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah
fungsi internal VB, contoh script: Test = Timer
- Timer akan menghasilkan nilai bertipe single, karena itu tipe data
harus single >> ini alasan pemilihan tipe data single
- Tipe data single akan menghasilkan nilai positif terkecil
adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu harus
ditampilkan 3 angka di belakang koma dahulu, setelah muncul 3 angka desimal
barulah diambil menggunakan fungsi Right.

Semoga kali ini scriptnya akan berjalan dengan baik.

Wassalam,

-Miss Jan Raisin-

Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail )
<ghery.dharma@gmail.com>menulis:

>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Miss dan Teman2 Be-Exceller yang Budiman,..
> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>
> Beginilah hasil penalaran saya yang terlihat aneh :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba&quot;
> End Sub
>
>
> Deng denggggggg..... Problemnya.
>
> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>
>
> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
> Atau ada ketikan saya yang salah ya ?!
>
> Atau sebenarnya Waktu yang berjalan Mundur ?!..
> #hmmmm,... masang tampang Mikir...
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>

Tue Apr 15, 2014 7:51 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Alhamdulillah,

Miss, kayanya Pak Aji ada di samping saya ni
jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh

Berikut penampakan scriptnya, yang Alhamdulillah
sepertinya sudah berjalan seperti yang saya harapkan :

Private Sub Unhide_Sheet()
Dim Test As Single
Test = Timer
Sheets("ILev").Visible = True
Sheets("mDBeg").Visible = True
Sheets("mDH-1").Visible = True
Sheets("mDH").Visible = True
Sheets("Ostd").Visible = True
MsgBox Format((Timer - Test) / 86400, "hh:mm:ss") & " " & Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba"
End Sub

Hehehe, jadi semangat belajar VB nie.

Pak/Bu Moderator,Miss dan Teman2 Be-Excell,
adakah contoh Problem dengan VB sederhana ?!
Jadi kaya semacam kuis gitu, Biar saya belajarnya
sekalian nyemplung... hehehehe

#ehmmm,.. Pemanasan sebelum Kopdar#2

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 16/04/2014 9:10, Jan Raisin wrote:
> Wa'alaikumsalam wr. wb.,
>
> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam
> * 60 menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^
>
> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5
> mewakili 12 jam
>
> bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan
> format #0.000 untuk menampilkan 3 angka di belakang desimal (misal:
> 0.450), setelah itu baru mengambil 3 digit sebelah kanan yaitu 450
> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3)
> bukan sebaliknya
>
> tambahan sedikit:
>
> * Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah
> fungsi internal VB, contoh script: Test = Timer
> * Timer akan menghasilkan nilai bertipe single, karena itu tipe data
> harus single >> ini alasan pemilihan tipe data single
> * Tipe data single akan menghasilkan nilai positif terkecil
> adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu
> harus ditampilkan 3 angka di belakang koma dahulu, setelah muncul
> 3 angka desimal barulah diambil menggunakan fungsi Right.
>
> Semoga kali ini scriptnya akan berjalan dengan baik.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Miss dan Teman2 Be-Exceller yang Budiman,..
> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>
> Beginilah hasil penalaran saya yang terlihat aneh :
>
> Private Sub Unhide_Sheet()
> ' Unhide_Sheet Macro
> Dim Test As Single
> Test = (Timer)
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba&quot;
> End Sub
>
>
> Deng denggggggg..... Problemnya.
>
> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>
>
>
> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
> Atau ada ketikan saya yang salah ya ?!
>
> Atau sebenarnya Waktu yang berjalan Mundur ?!..
> #hmmmm,... masang tampang Mikir...
>
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
>
>

Tue Apr 15, 2014 9:52 pm (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

Mungkin mau coba juga :
*** max : milliseconds
msgbox evaluate("text(" & (timer-test)/86400 & ",""HH:mm:ss.000"")")
-> misal (timer-test) menghasilkan 0.123 second, berarti formulanya
berbunyi : TEXT( 0.123/86400,"HH:mm:ss.000")

bisa juga :
test=timer-test '-> simpan selisih waktu (dalam detik)
msgbox format$( test/86400,"HH:mm:ss" ) & replace(format$(
test-int(test),".000###"),",",".")
-> fungsi Format hanya mampu sampai seconds. 1 detik = 1000 milidetik
dan bisa ditempelkan (concatenate) ke format datetime

Wassalamu'alaikum Wr. Wb.
Kid.

2014-04-16 9:51 GMT+07:00 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>:

>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> Miss, kayanya Pak Aji ada di samping saya ni
> jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh
>
> Berikut penampakan scriptnya, yang Alhamdulillah
> sepertinya sudah berjalan seperti yang saya harapkan :
>
> Private Sub Unhide_Sheet()
> Dim Test As Single
> Test = Timer
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer - Test) / 86400, "hh:mm:ss") & " " & Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba"
> End Sub
>
>
> Hehehe, jadi semangat belajar VB nie.
>
> Pak/Bu Moderator,Miss dan Teman2 Be-Excell,
> adakah contoh Problem dengan VB sederhana ?!
> Jadi kaya semacam kuis gitu, Biar saya belajarnya
> sekalian nyemplung... hehehehe
>
>
> #ehmmm,.. Pemanasan sebelum Kopdar#2
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 16/04/2014 9:10, Jan Raisin wrote:
>
>
> Wa'alaikumsalam wr. wb.,
>
> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam *
> 60 menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^
>
> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5 mewakili
> 12 jam
>
> bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan
> format #0.000 untuk menampilkan 3 angka di belakang desimal (misal: 0.450),
> setelah itu baru mengambil 3 digit sebelah kanan yaitu 450
> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3) bukan
> sebaliknya
>
> tambahan sedikit:
>
> - Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah
> fungsi internal VB, contoh script: Test = Timer
> - Timer akan menghasilkan nilai bertipe single, karena itu tipe data
> harus single >> ini alasan pemilihan tipe data single
> - Tipe data single akan menghasilkan nilai positif terkecil
> adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu harus
> ditampilkan 3 angka di belakang koma dahulu, setelah muncul 3 angka desimal
> barulah diambil menggunakan fungsi Right.
>
> Semoga kali ini scriptnya akan berjalan dengan baik.
>
> Wassalam,
>
> -Miss Jan Raisin-
>
>
> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> > menulis:
>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Miss dan Teman2 Be-Exceller yang Budiman,..
>> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>>
>> Beginilah hasil penalaran saya yang terlihat aneh :
>>
>> Private Sub Unhide_Sheet()
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("ILev").Visible = True
>> Sheets("mDBeg").Visible = True
>> Sheets("mDH-1").Visible = True
>> Sheets("mDH").Visible = True
>> Sheets("Ostd").Visible = True
>> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba&quot;
>> End Sub
>>
>>
>> Deng denggggggg..... Problemnya.
>>
>> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
>> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>>
>>
>> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
>> Atau ada ketikan saya yang salah ya ?!
>>
>> Atau sebenarnya Waktu yang berjalan Mundur ?!..
>> #hmmmm,... masang tampang Mikir...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>>
>

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

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Alhamdulillah,

Terima kasih Mr.Kid (...yang actualnya ngga "Kid")

Nambah lagi pengetahuan saya tentang Fungsi di VB.
Oke Mr, walaupun belum paham dengan alurnya saya jadi punya
PR nie sercing Fungsi Evaluate.

Nanti kalau saya sudah paham alurnya Insyaallah
saya bagi pemahaman saya di Email ini.

# Cing cing serciiiinngg,......

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 16/04/2014 11:51, Mr. Kid wrote:
> Wa'alaikumussalam Wr. Wb.
>
> Mungkin mau coba juga :
> *** max : milliseconds
> msgbox evaluate("text(" & (timer-test)/86400 & ",""HH:mm:ss.000"")")
> -> misal (timer-test) menghasilkan 0.123 second, berarti
> formulanya berbunyi : TEXT( 0.123/86400,"HH:mm:ss.000")
>
>
> bisa juga :
> test=timer-test '-> simpan selisih waktu (dalam detik)
> msgbox format$( test/86400,"HH:mm:ss" ) & replace(format$(
> test-int(test),".000###"),",",".")
> -> fungsi Format hanya mampu sampai seconds. 1 detik = 1000
> milidetik dan bisa ditempelkan (concatenate) ke format datetime
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-04-16 9:51 GMT+07:00 Heri Pamungkas ( Gmail )
> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>>:
>
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> Miss, kayanya Pak Aji ada di samping saya ni
> jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh
>
> Berikut penampakan scriptnya, yang Alhamdulillah
> sepertinya sudah berjalan seperti yang saya harapkan :
>
> Private Sub Unhide_Sheet()
> Dim Test As Single
> Test = Timer
> Sheets("ILev").Visible = True
> Sheets("mDBeg").Visible = True
> Sheets("mDH-1").Visible = True
> Sheets("mDH").Visible = True
> Sheets("Ostd").Visible = True
> MsgBox Format((Timer - Test) / 86400, "hh:mm:ss") & " " & Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba"
> End Sub
>
>
> Hehehe, jadi semangat belajar VB nie.
>
> Pak/Bu Moderator,Miss dan Teman2 Be-Excell,
> adakah contoh Problem dengan VB sederhana ?!
> Jadi kaya semacam kuis gitu, Biar saya belajarnya
> sekalian nyemplung... hehehehe
>
>
> #ehmmm,.. Pemanasan sebelum Kopdar#2
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 16/04/2014 9:10, Jan Raisin wrote:
>> Wa'alaikumsalam wr. wb.,
>>
>> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik
>> (24 jam * 60 menit * 60 detik), jadi kalo Jan membaginya dengan
>> angka 86400 ^_^
>>
>> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5
>> mewakili 12 jam
>>
>> bagian yang kedua, yang harus dilakukan pertama kali adalah
>> melakukan format #0.000 untuk menampilkan 3 angka di belakang
>> desimal (misal: 0.450), setelah itu baru mengambil 3 digit
>> sebelah kanan yaitu 450
>> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3)
>> bukan sebaliknya
>>
>> tambahan sedikit:
>>
>> * Timer tidak perlu ditulis di dalam tanda kurung karena ini
>> adalah fungsi internal VB, contoh script: Test = Timer
>> * Timer akan menghasilkan nilai bertipe single, karena itu tipe
>> data harus single >> ini alasan pemilihan tipe data single
>> * Tipe data single akan menghasilkan nilai positif terkecil
>> adalah 1.401298E-45 atau 45 angka Nol di belakang koma,
>> karena itu harus ditampilkan 3 angka di belakang koma dahulu,
>> setelah muncul 3 angka desimal barulah diambil menggunakan
>> fungsi Right.
>>
>> Semoga kali ini scriptnya akan berjalan dengan baik.
>>
>> Wassalam,
>>
>> -Miss Jan Raisin-
>>
>>
>> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail )
>> <ghery.dharma@gmail.com <mailto:ghery.dharma@gmail.com>> menulis:
>>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Miss dan Teman2 Be-Exceller yang Budiman,..
>> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>>
>> Beginilah hasil penalaran saya yang terlihat aneh :
>>
>> Private Sub Unhide_Sheet()
>> ' Unhide_Sheet Macro
>> Dim Test As Single
>> Test = (Timer)
>> Sheets("ILev").Visible = True
>> Sheets("mDBeg").Visible = True
>> Sheets("mDH-1").Visible = True
>> Sheets("mDH").Visible = True
>> Sheets("Ostd").Visible = True
>> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba&quot;
>> End Sub
>>
>>
>> Deng denggggggg..... Problemnya.
>>
>> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
>> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>>
>>
>>
>> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
>> Atau ada ketikan saya yang salah ya ?!
>>
>> Atau sebenarnya Waktu yang berjalan Mundur ?!..
>> #hmmmm,... masang tampang Mikir...
>>
>>
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>>
>
>
>

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

"Mr. Kid" nmkid.family@ymail.com

Wa'alaikumussalam Wr. Wb.

hehehe... met sercing...
kalo sempet mampir
dimari<http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html>yak...

Wassalamu'alaikum Wr. Wb.
Kid.

2014-04-16 12:07 GMT+07:00 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com>
:

>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
>
> Terima kasih Mr.Kid (...yang actualnya ngga "Kid")
>
> Nambah lagi pengetahuan saya tentang Fungsi di VB.
> Oke Mr, walaupun belum paham dengan alurnya saya jadi punya
> PR nie sercing Fungsi Evaluate.
>
> Nanti kalau saya sudah paham alurnya Insyaallah
> saya bagi pemahaman saya di Email ini.
>
>
>
> # Cing cing serciiiinngg,......
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
>
> On 16/04/2014 11:51, Mr. Kid wrote:
>
>
> Wa'alaikumussalam Wr. Wb.
>
> Mungkin mau coba juga :
> *** max : milliseconds
> msgbox evaluate("text(" & (timer-test)/86400 & ",""HH:mm:ss.000"")")
> -> misal (timer-test) menghasilkan 0.123 second, berarti formulanya
> berbunyi : TEXT( 0.123/86400,"HH:mm:ss.000")
>
>
> bisa juga :
> test=timer-test '-> simpan selisih waktu (dalam detik)
> msgbox format$( test/86400,"HH:mm:ss" ) & replace(format$(
> test-int(test),".000###"),",",".")
> -> fungsi Format hanya mampu sampai seconds. 1 detik = 1000
> milidetik dan bisa ditempelkan (concatenate) ke format datetime
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
> 2014-04-16 9:51 GMT+07:00 Heri Pamungkas ( Gmail ) <ghery.dharma@gmail.com
> >:
>
>>
>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>> Semangat pagi,.
>>
>> Alhamdulillah,
>>
>> Miss, kayanya Pak Aji ada di samping saya ni
>> jadi 1 hari serasa 3600 Detik dihatiku....#jiahhh
>>
>> Berikut penampakan scriptnya, yang Alhamdulillah
>> sepertinya sudah berjalan seperti yang saya harapkan :
>>
>> Private Sub Unhide_Sheet()
>> Dim Test As Single
>> Test = Timer
>> Sheets("ILev").Visible = True
>> Sheets("mDBeg").Visible = True
>> Sheets("mDH-1").Visible = True
>> Sheets("mDH").Visible = True
>> Sheets("Ostd").Visible = True
>> MsgBox Format((Timer - Test) / 86400, "hh:mm:ss") & " " & Right(Format(Timer - Test, "#0.000"), 3), , "Coba-Coba"
>> End Sub
>>
>>
>> Hehehe, jadi semangat belajar VB nie.
>>
>> Pak/Bu Moderator,Miss dan Teman2 Be-Excell,
>> adakah contoh Problem dengan VB sederhana ?!
>> Jadi kaya semacam kuis gitu, Biar saya belajarnya
>> sekalian nyemplung... hehehehe
>>
>>
>> #ehmmm,.. Pemanasan sebelum Kopdar#2
>>
>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>
>> Warm Regards,
>>
>> On 16/04/2014 9:10, Jan Raisin wrote:
>>
>>
>> Wa'alaikumsalam wr. wb.,
>>
>> pak Heri.. kalo di komputer Jan 1 hari 1 malam itu 86400 detik (24 jam
>> * 60 menit * 60 detik), jadi kalo Jan membaginya dengan angka 86400 ^_^
>>
>> karena nilai 1 di komputer adalah mewakili 1 hari penuh dan 0,5
>> mewakili 12 jam
>>
>> bagian yang kedua, yang harus dilakukan pertama kali adalah melakukan
>> format #0.000 untuk menampilkan 3 angka di belakang desimal (misal: 0.450),
>> setelah itu baru mengambil 3 digit sebelah kanan yaitu 450
>> jadi scriptnya harusnya Right(Format(Timer - Test, "#0.000"), 3) bukan
>> sebaliknya
>>
>> tambahan sedikit:
>>
>> - Timer tidak perlu ditulis di dalam tanda kurung karena ini adalah
>> fungsi internal VB, contoh script: Test = Timer
>> - Timer akan menghasilkan nilai bertipe single, karena itu tipe data
>> harus single >> ini alasan pemilihan tipe data single
>> - Tipe data single akan menghasilkan nilai positif terkecil
>> adalah 1.401298E-45 atau 45 angka Nol di belakang koma, karena itu harus
>> ditampilkan 3 angka di belakang koma dahulu, setelah muncul 3 angka desimal
>> barulah diambil menggunakan fungsi Right.
>>
>> Semoga kali ini scriptnya akan berjalan dengan baik.
>>
>> Wassalam,
>>
>> -Miss Jan Raisin-
>>
>>
>> Pada 15 April 2014 17.10, Heri Pamungkas ( Gmail ) <
>> ghery.dharma@gmail.com> menulis:
>>
>>>
>>> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>> Semangat pagi,.
>>>
>>> Miss dan Teman2 Be-Exceller yang Budiman,..
>>> Hehehe, Alhamdulillah Scriptnya bisa berjalan Normal.
>>>
>>> Beginilah hasil penalaran saya yang terlihat aneh :
>>>
>>> Private Sub Unhide_Sheet()
>>> ' Unhide_Sheet Macro
>>> Dim Test As Single
>>> Test = (Timer)
>>> Sheets("ILev").Visible = True
>>> Sheets("mDBeg").Visible = True
>>> Sheets("mDH-1").Visible = True
>>> Sheets("mDH").Visible = True
>>> Sheets("Ostd").Visible = True
>>> MsgBox Format((((Timer) - Test) / 3600), "hh:mm:ss") & " " & Format(Right((Timer) - Test, 3), "#0.000"), , "Coba-Coba&quot;
>>> End Sub
>>>
>>>
>>> Deng denggggggg..... Problemnya.
>>>
>>> Sekali klik Jalan normal, tapi waktu klik kedua hasilnya
>>> agak menNgenyuhkan yang membuat aku terhenyak (Bahasanya agak ngaco...).
>>>
>>>
>>> Ada apakah gerangan sehingga bisa menyebabkan Minus ?!
>>> Atau ada ketikan saya yang salah ya ?!
>>>
>>> Atau sebenarnya Waktu yang berjalan Mundur ?!..
>>> #hmmmm,... masang tampang Mikir...
>>>
>>>
>>>
>>> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>>>
>>> Warm Regards,
>>>
>>>
>>>
>>
>
>

Tue Apr 15, 2014 8:03 pm (PDT) . Posted by:

kasreno

salam semuanya, saya mau input data, data tersebut selalu bertambah!
bagaimana cara membuat jumlah berubah secara otomatis saat saat data ditambahkan?
mohon bantuannya.

----- Mods -----
sebuah sample workbook biasanya sangat bermanfaat sekali
sehingga BeExceller yang ingin membantu tidak perlu kerja bakti
membuatkan sample datanya.
___________

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

"nangAgus" nangagoez

1. Letakkan jumlah di row paling atas
jika data ditambah di cell bawahnya tentunya jumlah otomatis.
2. Letakkan data di sheet 1, kemudian buat jumlah di sheet 2
On 16/04/2014 9:58, kasreno@yahoo.com wrote:
> salam semuanya, saya mau input data, data tersebut selalu bertambah!
> bagaimana cara membuat jumlah berubah secara otomatis saat saat data
> ditambahkan?
> mohon bantuannya.
>
> ----- Mods -----
> sebuah sample workbook biasanya sangat bermanfaat sekali
> sehingga BeExceller yang ingin membantu tidak perlu kerja bakti
> membuatkan sample datanya.
> ___________
>

Tue Apr 15, 2014 8:45 pm (PDT) . Posted by:

"dwint ruswanto"

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 9:05 pm (PDT) . Posted by:

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

tidak pakai vba boleh nggak?

From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of dwint ruswanto
Sent: Wednesday, April 16, 2014 10:46 AM
To: belajar-excel@yahoogroups.com
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 9:11 pm (PDT) . Posted by:

"Jan Raisin"

Wa'alaikumsalam wr. wb.,

wah.. moderator kejam.. kenapa Jan gak boleh ikutan sih?
kan Jan gak masuk jajaran moderator hiks.. [?][?][?]

bai de wei.. eni wei.. bus wae.. selamat berjuang teman-teman hihihihi ^_^

Jan jadi penonton dulu deh :(

Wassalam,

-Miss Jan Raisin-

Pada 16 April 2014 11.05, zainul_ulum[at]yahoo[dot]com <
zainul_ulum@yahoo.com> menulis:

>
>
> tidak pakai vba boleh nggak?
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *dwint ruswanto
> *Sent:* Wednesday, April 16, 2014 10:46 AM
> *To:* belajar-excel@yahoogroups.com
> *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 9:13 pm (PDT) . Posted by:

"dwint ruswanto"

Belum boleh pak Zainul..
judulnya kan VBA Challenge hehehehe :)

Wassalam,

-dwint-

Pada 16 April 2014 11.05, zainul_ulum[at]yahoo[dot]com <
zainul_ulum@yahoo.com> menulis:

>
>
> tidak pakai vba boleh nggak?
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com] *On Behalf Of *dwint ruswanto
> *Sent:* Wednesday, April 16, 2014 10:46 AM
> *To:* belajar-excel@yahoogroups.com
> *Subject:* [belajar-excel] Challenge VBA: Membuat warna pada cell
>
>

Tue Apr 15, 2014 9:39 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Alhamdulillah,
Ternyata ada bantuan dari Pak Dwint sebagai wakil Moderator
untuk memfasilitasi semangat belajar VB.

Untuk memancing animo masyarakat dalam rangka pembangunan berkala
di bidang PerExcellean (bahasanya Caleg #euphoria Pemilu).

Berikut hasil dari sercing sercing saya.
Kalau sekripnya kepanjangan kaya ngetik sekripsi
semoga menjadi maklum.

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 16/04/2014 10:45, dwint ruswanto wrote:
> 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 9:49 pm (PDT) . Posted by:

"Ferry Alexander"

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
Pada Rabu, 16 April 2014 11:13, dwint ruswanto <dwint.ruswanto@gmail.com> menulis:

 
Belum boleh pak Zainul..
judulnya kan VBA Challenge hehehehe :)

Wassalam,

-dwint-

Pada 16 April 2014 11.05, zainul_ulum[at]yahoo[dot]com <zainul_ulum@yahoo.com> menulis:


>tidak pakai vba boleh nggak?

>From:belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] On Behalf Of dwint ruswanto
>Sent: Wednesday, April 16, 2014 10:46 AM
>To: belajar-excel@yahoogroups.com
>Subject: [belajar-excel] Challenge VBA: Membuat warna pada cell
>

Tue Apr 15, 2014 9:53 pm (PDT) . Posted by:

"Heri Pamungkas ( Gmail )" dchoosen88


السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
Semangat pagi,.

Boleh revisi kan ya ?!

Oiya lupa, Penjelasannya.

Cara kerja yang terpikir dibenak saya (kedua) adalah
menggunakan Offset walaupun yang terpikir pertama adalah
select cell yang akan di warnai (sekalian praktek fungsi
offset yang baru di sercing).

Jadi saya pakai B1 sebagai titik awal, dan Offset
untuk meliuk-liuk kan nya.

Nah, karena berpikir sekripnya akan panjang sekali
maka saya pakai copy untuk mewarnai selanjutnya.

#hehehehe baru kepikiran jadi di revisi

وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Warm Regards,

On 16/04/2014 11:39, Heri Pamungkas ( Gmail ) wrote:
>
> السَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
> Semangat pagi,.
>
> Alhamdulillah,
> Ternyata ada bantuan dari Pak Dwint sebagai wakil Moderator
> untuk memfasilitasi semangat belajar VB.
>
> Untuk memancing animo masyarakat dalam rangka pembangunan berkala
> di bidang PerExcellean (bahasanya Caleg #euphoria Pemilu).
>
> Berikut hasil dari sercing sercing saya.
> Kalau sekripnya kepanjangan kaya ngetik sekripsi
> semoga menjadi maklum.
>
>
> وَالسَّلَامُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ
>
> Warm Regards,
> On 16/04/2014 10:45, dwint ruswanto wrote:
>> 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 9:56 pm (PDT) . Posted by:

"dwint ruswanto"

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

Tidak ada komentar:

Posting Komentar