15 New Messages
Digest #2333
6a
Re: bagaimana rumus untuk memunculkan data yang paling sering muncul by "Supriyadi" supriyadi_sbm
6b
Re: bagaimana rumus untuk memunculkan data yang paling sering muncul by "Mr. Kid" nmkid.family@ymail.com
6c
Re: bagaimana rumus untuk memunculkan data yang paling sering muncul by "Supriyadi" supriyadi_sbm
Messages
Thu Jun 6, 2013 11:25 am (PDT) . Posted by:
"Aris Saputra" aris_saputra8718
Assalammualaikum,
Para Excel Expert, mau nanya nih, gimana cara mebuat dropdown kalender excel macro seperti pada file ini (Saya ambil file ini dari milis),,, Saya bingung,,,
terima kasih
Para Excel Expert, mau nanya nih, gimana cara mebuat dropdown kalender excel macro seperti pada file ini (Saya ambil file ini dari milis),,, Saya bingung,,,
terima kasih
Thu Jun 6, 2013 1:14 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.,
Control object tersebut bernama DTPicker.
Coba lihat diposting
http://tech.groups.yahoo.com/group/belajar-excel/message/22874
Wassalamu'alaikum Wr. Wb.,
Kid.
2013/6/6 Aris Saputra <aris_saputra8718@yahoo.com >
> **
>
>
> Assalammualaikum,
>
> Para Excel Expert, mau nanya nih, gimana cara mebuat dropdown kalender
> excel macro seperti pada file ini (Saya ambil file ini dari milis),,, Saya
> bingung,,,
>
> terima kasih
>
>
>
Control object tersebut bernama DTPicker.
Coba lihat diposting
http://tech.
Wassalamu'
Kid.
2013/6/6 Aris Saputra <aris_saputra8718@
> **
>
>
> Assalammualaikum,
>
> Para Excel Expert, mau nanya nih, gimana cara mebuat dropdown kalender
> excel macro seperti pada file ini (Saya ambil file ini dari milis),,, Saya
> bingung,,,
>
> terima kasih
>
>
>
Thu Jun 6, 2013 12:06 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir berisi beberapa cara me-lookup dan menjumlahkan dengan
banyak kriteria.
Wassalam,
Kid.
2013/6/6 Ubaidil Alif <ubaidilalif@gmail.com >
> **
>
>
> Dear Para Master Excel
>
> Mohon petunjuk cara menggunakan Vlookup?
>
> contoh penggunaan fungsi terlampir
>
> Terima kasih
>
>
>
banyak kriteria.
Wassalam,
Kid.
2013/6/6 Ubaidil Alif <ubaidilalif@
> **
>
>
> Dear Para Master Excel
>
> Mohon petunjuk cara menggunakan Vlookup?
>
> contoh penggunaan fungsi terlampir
>
> Terima kasih
>
>
>
Thu Jun 6, 2013 12:58 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
File terlampir mencoba dengan :
1. Pivot Consolidation Range dengan dibantu sebuah kolom key disetiap
tabelnya.
>> cara buat pivot consolidation range bisa dilihat di posting berikut :
http://tech.groups.yahoo.com/group/belajar-excel/message/20159
>> atau di (file attachment bisa diunduh) :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-summary-movement-dan-data-aktif-td5712863.html
2. Pivot table dengan sebuah kolom bantu pada tabel 2 (yang lebih pokok)
>> Pada xl2003 kebawah, ubah penggunaan fungsi SumIfs yang ada dengan
fungsi SumProduct
Wassalam,
Kid.
2013/6/6 Ubaidil Alif <ubaidilalif@gmail.com >
> **
>
>
> Dear Para Master Excel and Exceller
>
> Perlu bantuan nih, apa bisa 2 tabel (atau lebih) di gabungkan ke dalam 1
> pivotable?
>
> Sebagai bahan contoh terlampir :)
>
> Terima kasih sebelumnya
>
>
>
1. Pivot Consolidation Range dengan dibantu sebuah kolom key disetiap
tabelnya.
>> cara buat pivot consolidation range bisa dilihat di posting berikut :
http://tech.
>> atau di (file attachment bisa diunduh) :
http://milis-
2. Pivot table dengan sebuah kolom bantu pada tabel 2 (yang lebih pokok)
>> Pada xl2003 kebawah, ubah penggunaan fungsi SumIfs yang ada dengan
fungsi SumProduct
Wassalam,
Kid.
2013/6/6 Ubaidil Alif <ubaidilalif@
> **
>
>
> Dear Para Master Excel and Exceller
>
> Perlu bantuan nih, apa bisa 2 tabel (atau lebih) di gabungkan ke dalam 1
> pivotable?
>
> Sebagai bahan contoh terlampir :)
>
> Terima kasih sebelumnya
>
>
>
Thu Jun 6, 2013 1:22 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Untuk kasus mengubah format cell, hasil sebuah formula tidak bisa diubah
format cell per karakternya.
Masih memungkinkan jika menggunakan UDF (VBA function buatan sendiri yang
digunakan layaknya fungsi builtin Excel) untuk mengubah penggalan teks
dalam suatu cell tertentu yang telah memiliki suatu template tertentu.
Artinya, dibutuhkan 2 cell dalam proses, yaitu cell berformula UDF tadi dan
cell yang sudah berisi template yang akan menjadi cell hasil.
Dengan UDF seperti inipun, ada banyak properti format pada font yang tidak
bisa dilakukan.
Opsi lain adalah menggunakan prosedur sub VBA berupa event change sebuah
cell.
Wassalam,
Kid.
2013/6/3 nangAgus <nangagoez@yahoo.co.id >
> **
>
>
> Dear penggemar excel
>
> Salam sejahtera untuk seumua, semoga rahmat Allah senantiasa pada kita
> semua.
>
> Saya minta tolong untuk menyelesaikan permasalahan formula excel.
> 1. Pada cell B4 saya menulis ada beberapa karakter menggunakan symbol,
> misal diameter pipa Ø 2',
> Saya buat formula di cell lain yang merujuk cell B4. Hasil formula
> menjadi diameter pipa Æ2',
> Bagaimana agar symbol dapat kembali ke tanda diameter?
> 2. Pada cell B5 saya menulis 255 cm2 , saya gunakan formula di cell lain
> yang merujuk ke cell B5,
> namun yang tampak di cel tersebut menjadi 255 cm2, bagaimana caranya
> agar angka 2 tetap menjadi superscript?
>
> Atas perhatian rekan-rekan semua diucapkan banyak terima kasih
>
> Salam
>
> NangAgus
>
>
format cell per karakternya.
Masih memungkinkan jika menggunakan UDF (VBA function buatan sendiri yang
digunakan layaknya fungsi builtin Excel) untuk mengubah penggalan teks
dalam suatu cell tertentu yang telah memiliki suatu template tertentu.
Artinya, dibutuhkan 2 cell dalam proses, yaitu cell berformula UDF tadi dan
cell yang sudah berisi template yang akan menjadi cell hasil.
Dengan UDF seperti inipun, ada banyak properti format pada font yang tidak
bisa dilakukan.
Opsi lain adalah menggunakan prosedur sub VBA berupa event change sebuah
cell.
Wassalam,
Kid.
2013/6/3 nangAgus <nangagoez@yahoo.
> **
>
>
> Dear penggemar excel
>
> Salam sejahtera untuk seumua, semoga rahmat Allah senantiasa pada kita
> semua.
>
> Saya minta tolong untuk menyelesaikan permasalahan formula excel.
> 1. Pada cell B4 saya menulis ada beberapa karakter menggunakan symbol,
> misal diameter pipa Ø 2',
> Saya buat formula di cell lain yang merujuk cell B4. Hasil formula
> menjadi diameter pipa Æ2',
> Bagaimana agar symbol dapat kembali ke tanda diameter?
> 2. Pada cell B5 saya menulis 255 cm2 , saya gunakan formula di cell lain
> yang merujuk ke cell B5,
> namun yang tampak di cel tersebut menjadi 255 cm2, bagaimana caranya
> agar angka 2 tetap menjadi superscript?
>
> Atas perhatian rekan-rekan semua diucapkan banyak terima kasih
>
> Salam
>
> NangAgus
>
>
Thu Jun 6, 2013 1:28 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba file terlampir.
Wassalam,
Kid.
2013/6/2 Imam Sinurat <sin.ur4t@yahoo.com >
> **
>
>
>
> Yth. Para pakar dan rekan2 excellers..
>
> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
> tabel2 input maupun output.
>
> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
> pelajari sbg pemula?
> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
> apa yg saya maksudkan.
>
> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>
> Wassalam
> Imam Sinurat
>
>
Wassalam,
Kid.
2013/6/2 Imam Sinurat <sin.ur4t@yahoo.
> **
>
>
>
> Yth. Para pakar dan rekan2 excellers..
>
> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
> tabel2 input maupun output.
>
> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
> pelajari sbg pemula?
> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
> apa yg saya maksudkan.
>
> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>
> Wassalam
> Imam Sinurat
>
>
Thu Jun 6, 2013 6:16 pm (PDT) . Posted by:
"Gallyh Wardhana" galihtok
Yth. Mr.Kid
File kiriman Mr.Kid untuk kita yang baru belajar macro-vba memang
sederhana, tapi sayang saya kok nggak nemu tabel database-nya ya?Apakah
memang di-hidden?
Terima kasih jawabannya, maaf nanya soal beginian baru belajar. :)
Pada 7 Juni 2013 03.28, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/2 Imam Sinurat <sin.ur4t@yahoo.com >
>
>> **
>>
>>
>>
>> Yth. Para pakar dan rekan2 excellers..
>>
>> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
>> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
>> tabel2 input maupun output.
>>
>> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
>> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
>> pelajari sbg pemula?
>> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
>> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
>> apa yg saya maksudkan.
>>
>> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>>
>> Wassalam
>> Imam Sinurat
>>
>
>
>
File kiriman Mr.Kid untuk kita yang baru belajar macro-vba memang
sederhana, tapi sayang saya kok nggak nemu tabel database-nya ya?Apakah
memang di-hidden?
Terima kasih jawabannya, maaf nanya soal beginian baru belajar. :)
Pada 7 Juni 2013 03.28, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Coba file terlampir.
>
> Wassalam,
> Kid.
>
>
>
> 2013/6/2 Imam Sinurat <sin.ur4t@yahoo.
>
>> **
>>
>>
>>
>> Yth. Para pakar dan rekan2 excellers..
>>
>> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
>> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
>> tabel2 input maupun output.
>>
>> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
>> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
>> pelajari sbg pemula?
>> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
>> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
>> apa yg saya maksudkan.
>>
>> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>>
>> Wassalam
>> Imam Sinurat
>>
>
>
>
Thu Jun 6, 2013 6:19 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup. Tabel-tabel data disembunyikan dari tab sheet.
Sheet-sheet tabel data bisa ditampilkan dari VBE.
Double click setiap sheet yang ada dalam VBE VB Project (frame Project
Explorer), kemudian ganti nilai properti visible-nya (tekan F4 jika belum
muncul window properti-nya) menjadi xlSheetVisible
Wassalam,
Kid.
2013/6/7 Gallyh Wardhana <gallyhwardhana@gmail.com >
> **
>
>
> Yth. Mr.Kid
>
> File kiriman Mr.Kid untuk kita yang baru belajar macro-vba memang
> sederhana, tapi sayang saya kok nggak nemu tabel database-nya ya?Apakah
> memang di-hidden?
>
> Terima kasih jawabannya, maaf nanya soal beginian baru belajar. :)
>
>
> Pada 7 Juni 2013 03.28, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Coba file terlampir.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/6/2 Imam Sinurat <sin.ur4t@yahoo.com >
>>
>>> **
>>>
>>>
>>>
>>> Yth. Para pakar dan rekan2 excellers..
>>>
>>> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
>>> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
>>> tabel2 input maupun output.
>>>
>>> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
>>> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
>>> pelajari sbg pemula?
>>> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
>>> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
>>> apa yg saya maksudkan.
>>>
>>> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>>>
>>> Wassalam
>>> Imam Sinurat
>>>
>>
>>
>
>
Sheet-sheet tabel data bisa ditampilkan dari VBE.
Double click setiap sheet yang ada dalam VBE VB Project (frame Project
Explorer), kemudian ganti nilai properti visible-nya (tekan F4 jika belum
muncul window properti-nya) menjadi xlSheetVisible
Wassalam,
Kid.
2013/6/7 Gallyh Wardhana <gallyhwardhana@
> **
>
>
> Yth. Mr.Kid
>
> File kiriman Mr.Kid untuk kita yang baru belajar macro-vba memang
> sederhana, tapi sayang saya kok nggak nemu tabel database-nya ya?Apakah
> memang di-hidden?
>
> Terima kasih jawabannya, maaf nanya soal beginian baru belajar. :)
>
>
> Pada 7 Juni 2013 03.28, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Coba file terlampir.
>>
>> Wassalam,
>> Kid.
>>
>>
>>
>> 2013/6/2 Imam Sinurat <sin.ur4t@yahoo.
>>
>>> **
>>>
>>>
>>>
>>> Yth. Para pakar dan rekan2 excellers..
>>>
>>> Saya sdg mulai belajar cara membuat userform lengkap dgn racikan bumbu
>>> combobox listbox dll, sekaligus "rumus2 makronya" yg terintegrasi dgn
>>> tabel2 input maupun output.
>>>
>>> Sbg langkah awal, mohon dibantu utk menunjukkan file CONTOH yg manakah
>>> dari arsip milis ini maupun koleksi pribadi rekan2 yg cukup ideal utk saya
>>> pelajari sbg pemula?
>>> Sebaiknya file contoh yg cukup kompleks tapi tidak terlalu kompleks
>>> (Permintaannya bikin ribet ya hehehe...). tapi saya yakin rekan2 mengerti
>>> apa yg saya maksudkan.
>>>
>>> Sekali lagi mohon petunjuknya, terima kasih sebelumnya.
>>>
>>> Wassalam
>>> Imam Sinurat
>>>
>>
>>
>
>
Thu Jun 6, 2013 4:49 pm (PDT) . Posted by:
"Supriyadi" supriyadi_sbm
makasih buat miss jan, untuk vipot table nya,
tapi kalau ada yang buatkan rumusnya, saya kasih dua jempol deh.......
--- Pada Rab, 5/6/13, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
Dari: Jan Raisin <miss.jan.raisin@gmail.com >
Judul: Re: [belajar-excel] bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
Kepada: belajar-excel@yahoogroups.com
Tanggal: Rabu, 5 Juni, 2013, 7:35 AM
Â
Hai Supriyadi,
coba manfaatkn fitur Pivot Tableberhubung sample lebih besar dari ketentuan milis, maka sample dapat diunduh di siniÂ
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikutÂ
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;
>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke belajar-excel@yahoogroups.com ;
>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
Pada 5 Juni 2013 10.26, Supriyadi <supriyadi_sbm@yahoo.co.id > menulis:
Â
dear all,Â
bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
misal di range                              saya ingin di range F3:F5 muncul hasil seperti ini
B3:B14Â Â Â C3:C14Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â E3:E5Â Â Â Â Â Â Â F3:F5
C2454A  Noise                             C2454A     Bearing
Damage
C2454B  Noise                             C2454B     Bearing Damage
C2454C  Noise                             C2454C     Bearing Damage
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
C2454AÂ Â Broken Tube
C2454BÂ Â Broken Tube
C2454CÂ Â Broken Tube
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
Sebelumnya terima ksaih untuk seuanya.
Cheers,
Supriyadi
tapi kalau ada yang buatkan rumusnya, saya kasih dua jempol deh.......
--- Pada Rab, 5/6/13, Jan Raisin <miss.jan.raisin@
Dari: Jan Raisin <miss.jan.raisin@
Judul: Re: [belajar-excel] bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
Kepada: belajar-excel@
Tanggal: Rabu, 5 Juni, 2013, 7:35 AM
Â
Hai Supriyadi,
coba manfaatkn fitur Pivot Tableberhubung sample lebih besar dari ketentuan milis, maka sample dapat diunduh di siniÂ
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikutÂ
http://tech.
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;
>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke belajar-excel@
>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
Pada 5 Juni 2013 10.26, Supriyadi <supriyadi_sbm@
Â
dear all,Â
bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
misal di range                              saya ingin di range F3:F5 muncul hasil seperti ini
B3:B14Â Â Â C3:C14Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â E3:E5Â Â Â Â Â Â Â F3:F5
C2454A  Noise                             C2454A     Bearing
Damage
C2454B  Noise                             C2454B     Bearing Damage
C2454C  Noise                             C2454C     Bearing Damage
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
C2454AÂ Â Broken Tube
C2454BÂ Â Broken Tube
C2454CÂ Â Broken Tube
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
Sebelumnya terima ksaih untuk seuanya.
Cheers,
Supriyadi
Thu Jun 6, 2013 6:03 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Imajinasi data mengikuti alamat cell yang dijelaskan penanya.
Jumlah record data adalah 12.
Coba array formula berikut : (untuk hasil di F3)
=Index( c3:c14 , Mod( Max( Frequency( IF( b3:b14=e3 ,
Match(c3:c14,c3:c14,0) ),Row(*1:12*) ) *1000+Row(*1:13*) ),1000 ) )
Peringatan !!!
- Formula di atas adalah array formula, pastikan di ENTER dengan CTRL SHIFT
ENTER
- Bagian *biru *adalah seri angka dari 1 sampai jumlah record data dengan
interval 1
- Bagian *merah *adalah seri angka dari 1 sampai jumlah record data + 1
dengan interval 1
- Jika akan di-copy ke baris selanjutnya, pastikan seluruh rujukan range
diberi absolute reference baris dan kolom, kecuali yang merujuk cell e3.
- Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dalam formula menjadi karakter titik koma.
- Pada jumlah record yang banyak dan jumlah cell hasil dengan formula di
atas juga banyak, maka akan terasa kinerja kalkulasi Excel semakin melambat
Wassalam,
Kid.
2013/6/5 Supriyadi <supriyadi_sbm@yahoo.co.id >
> **
>
>
> dear all,
> bagaimana rumus untuk memunculkan data yang paling sering muncul dalam
> sebuah range??
> misal di range saya ingin di range F3:F5
> muncul hasil seperti ini
>
> B3:B14 C3:C14 E3:E5 F3:F5
>
> C2454A Noise C2454A Bearing Damage
> C2454B Noise C2454B Bearing Damage
> C2454C Noise C2454C Bearing Damage
> C2454A Bearing Damage
> C2454B Bearing Damage
> C2454C Bearing Damage
> C2454A Broken Tube
> C2454B Broken Tube
> C2454C Broken Tube
> C2454A Bearing Damage
> C2454B Bearing Damage
> C2454C Bearing Damage
>
> Sebelumnya terima ksaih untuk seuanya.
>
> Cheers,
>
> Supriyadi
>
>
>
Jumlah record data adalah 12.
Coba array formula berikut : (untuk hasil di F3)
=Index( c3:c14 , Mod( Max( Frequency( IF( b3:b14=e3 ,
Match(c3:c14,
Peringatan !!!
- Formula di atas adalah array formula, pastikan di ENTER dengan CTRL SHIFT
ENTER
- Bagian *biru *adalah seri angka dari 1 sampai jumlah record data dengan
interval 1
- Bagian *merah *adalah seri angka dari 1 sampai jumlah record data + 1
dengan interval 1
- Jika akan di-copy ke baris selanjutnya, pastikan seluruh rujukan range
diberi absolute reference baris dan kolom, kecuali yang merujuk cell e3.
- Jika regional setting komputer setempat adalah Indonesia, ganti seluruh
karakter koma dalam formula menjadi karakter titik koma.
- Pada jumlah record yang banyak dan jumlah cell hasil dengan formula di
atas juga banyak, maka akan terasa kinerja kalkulasi Excel semakin melambat
Wassalam,
Kid.
2013/6/5 Supriyadi <supriyadi_sbm@
> **
>
>
> dear all,
> bagaimana rumus untuk memunculkan data yang paling sering muncul dalam
> sebuah range??
> misal di range saya ingin di range F3:F5
> muncul hasil seperti ini
>
> B3:B14 C3:C14 E3:E5 F3:F5
>
> C2454A Noise C2454A Bearing Damage
> C2454B Noise C2454B Bearing Damage
> C2454C Noise C2454C Bearing Damage
> C2454A Bearing Damage
> C2454B Bearing Damage
> C2454C Bearing Damage
> C2454A Broken Tube
> C2454B Broken Tube
> C2454C Broken Tube
> C2454A Bearing Damage
> C2454B Bearing Damage
> C2454C Bearing Damage
>
> Sebelumnya terima ksaih untuk seuanya.
>
> Cheers,
>
> Supriyadi
>
>
>
Thu Jun 6, 2013 6:16 pm (PDT) . Posted by:
"Supriyadi" supriyadi_sbm
problem solved
makasih mr.kid,
tak kasih 2 jempol deh buat mr kid..
Cheers,
Supriyadi
--- Pada Jum, 7/6/13, Mr. Kid <mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid <mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
Kepada: "BeExcel" <belajar-excel@yahoogroups.com >
Tanggal: Jumat, 7 Juni, 2013, 1:03 AM
Â
Imajinasi data mengikuti alamat cell yang dijelaskan penanya.
Jumlah record data adalah 12.
Coba array formula berikut : (untuk hasil di F3)
=Index( c3:c14 , Mod( Max( Frequency( IF( b3:b14=e3 , Match(c3:c14,c3:c14,0) ),Row(1:12) ) *1000+Row(1:13) ),1000 ) )
Peringatan !!!
- Formula di atas adalah array formula, pastikan di ENTER dengan CTRL SHIFT ENTER
- Bagian biru adalah seri angka dari 1 sampai jumlah record data dengan interval 1
- Bagian merah adalah seri angka dari 1 sampai jumlah record data + 1 dengan interval 1
- Jika akan di-copy ke baris selanjutnya, pastikan seluruh rujukan range diberi absolute reference baris dan kolom, kecuali yang merujuk cell e3.
- Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
- Pada jumlah record yang banyak dan jumlah cell hasil dengan formula di atas juga banyak, maka akan terasa kinerja kalkulasi Excel semakin melambat
Wassalam,
Kid.
2013/6/5 Supriyadi <supriyadi_sbm@yahoo.co.id >
Â
dear all,Â
bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
misal di range                              saya ingin di range F3:F5 muncul hasil seperti ini
B3:B14Â Â Â C3:C14Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â E3:E5Â Â Â Â Â Â Â F3:F5
C2454A  Noise                             C2454A     Bearing
Damage
C2454B  Noise                             C2454B     Bearing Damage
C2454C  Noise                             C2454C     Bearing Damage
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
C2454AÂ Â Broken Tube
C2454BÂ Â Broken Tube
C2454CÂ Â Broken Tube
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
Sebelumnya terima ksaih untuk seuanya.
Cheers,
Supriyadi
makasih mr.kid,
tak kasih 2 jempol deh buat mr kid..
Cheers,
Supriyadi
--- Pada Jum, 7/6/13, Mr. Kid <mr.nmkid@gmail.
Dari: Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
Kepada: "BeExcel" <belajar-excel@
Tanggal: Jumat, 7 Juni, 2013, 1:03 AM
Â
Imajinasi data mengikuti alamat cell yang dijelaskan penanya.
Jumlah record data adalah 12.
Coba array formula berikut : (untuk hasil di F3)
=Index( c3:c14 , Mod( Max( Frequency( IF( b3:b14=e3 , Match(c3:c14,
Peringatan !!!
- Formula di atas adalah array formula, pastikan di ENTER dengan CTRL SHIFT ENTER
- Bagian biru adalah seri angka dari 1 sampai jumlah record data dengan interval 1
- Bagian merah adalah seri angka dari 1 sampai jumlah record data + 1 dengan interval 1
- Jika akan di-copy ke baris selanjutnya, pastikan seluruh rujukan range diberi absolute reference baris dan kolom, kecuali yang merujuk cell e3.
- Jika regional setting komputer setempat adalah Indonesia, ganti seluruh karakter koma dalam formula menjadi karakter titik koma.
- Pada jumlah record yang banyak dan jumlah cell hasil dengan formula di atas juga banyak, maka akan terasa kinerja kalkulasi Excel semakin melambat
Wassalam,
Kid.
2013/6/5 Supriyadi <supriyadi_sbm@
Â
dear all,Â
bagaimana rumus untuk memunculkan data yang paling sering muncul dalam sebuah range??
misal di range                              saya ingin di range F3:F5 muncul hasil seperti ini
B3:B14Â Â Â C3:C14Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â E3:E5Â Â Â Â Â Â Â F3:F5
C2454A  Noise                             C2454A     Bearing
Damage
C2454B  Noise                             C2454B     Bearing Damage
C2454C  Noise                             C2454C     Bearing Damage
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
C2454AÂ Â Broken Tube
C2454BÂ Â Broken Tube
C2454CÂ Â Broken Tube
C2454AÂ Â Bearing Damage
C2454BÂ Â Bearing Damage
C2454CÂ Â Bearing Damage
Sebelumnya terima ksaih untuk seuanya.
Cheers,
Supriyadi
Thu Jun 6, 2013 8:17 pm (PDT) . Posted by:
"Jan Raisin"
hai Shenly,
coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat
filenya langsung daripada hanya membayangkannya
dugaan sementara terjadnya error sbb:
1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
solusi: perbaiki penulisan nama sheet
2. tombol Input terletak pada sheet yang berbeda
solusi: coba pindahkan script pada suatu modul lalu panggil modul
tersebut melalui tombol input yang tadi
3. tipe data tidak sesuai
solusi: ubah tipe data dengan yang sesuai
saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
1. gunakan Option Explicit di awal setiap script
2. deklarasikan variabel dengan cara sbb:
Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData ,
NamaVariabel3 as TipeData
dibandingkan cara seperti ini
Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris gunakan
Long Integer dan bukan Integer
coba lihat tabel di bawah ini:
Data type Storage size Range *Byte* 1 byte 0 to 255 *Boolean* 2 bytes *True*or
*False* *Integer* 2 bytes -32,768 to 32,767 *Long*
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647 *LongLong*
(LongLong integer) 8 bytes -9,223,372,036,854,775,808 to
9,223,372,036,854,775,807 (Valid on 64-bit platforms only.) *LongPtr*
(Long integer on 32-bit systems, LongLong integer on 64-bit systems) 4
bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to
2,147,483,647 on 32-bit systems, -9,223,372,036,854,775,808 to
9,223,372,036,854,775,807 on 64-bit systems *Single*
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for
negative values; 1.401298E-45 to 3.402823E38 for positive values *Double*
(double-precision floating-point) 8 bytes -1.79769313486231E308 to
-4.94065645841247E-324 for negative values; 4.94065645841247E-324 to
1.79769313486232E308 for positive values *Currency*
(scaled integer) 8 bytes -922,337,203,685,477.5808 to
922,337,203,685,477.5807 *Decimal* 14 bytes
+/-79,228,162,514,264,337,593,543,950,335
with no decimal point;
+/-7.9228162514264337593543950335 with 28 places to the right of the
decimal; smallest non-zero number is
+/-0.0000000000000000000000000001 *Date* 8 bytes January 1, 100 to December
31, 9999 *Object* 4 bytes Any *Object* reference *String*
(variable-length) 10 bytes + string length 0 to approximately 2 billion *
String*
(fixed-length) Length of string 1 to approximately 65,400 *Variant*
(with numbers) 16 bytes Any numeric value up to the range of a *Double* *
Variant*
(with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same
range as for variable-length *String* User-defined
(using *Type*) Number required by elements The range of each element is the
same as the range of its data type.
perhatikan keterangan di atas
Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL
panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu
menyimpan nilai baris yang diambil dengan script Rows.Count ?
4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang
tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang
tadi disebut dinomor 1.
Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus
disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo
datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus
bawa-bawa kontainer segede gaban untuk menyimpan data.
ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya setelah
membaca dongeng di atas
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
pooling berikut
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@yahoogroups.com ;*
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
> **
>
>
> Hi Shenly,
> Penulisan nama sheetnya sudah benar?
>
> Salam,
> HK
>
> ------------------------------
> *From:* Shenly Ruchman <shenly_excelmania@yahoo.co.id >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, 6 June 2013, 10:47
> *Subject:* [belajar-excel] koreksi my VBA
>
>
> Assalamualakimun Wr.WB
>
> haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form
> inputan dengan scrip seperti ini
>
>
>
> Private Sub cmdinput_Click()
>
> Dim tanggal, namauser, produk As Integer
> Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("attainment fist depo")
> tanggal = .Cells(3, 3).Value
> namauser = .Cells(4, 3).Value
> produk = .Cells(5, 3).Value
> jumlahdeposit = .Cells(6, 3).Value
>
> BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = tanggal
> .Cells(BarisTujuan, 2).Value = namauser
> .Cells(BarisTujuan, 4).Value = produk
> .Cells(BarisTujuan, 6).Value = jumlahdeposit
> End With
>
> End Sub
>
>
>
>
>
> tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
> terima kasih
>
> Shenly ^^*
>
>
>
>
coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat
filenya langsung daripada hanya membayangkannya
dugaan sementara terjadnya error sbb:
1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
solusi: perbaiki penulisan nama sheet
2. tombol Input terletak pada sheet yang berbeda
solusi: coba pindahkan script pada suatu modul lalu panggil modul
tersebut melalui tombol input yang tadi
3. tipe data tidak sesuai
solusi: ubah tipe data dengan yang sesuai
saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
1. gunakan Option Explicit di awal setiap script
2. deklarasikan variabel dengan cara sbb:
Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData ,
NamaVariabel3 as TipeData
dibandingkan cara seperti ini
Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris gunakan
Long Integer dan bukan Integer
coba lihat tabel di bawah ini:
Data type Storage size Range *Byte* 1 byte 0 to 255 *Boolean* 2 bytes *True*or
*False* *Integer* 2 bytes -32,768 to 32,767 *Long*
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647 *LongLong*
(LongLong integer) 8 bytes -9,223,372,036,
9,223,372,036,
(Long integer on 32-bit systems, LongLong integer on 64-bit systems) 4
bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to
2,147,483,647 on 32-bit systems, -9,223,372,036,
9,223,372,036,
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for
negative values; 1.401298E-45 to 3.402823E38 for positive values *Double*
(double-precision floating-point) 8 bytes -1.79769313486231E3
-4.94065645841247E-
1.79769313486232E30
(scaled integer) 8 bytes -922,337,203,
922,337,203,
+/-79,228,162,
with no decimal point;
+/-7.92281625142643
decimal; smallest non-zero number is
+/-0.00000000000000
31, 9999 *Object* 4 bytes Any *Object* reference *String*
(variable-length) 10 bytes + string length 0 to approximately 2 billion *
String*
(fixed-length) Length of string 1 to approximately 65,400 *Variant*
(with numbers) 16 bytes Any numeric value up to the range of a *Double* *
Variant*
(with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same
range as for variable-length *String* User-defined
(using *Type*) Number required by elements The range of each element is the
same as the range of its data type.
perhatikan keterangan di atas
Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL
panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu
menyimpan nilai baris yang diambil dengan script Rows.Count ?
4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang
tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang
tadi disebut dinomor 1.
Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus
disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo
datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus
bawa-bawa kontainer segede gaban untuk menyimpan data.
ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya setelah
membaca dongeng di atas
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada
pooling berikut
http://tech.
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@
> **
>
>
> Hi Shenly,
> Penulisan nama sheetnya sudah benar?
>
> Salam,
> HK
>
> ------------
> *From:* Shenly Ruchman <shenly_excelmania@
> *To:* "belajar-excel@
> *Sent:* Thursday, 6 June 2013, 10:47
> *Subject:* [belajar-excel] koreksi my VBA
>
>
> Assalamualakimun Wr.WB
>
> haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form
> inputan dengan scrip seperti ini
>
>
>
> Private Sub cmdinput_Click(
>
> Dim tanggal, namauser, produk As Integer
> Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("
> tanggal = .Cells(3, 3).Value
> namauser = .Cells(4, 3).Value
> produk = .Cells(5, 3).Value
> jumlahdeposit = .Cells(6, 3).Value
>
> BarisTerakhir = .Cells(.Rows.
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = tanggal
> .Cells(BarisTujuan, 2).Value = namauser
> .Cells(BarisTujuan, 4).Value = produk
> .Cells(BarisTujuan, 6).Value = jumlahdeposit
> End With
>
> End Sub
>
>
>
>
>
> tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
> terima kasih
>
> Shenly ^^*
>
>
>
>
Thu Jun 6, 2013 9:05 pm (PDT) . Posted by:
"Shenly Ruchman" shenly_excelmania
terima kasih Miss.Jan dan Pak hendrik juga, atas penjelasannya....
dari penjelasan Miss.Jan saya udah ada gambaran mengenai kesalahan di scrip yang saya buat dan sudah saya perbaiki sendiri.
Tapi seteleh saya membaca penjelasan Miss.Jan di bawah, waaaaah ternyata dari pemilihan type scrip yg saya buat itu juga udah salah. yang harusnya menggunakan Long malah menggunakan Integer . dan masih banyak lagi kesalahan dalam pemilihan type dlm scrip yg sya buat, maklum baru belajar VBA hehehe...
terus untuk Option Explicit saya tidak tau menau mengenai menu / srip ini.Â
Mohon Miss.Jan atau para master yang lain menjelaskan mengenai scrip / menu Option Explicit dan tata letaknya
Shenly ^^*
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Jumat, 7 Juni 2013 11:17
Judul: Re: [belajar-excel] koreksi my VBA
Â
hai Shenly,
coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat filenya langsung daripada hanya membayangkannya
dugaan sementara terjadnya error sbb:
1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
  solusi: perbaiki penulisan nama sheet
2. tombol Input terletak pada sheet yang berbeda
  solusi: coba pindahkan script pada suatu modul lalu panggil modul tersebut melalui tombol input yang tadi
3. tipe data tidak sesuai
  solusi: ubah tipe data dengan yang sesuai
saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
1. gunakan Option Explicit di awal setiap script
2. deklarasikan variabel dengan cara sbb:
  Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData , NamaVariabel3 as TipeData
  dibandingkan cara seperti ini
  Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris gunakan Long Integer dan bukan Integer
  coba lihat tabel di bawah ini:
Â
Data type
Storage size
Range
Byte 1 byte 0 to 255
Boolean 2 bytes True or False
Integer 2 bytes -32,768 to 32,767
Long
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647
LongLong
(LongLong integer) 8 bytes -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807 (Valid on 64-bit
platforms only.)
LongPtr
(Long integer on 32-bit systems, LongLong
integer on 64-bit systems) 4 bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to 2,147,483,647 on 32-bit systems,
-9,223,372,036,854,775,808 to 9,223,372,036,854,775,807 on 64-bit
systems
Single
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to
3.402823E38 for positive values
Double
(double-precision floating-point) 8 bytes -1.79769313486231E308 to
-4.94065645841247E-324 for negative values;
4.94065645841247E-324 to 1.79769313486232E308 for positive values
Currency
(scaled integer) 8 bytes -922,337,203,685,477.5808 to 922,337,203,685,477.5807
Decimal 14 bytes +/-79,228,162,514,264,337,593,543,950,335 with no decimal
point;
+/-7.9228162514264337593543950335 with 28 places to the right of the
decimal; smallest non-zero number
is
+/-0.0000000000000000000000000001
Date 8 bytes January 1, 100 to December 31, 9999
Object 4 bytes Any Object reference
String
(variable-length) 10 bytes + string length 0 to approximately 2 billion
String
(fixed-length) Length of string 1 to approximately 65,400
Variant
(with numbers) 16 bytes Any numeric value up to the range of a Double
Variant
(with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same range as for variable-length String
User-defined
(using Type) Number required by elements The range of each element is the same as the range of its data type.
  perhatikan keterangan di atas
  Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
  bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu menyimpan nilai baris yang diambil dengan script Rows.Count?
4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang tadi disebut dinomor 1.
  Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus bawa-bawa kontainer segede gaban untuk menyimpan data.
ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya setelah membaca dongeng di atas
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikutÂ
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;
>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke belajar-excel@yahoogroups.com ;
>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@yahoo.com > menulis:
>Â
>Hi Shenly,
>Penulisan nama sheetnya sudah benar?
>
>
>Salam,
>HK
>
>
>
>________________________________
> From: Shenly Ruchman <shenly_excelmania@yahoo.co.id >
>To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
>Sent: Thursday, 6 June 2013, 10:47
>Subject: [belajar-excel] koreksi my VBA
>
>
>
>Â
>Assalamualakimun Wr.WB
>
>
>haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form inputan dengan scrip seperti ini
>
>
>
>
>
>
>Private Sub cmdinput_Click()
>
>
>Â Â Dim tanggal, namauser, produk As Integer
>Â Â Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>Â Â Â
>Â Â With Worksheets("attainment fist depo")
>Â Â Â Â tanggal = .Cells(3, 3).Value
>Â Â Â Â namauser = .Cells(4, 3).Value
>Â Â Â Â produk = .Cells(5, 3).Value
>Â Â Â Â jumlahdeposit = .Cells(6, 3).Value
>Â Â Â Â Â
>Â Â Â Â BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
>Â Â Â Â BarisTujuan = BarisTerakhir + 1
>Â Â Â Â .Cells(BarisTujuan, 1).Value = tanggal
>Â Â Â Â .Cells(BarisTujuan, 2).Value = namauser
>Â Â Â Â .Cells(BarisTujuan, 4).Value = produk
>Â Â Â Â .Cells(BarisTujuan, 6).Value = jumlahdeposit
>Â Â End With
>Â Â Â Â Â
>End Sub
>
>
>
>
>
>
>
>
>
>
>tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
>
>terima kasih
>
>
>Shenly ^^*
>
>
dari penjelasan Miss.Jan saya udah ada gambaran mengenai kesalahan di scrip yang saya buat dan sudah saya perbaiki sendiri.
Tapi seteleh saya membaca penjelasan Miss.Jan di bawah, waaaaah ternyata dari pemilihan type scrip yg saya buat itu juga udah salah. yang harusnya menggunakan Long malah menggunakan Integer . dan masih banyak lagi kesalahan dalam pemilihan type dlm scrip yg sya buat, maklum baru belajar VBA hehehe...
terus untuk Option Explicit saya tidak tau menau mengenai menu / srip ini.Â
Mohon Miss.Jan atau para master yang lain menjelaskan mengenai scrip / menu Option Explicit dan tata letaknya
Shenly ^^*
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Jumat, 7 Juni 2013 11:17
Judul: Re: [belajar-excel] koreksi my VBA
Â
hai Shenly,
coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat filenya langsung daripada hanya membayangkannya
dugaan sementara terjadnya error sbb:
1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
  solusi: perbaiki penulisan nama sheet
2. tombol Input terletak pada sheet yang berbeda
  solusi: coba pindahkan script pada suatu modul lalu panggil modul tersebut melalui tombol input yang tadi
3. tipe data tidak sesuai
  solusi: ubah tipe data dengan yang sesuai
saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
1. gunakan Option Explicit di awal setiap script
2. deklarasikan variabel dengan cara sbb:
  Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData , NamaVariabel3 as TipeData
  dibandingkan cara seperti ini
  Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris gunakan Long Integer dan bukan Integer
  coba lihat tabel di bawah ini:
Â
Data type
Storage size
Range
Byte 1 byte 0 to 255
Boolean 2 bytes True or False
Integer 2 bytes -32,768 to 32,767
Long
(long integer) 4 bytes -2,147,483,648 to 2,147,483,647
LongLong
(LongLong integer) 8 bytes -9,223,372,036,
platforms only.)
LongPtr
(Long integer on 32-bit systems, LongLong
integer on 64-bit systems) 4 bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to 2,147,483,647 on 32-bit systems,
-9,223,372,036,
systems
Single
(single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45 for negative values; 1.401298E-45 to
3.402823E38 for positive values
Double
(double-precision floating-point) 8 bytes -1.79769313486231E3
-4.94065645841247E-
4.94065645841247E-
Currency
(scaled integer) 8 bytes -922,337,203,
Decimal 14 bytes +/-79,228,162,
point;
+/-7.92281625142643
decimal; smallest non-zero number
is
+/-0.00000000000000
Date 8 bytes January 1, 100 to December 31, 9999
Object 4 bytes Any Object reference
String
(variable-length) 10 bytes + string length 0 to approximately 2 billion
String
(fixed-length) Length of string 1 to approximately 65,400
Variant
(with numbers) 16 bytes Any numeric value up to the range of a Double
Variant
(with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same range as for variable-length String
User-defined
(using Type) Number required by elements The range of each element is the same as the range of its data type.
  perhatikan keterangan di atas
  Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
  bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu menyimpan nilai baris yang diambil dengan script Rows.Count?
4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang tadi disebut dinomor 1.
  Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus bawa-bawa kontainer segede gaban untuk menyimpan data.
ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya setelah membaca dongeng di atas
# sampaikan masalah yang sering anda temui saat menggunakan Excel pada pooling berikutÂ
http://tech.
Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat berharga untuk Be-Exceler yang lain
Wassalam,
-Miss Jan Raisin-
>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1 pertanyaan yang diajukan;
>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke belajar-excel@
>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan orang-orang yang sabar QS 2:153;
Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@
>Â
>Hi Shenly,
>Penulisan nama sheetnya sudah benar?
>
>
>Salam,
>HK
>
>
>
>________
> From: Shenly Ruchman <shenly_excelmania@
>To: "belajar-excel@
>Sent: Thursday, 6 June 2013, 10:47
>Subject: [belajar-excel] koreksi my VBA
>
>
>
>Â
>Assalamualakimu
>
>
>haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form inputan dengan scrip seperti ini
>
>
>
>
>
>
>Private Sub cmdinput_Click(
>
>
>Â Â Dim tanggal, namauser, produk As Integer
>Â Â Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>Â Â Â
>Â Â With Worksheets("
>Â Â Â Â tanggal = .Cells(3, 3).Value
>Â Â Â Â namauser = .Cells(4, 3).Value
>Â Â Â Â produk = .Cells(5, 3).Value
>Â Â Â Â jumlahdeposit = .Cells(6, 3).Value
>Â Â Â Â Â
>Â Â Â Â BarisTerakhir = .Cells(.Rows.
>Â Â Â Â BarisTujuan = BarisTerakhir + 1
>Â Â Â Â .Cells(BarisTujuan, 1).Value = tanggal
>Â Â Â Â .Cells(BarisTujuan, 2).Value = namauser
>Â Â Â Â .Cells(BarisTujuan, 4).Value = produk
>Â Â Â Â .Cells(BarisTujuan, 6).Value = jumlahdeposit
>Â Â End With
>Â Â Â Â Â
>End Sub
>
>
>
>
>
>
>
>
>
>
>tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
>
>terima kasih
>
>
>Shenly ^^*
>
>
Thu Jun 6, 2013 11:39 pm (PDT) . Posted by:
"Jan Raisin"
Hai Shenly,
selamat ya.. karena sudah berhasil menemukan dan memperbaiki penyebab error
yang muncul.
mengenai Option Explicit, script ini ditulis di bagian paling atas script,
fungsinya agar ada pemeriksaan oleh komputer terhadap semua variabel yang
digunakan.
jika ada variabel yang tidak dideklarasikan terlebih dahulu maka akan
muncul peringatan dari komputer saat script dijalankan, script ini juga
berguna untuk memeriksa kesalahan menulis nama variabel.
Misal, ingin diketahui nomor baris terakhir dari kolom A yang dimunculkan
melalui message box
jika tanpa Option Explicit maka scriptnya sperti ini:
sub Testing ()
lRow = cells( rows.count , 1 ).end(xlup).row
msgbx "Baris akhir data terletak pada baris ke " & lLoe
end sub
script di atas tetap akan tetap berjalan, tetapi akan menampilkan hasil
yang salah dengan kapasitas file yang besar.
tetapi jika menggunakan Option Explicit seperti script di bawah ini:
option explicit
sub Testing ()
lRow = cells( rows.count , 1 ).end(xlup).row
msgbx "Baris akhir data terletak pada baris ke " & lLoe
end sub
maka pada saat script dijalankan maka akan muncul error (error yang muncul
di sini dinamakan Compile Error) pada baris:
lRow = cells( rows.count , 1 ).end(xlup).row
--sekedar wacana: ada 3 macam error yang mungkin muncul jika sudah
bermain-main dengan VBA, yaitu: Syntax Error, Compile Error, dan Run Time
Error--
hal ini terjadi karena variabel lRow belum dideklarasikan terlebih dahulu
Jika kesalahan di atas diperbaiki dengan melakukan deklarasi terhadap
variabel lRow, maka saat dijalankan kembali maka akan muncul error pada
baris:
msgbx "Baris akhir data terletak pada baris ke " & lLoe
hal ini terjadi karena ternyata ada kesalahan penulisan variabel, yang
ingin diambil adalah variabel lRow tetapi salah ditulis menjadi lLoe
untuk menghindari hal-hal tersebut di atas maka sebaiknya Option Explicit
selalu ditulis di awal setiap script.
Ada cara mudah agar kita tidak harus selalu menulisnya, dan biarkan
komputer yang melakukannya, caranya sbb:
pada saat di VBE (Visual Basic Editor), klik Tools >> Options >> kasih
tanda centrang di kotak Require Variable Declaration >> OK, seperti gambar
di bawah ini:
[image: Gambar sisip 1]
semoga cerita di atas sedikit memberikan pencerahan, Jan do'akan semoga
mbak Shenly cepat mahir dan menguasai VBA, jadi kalo ada yang bertanya
tentang VBA bisa ikut urun solusi.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Wassalam,
-Miss Jan Raisin-
*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@yahoogroups.com ;*
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 7 Juni 2013 10.56, Shenly Ruchman <shenly_excelmania@yahoo.co.id >menulis:
> **
>
>
> terima kasih Miss.Jan dan Pak hendrik juga, atas penjelasannya....
> dari penjelasan Miss.Jan saya udah ada gambaran mengenai kesalahan di
> scrip yang saya buat dan sudah saya perbaiki sendiri.
> Tapi seteleh saya membaca penjelasan Miss.Jan di bawah, waaaaah ternyata
> dari pemilihan type scrip yg saya buat itu juga udah salah. yang harusnya
> menggunakan *Long *malah menggunakan *Integer . *dan masih banyak lagi kesalahan
> dalam pemilihan type dlm scrip yg sya buat, maklum baru belajar VBA
> hehehe...
> terus untuk Option Explicit saya tidak tau menau mengenai menu / srip
> ini.
> Mohon Miss.Jan atau para master yang lain menjelaskan mengenai scrip /
> menu Option Explicit dan tata letaknya
>
> Shenly ^^*
>
> ------------------------------
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 7 Juni 2013 11:17
> *Judul:* Re: [belajar-excel] koreksi my VBA
>
>
> hai Shenly,
>
> coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat
> filenya langsung daripada hanya membayangkannya
>
> dugaan sementara terjadnya error sbb:
> 1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
> solusi: perbaiki penulisan nama sheet
> 2. tombol Input terletak pada sheet yang berbeda
> solusi: coba pindahkan script pada suatu modul lalu panggil modul
> tersebut melalui tombol input yang tadi
> 3. tipe data tidak sesuai
> solusi: ubah tipe data dengan yang sesuai
>
> saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
> 1. gunakan Option Explicit di awal setiap script
> 2. deklarasikan variabel dengan cara sbb:
> Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData ,
> NamaVariabel3 as TipeData
> dibandingkan cara seperti ini
> Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
> 3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris
> gunakan Long Integer dan bukan Integer
> coba lihat tabel di bawah ini:
>
> Data type Storage size Range *Byte* 1 byte 0 to 255 *Boolean* 2 bytes *
> True* or *False* *Integer* 2 bytes -32,768 to 32,767 *Long*
> (long integer) 4 bytes -2,147,483,648 to 2,147,483,647 *LongLong*
> (LongLong integer) 8 bytes -9,223,372,036,854,775,808 to
> 9,223,372,036,854,775,807 (Valid on 64-bit platforms only.) *LongPtr*
> (Long integer on 32-bit systems, LongLong integer on 64-bit systems) 4
> bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to
> 2,147,483,647 on 32-bit systems, -9,223,372,036,854,775,808 to
> 9,223,372,036,854,775,807 on 64-bit systems *Single*
> (single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45
> for negative values; 1.401298E-45 to 3.402823E38 for positive values *
> Double*
> (double-precision floating-point) 8 bytes -1.79769313486231E308 to
> -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to
> 1.79769313486232E308 for positive values *Currency*
> (scaled integer) 8 bytes -922,337,203,685,477.5808 to
> 922,337,203,685,477.5807 *Decimal* 14 bytes +/-79,228,162,514,264,337,593,543,950,335
> with no decimal point;
> +/-7.9228162514264337593543950335 with 28 places to the right of the
> decimal; smallest non-zero number is
> +/-0.0000000000000000000000000001 *Date* 8 bytes January 1, 100 to
> December 31, 9999 *Object* 4 bytes Any *Object* reference *String*
> (variable-length) 10 bytes + string length 0 to approximately 2 billion *
> String*
> (fixed-length) Length of string 1 to approximately 65,400 *Variant*
> (with numbers) 16 bytes Any numeric value up to the range of a *Double* *
> Variant*
> (with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same
> range as for variable-length *String* User-defined
> (using *Type*) Number required by elements The range of each element is
> the same as the range of its data type.
>
> perhatikan keterangan di atas
> Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
> bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL
> panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu
> menyimpan nilai baris yang diambil dengan script Rows.Count ?
> 4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang
> tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang
> tadi disebut dinomor 1.
> Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus
> disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo
> datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus
> bawa-bawa kontainer segede gaban untuk menyimpan data.
>
> ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya
> setelah membaca dongeng di atas
>
> # sampaikan masalah yang sering anda temui saat menggunakan Excel pada
> pooling berikut
>
> http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
>
> Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
> berharga untuk Be-Exceler yang lain
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> *>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan
> Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
> pertanyaan yang diajukan;*
> *>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
> belajar-excel@yahoogroups.com ;*
> *>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;*
>
>
> Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@yahoo.com >menulis:
>
> **
>
> Hi Shenly,
> Penulisan nama sheetnya sudah benar?
>
> Salam,
> HK
>
> ------------------------------
> *From:* Shenly Ruchman <shenly_excelmania@yahoo.co.id >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Thursday, 6 June 2013, 10:47
> *Subject:* [belajar-excel] koreksi my VBA
>
>
> Assalamualakimun Wr.WB
>
> haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form
> inputan dengan scrip seperti ini
>
>
>
> Private Sub cmdinput_Click()
>
> Dim tanggal, namauser, produk As Integer
> Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("attainment fist depo")
> tanggal = .Cells(3, 3).Value
> namauser = .Cells(4, 3).Value
> produk = .Cells(5, 3).Value
> jumlahdeposit = .Cells(6, 3).Value
>
> BarisTerakhir = .Cells(.Rows.Count, 1).End(xlUp).Row
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = tanggal
> .Cells(BarisTujuan, 2).Value = namauser
> .Cells(BarisTujuan, 4).Value = produk
> .Cells(BarisTujuan, 6).Value = jumlahdeposit
> End With
>
> End Sub
>
>
>
>
>
> tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
> terima kasih
>
> Shenly ^^*
>
>
>
>
>
>
>
selamat ya.. karena sudah berhasil menemukan dan memperbaiki penyebab error
yang muncul.
mengenai Option Explicit, script ini ditulis di bagian paling atas script,
fungsinya agar ada pemeriksaan oleh komputer terhadap semua variabel yang
digunakan.
jika ada variabel yang tidak dideklarasikan terlebih dahulu maka akan
muncul peringatan dari komputer saat script dijalankan, script ini juga
berguna untuk memeriksa kesalahan menulis nama variabel.
Misal, ingin diketahui nomor baris terakhir dari kolom A yang dimunculkan
melalui message box
jika tanpa Option Explicit maka scriptnya sperti ini:
sub Testing ()
lRow = cells( rows.count , 1 ).end(xlup).
msgbx "Baris akhir data terletak pada baris ke " & lLoe
end sub
script di atas tetap akan tetap berjalan, tetapi akan menampilkan hasil
yang salah dengan kapasitas file yang besar.
tetapi jika menggunakan Option Explicit seperti script di bawah ini:
option explicit
sub Testing ()
lRow = cells( rows.count , 1 ).end(xlup).
msgbx "Baris akhir data terletak pada baris ke " & lLoe
end sub
maka pada saat script dijalankan maka akan muncul error (error yang muncul
di sini dinamakan Compile Error) pada baris:
lRow = cells( rows.count , 1 ).end(xlup).
--sekedar wacana: ada 3 macam error yang mungkin muncul jika sudah
bermain-main dengan VBA, yaitu: Syntax Error, Compile Error, dan Run Time
Error--
hal ini terjadi karena variabel lRow belum dideklarasikan terlebih dahulu
Jika kesalahan di atas diperbaiki dengan melakukan deklarasi terhadap
variabel lRow, maka saat dijalankan kembali maka akan muncul error pada
baris:
msgbx "Baris akhir data terletak pada baris ke " & lLoe
hal ini terjadi karena ternyata ada kesalahan penulisan variabel, yang
ingin diambil adalah variabel lRow tetapi salah ditulis menjadi lLoe
untuk menghindari hal-hal tersebut di atas maka sebaiknya Option Explicit
selalu ditulis di awal setiap script.
Ada cara mudah agar kita tidak harus selalu menulisnya, dan biarkan
komputer yang melakukannya, caranya sbb:
pada saat di VBE (Visual Basic Editor), klik Tools >> Options >> kasih
tanda centrang di kotak Require Variable Declaration >> OK, seperti gambar
di bawah ini:
[image: Gambar sisip 1]
semoga cerita di atas sedikit memberikan pencerahan, Jan do'akan semoga
mbak Shenly cepat mahir dan menguasai VBA, jadi kalo ada yang bertanya
tentang VBA bisa ikut urun solusi.
اَمÙين يَا رَبَÙ' الÙ'عَالَمÙÙŠÙ'Ù†
Wassalam,
-Miss Jan Raisin-
*>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan Jan
jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
pertanyaan yang diajukan;*
*>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
belajar-excel@
*>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta dengan
orang-orang yang sabar QS 2:153;*
Pada 7 Juni 2013 10.56, Shenly Ruchman <shenly_excelmania@
> **
>
>
> terima kasih Miss.Jan dan Pak hendrik juga, atas penjelasannya.
> dari penjelasan Miss.Jan saya udah ada gambaran mengenai kesalahan di
> scrip yang saya buat dan sudah saya perbaiki sendiri.
> Tapi seteleh saya membaca penjelasan Miss.Jan di bawah, waaaaah ternyata
> dari pemilihan type scrip yg saya buat itu juga udah salah. yang harusnya
> menggunakan *Long *malah menggunakan *Integer . *dan masih banyak lagi kesalahan
> dalam pemilihan type dlm scrip yg sya buat, maklum baru belajar VBA
> hehehe...
> terus untuk Option Explicit saya tidak tau menau mengenai menu / srip
> ini.
> Mohon Miss.Jan atau para master yang lain menjelaskan mengenai scrip /
> menu Option Explicit dan tata letaknya
>
> Shenly ^^*
>
> ------------
> *Dari:* Jan Raisin <miss.jan.raisin@
> *Kepada:* belajar-excel@
> *Dikirim:* Jumat, 7 Juni 2013 11:17
> *Judul:* Re: [belajar-excel] koreksi my VBA
>
>
> hai Shenly,
>
> coba kirimkan sample filenya untuk diteliti bersama.. lebih mudah melihat
> filenya langsung daripada hanya membayangkannya
>
> dugaan sementara terjadnya error sbb:
> 1. penulisan nama sheet salah >> sudah disebutkan oleh pak Hendrik
> solusi: perbaiki penulisan nama sheet
> 2. tombol Input terletak pada sheet yang berbeda
> solusi: coba pindahkan script pada suatu modul lalu panggil modul
> tersebut melalui tombol input yang tadi
> 3. tipe data tidak sesuai
> solusi: ubah tipe data dengan yang sesuai
>
> saran lain untuk perbaikan, (tidak ada hubungannya dengan pertayaan)
> 1. gunakan Option Explicit di awal setiap script
> 2. deklarasikan variabel dengan cara sbb:
> Dim NamaVariabel as TipeData , NamaVariabel2 as TipeData ,
> NamaVariabel3 as TipeData
> dibandingkan cara seperti ini
> Dim NamaVariabel , NamaVariabel2 , NamaVariabel3 as TipeData
> 3. Gunakan tipe data yang sesuai, misal untuk menyimpan nomor baris
> gunakan Long Integer dan bukan Integer
> coba lihat tabel di bawah ini:
>
> Data type Storage size Range *Byte* 1 byte 0 to 255 *Boolean* 2 bytes *
> True* or *False* *Integer* 2 bytes -32,768 to 32,767 *Long*
> (long integer) 4 bytes -2,147,483,648 to 2,147,483,647 *LongLong*
> (LongLong integer) 8 bytes -9,223,372,036,
> 9,223,372,036,
> (Long integer on 32-bit systems, LongLong integer on 64-bit systems) 4
> bytes on 32-bit systems, 8 bytes on 64-bit systems -2,147,483,648 to
> 2,147,483,647 on 32-bit systems, -9,223,372,036,
> 9,223,372,036,
> (single-precision floating-point) 4 bytes -3.402823E38 to -1.401298E-45
> for negative values; 1.401298E-45 to 3.402823E38 for positive values *
> Double*
> (double-precision floating-point) 8 bytes -1.79769313486231E3
> -4.94065645841247E-
> 1.79769313486232E30
> (scaled integer) 8 bytes -922,337,203,
> 922,337,203,
> with no decimal point;
> +/-7.92281625142643
> decimal; smallest non-zero number is
> +/-0.00000000000000
> December 31, 9999 *Object* 4 bytes Any *Object* reference *String*
> (variable-length) 10 bytes + string length 0 to approximately 2 billion *
> String*
> (fixed-length) Length of string 1 to approximately 65,400 *Variant*
> (with numbers) 16 bytes Any numeric value up to the range of a *Double* *
> Variant*
> (with characters) 22 bytes + string length (24 bytes on 64-bit systems) Same
> range as for variable-length *String* User-defined
> (using *Type*) Number required by elements The range of each element is
> the same as the range of its data type.
>
> perhatikan keterangan di atas
> Tipe data Integer dapat menyimpan sampai dengan nilai 32.767
> bandingkan dengan jumlah baris pada Excel di tempat Shenly (tekan CTRL
> panah bawah sampai baris terakhir), apakah mungkin tipe data tersebut mampu
> menyimpan nilai baris yang diambil dengan script Rows.Count ?
> 4. Sebisa mungkin hindari penggunaan tipe data Variant atau variabel yang
> tidak dideklarasikan terlebih dahulu, ini dia gunanya Option Explicit yang
> tadi disebut dinomor 1.
> Kenapa harus dihindari? coba lihat kapasitas penyimpanan yang harus
> disediakan untuk variabel tersebut, pinjam istilah mr Kid kemarin, kalo
> datanya bisa disimpan pakai amplop di dalam saku baju kenapa juga harus
> bawa-bawa kontainer segede gaban untuk menyimpan data.
>
> ditunggu samplenya.. mudah-mudahan malah ketemu sendiri penyebabnya
> setelah membaca dongeng di atas
>
> # sampaikan masalah yang sering anda temui saat menggunakan Excel pada
> pooling berikut
>
> http://tech.
>
> Sedikit waktu yang anda luangkan untuk mengisi pooling tersebut sangat
> berharga untuk Be-Exceler yang lain
>
> Wassalam,
>
> -Miss Jan Raisin-
>
> *>>> Jangan mengirim pertanyaan melalui japri ke Jan karena tidak akan
> Jan jawab kecuali anda mentransfer ke Jan senilai Rp 1 juta untuk setiap 1
> pertanyaan yang diajukan;*
> *>>> Untuk kepentingan belajar bersama, pertanyaan ditujukan ke
> belajar-excel@
> *>>> Jika pertanyaan lama direspon, bersabarlah karena ALLAH beserta
> dengan orang-orang yang sabar QS 2:153;*
>
>
> Pada 6 Juni 2013 14.04, hendrik karnadi <hendrikkarnadi@
>
> **
>
> Hi Shenly,
> Penulisan nama sheetnya sudah benar?
>
> Salam,
> HK
>
> ------------
> *From:* Shenly Ruchman <shenly_excelmania@
> *To:* "belajar-excel@
> *Sent:* Thursday, 6 June 2013, 10:47
> *Subject:* [belajar-excel] koreksi my VBA
>
>
> Assalamualakimun Wr.WB
>
> haloo para master, kembali sya bertanya, kemarin saya iseng2 membuat form
> inputan dengan scrip seperti ini
>
>
>
> Private Sub cmdinput_Click(
>
> Dim tanggal, namauser, produk As Integer
> Dim jumlahdeposit, BarisTerakhir, BarisTujuan As Integer
>
> With Worksheets("
> tanggal = .Cells(3, 3).Value
> namauser = .Cells(4, 3).Value
> produk = .Cells(5, 3).Value
> jumlahdeposit = .Cells(6, 3).Value
>
> BarisTerakhir = .Cells(.Rows.
> BarisTujuan = BarisTerakhir + 1
> .Cells(BarisTujuan, 1).Value = tanggal
> .Cells(BarisTujuan, 2).Value = namauser
> .Cells(BarisTujuan, 4).Value = produk
> .Cells(BarisTujuan, 6).Value = jumlahdeposit
> End With
>
> End Sub
>
>
>
>
>
> tapi ko malah error, tolong master-master berkenan memberi pencarahannya
>
> terima kasih
>
> Shenly ^^*
>
>
>
>
>
>
>
Thu Jun 6, 2013 11:59 pm (PDT) . Posted by:
"ChordJR" indra_gustian
Assalamu'alaikum Wr. Wb
Langsung saja terdapat kesulitan akan coding userform yang saya buat...
1. Pada saat menggunakan combo box, pilihan nama karyawan malah
munculnya angka??mohon di bantu untuk coding nya..
2. Data - data pada text akan di input kembali ke sheet input, tetapi
saya kesulitan membuat codingnya...sudah mencoba tetapi belum berhasil
*Password memunculkan Hidden Sheet : "Belajar-Excel" tanpa tanda (")
Sementara ini dulu yang saya tanyakan, mohon maaf apabila penjelasan
kurang jelas...Dikarenakan minat saya yang besar untuk belajar VBA
semoga rekan" Be-Excel berkenan membantu...
Regards,
Indra
Langsung saja terdapat kesulitan akan coding userform yang saya buat...
1. Pada saat menggunakan combo box, pilihan nama karyawan malah
munculnya angka??mohon di bantu untuk coding nya..
2. Data - data pada text akan di input kembali ke sheet input, tetapi
saya kesulitan membuat codingnya...
*Password memunculkan Hidden Sheet : "Belajar-
Sementara ini dulu yang saya tanyakan, mohon maaf apabila penjelasan
kurang jelas...Dikarenakan minat saya yang besar untuk belajar VBA
semoga rekan" Be-Excel berkenan membantu...
Regards,
Indra
GROUP FOOTER MESSAGE
=====================================================================
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
---------------------------------------------------------------------
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