15 New Messages
Digest #1995
Messages
Sat Dec 29, 2012 10:18 am (PST) . Posted by:
"Supriyanto S" priweto
Dear ALL,
Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
mengclouse case yang sudah saya lontarkan ke forum ini.
Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para master
untuk membantu kesulitan saya dalam penerapan formula "MODE"
Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
jika ditemukan value/item blank.
Lebih jelasnya mohon dapat dilihat pada attachmentnya.
Terima kasih sebelumnya atas pencerahan dan bantuannya.
salam
supriy
Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
mengclouse case yang sudah saya lontarkan ke forum ini.
Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para master
untuk membantu kesulitan saya dalam penerapan formula "MODE"
Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
jika ditemukan value/item blank.
Lebih jelasnya mohon dapat dilihat pada attachmentnya.
Terima kasih sebelumnya atas pencerahan dan bantuannya.
salam
supriy
Sat Dec 29, 2012 10:37 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Supriy,
Asumsi :
Data di A2:A34 berisi data text.
Untuk mencari modus pada data bertipe text antara lain dengan array formula
: (tekan CTRL SHIFT ENTER usai menulis formula)
=*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)* *)
*
Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
menyertakan blank dalam komputasi modus, maka array formula di atas dapat
diberi pengkondisian seperti array formula berikut :
=*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
A2:A4 , 0 )* *)* *)* *)*
Array formula di atas dapat menghasilkan error value ketika seluruh cell
A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
diubah menjadi :
=*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
=*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Wassalam,
Kid.
2012/12/29 Supriyanto S <priyant37@gmail.com >
> **
>
>
> Dear ALL,
>
> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
> mengclouse case yang sudah saya lontarkan ke forum ini.
> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para master
> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>
> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
> jika ditemukan value/item blank.
>
> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>
> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>
> salam
> supriy
>
>
Asumsi :
Data di A2:A34 berisi data text.
Untuk mencari modus pada data bertipe text antara lain dengan array formula
: (tekan CTRL SHIFT ENTER usai menulis formula)
=*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)* *)
*
Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
menyertakan blank dalam komputasi modus, maka array formula di atas dapat
diberi pengkondisian seperti array formula berikut :
=*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
A2:A4 , 0 )* *)* *)* *)*
Array formula di atas dapat menghasilkan error value ketika seluruh cell
A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
diubah menjadi :
=*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
=*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Wassalam,
Kid.
2012/12/29 Supriyanto S <priyant37@gmail.
> **
>
>
> Dear ALL,
>
> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
> mengclouse case yang sudah saya lontarkan ke forum ini.
> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para master
> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>
> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
> jika ditemukan value/item blank.
>
> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>
> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>
> salam
> supriy
>
>
Sat Dec 29, 2012 9:06 pm (PST) . Posted by:
"Supriyanto S" priweto
Selamat siang,
Terima kasih mr Kid atas pencerahannya, pitunjuknya dah langsung saya
aplikasikan.
Case ini bisa diclouse. Dan semoga dihari berikut tidak bosan bosannya para
master excel memberikan pencerahannya.
Terima kasih
Pada 30 Desember 2012 02:37, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Hai Supriy,
>
> Asumsi :
> Data di A2:A34 berisi data text.
>
> Untuk mencari modus pada data bertipe text antara lain dengan array
> formula : (tekan CTRL SHIFT ENTER usai menulis formula)
> =*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)*
> *)*
>
> Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
> menyertakan blank dalam komputasi modus, maka array formula di atas dapat
> diberi pengkondisian seperti array formula berikut :
> =*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
> A2:A4 , 0 )* *)* *)* *)*
>
> Array formula di atas dapat menghasilkan error value ketika seluruh cell
> A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
> diubah menjadi :
> =*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
> A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
> =*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
> Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **,
> "" )* -> semua versi
>
> Wassalam,
> Kid.
>
>
> 2012/12/29 Supriyanto S <priyant37@gmail.com >
>
>> **
>>
>>
>> Dear ALL,
>>
>> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
>> mengclouse case yang sudah saya lontarkan ke forum ini.
>> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para
>> master
>> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>>
>> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
>> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
>> jika ditemukan value/item blank.
>>
>> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>>
>> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>>
>> salam
>> supriy
>>
>>
>
>
Terima kasih mr Kid atas pencerahannya, pitunjuknya dah langsung saya
aplikasikan.
Case ini bisa diclouse. Dan semoga dihari berikut tidak bosan bosannya para
master excel memberikan pencerahannya.
Terima kasih
Pada 30 Desember 2012 02:37, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Hai Supriy,
>
> Asumsi :
> Data di A2:A34 berisi data text.
>
> Untuk mencari modus pada data bertipe text antara lain dengan array
> formula : (tekan CTRL SHIFT ENTER usai menulis formula)
> =*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)*
> *)*
>
> Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
> menyertakan blank dalam komputasi modus, maka array formula di atas dapat
> diberi pengkondisian seperti array formula berikut :
> =*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
> A2:A4 , 0 )* *)* *)* *)*
>
> Array formula di atas dapat menghasilkan error value ketika seluruh cell
> A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
> diubah menjadi :
> =*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
> A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
> =*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
> Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **,
> "" )* -> semua versi
>
> Wassalam,
> Kid.
>
>
> 2012/12/29 Supriyanto S <priyant37@gmail.
>
>> **
>>
>>
>> Dear ALL,
>>
>> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
>> mengclouse case yang sudah saya lontarkan ke forum ini.
>> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para
>> master
>> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>>
>> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
>> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
>> jika ditemukan value/item blank.
>>
>> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>>
>> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>>
>> salam
>> supriy
>>
>>
>
>
Sat Dec 29, 2012 9:39 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hehehe...
kayanya ada yang salah deh...
pada array formula :
=*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Bagian countif-nya menganggap nullstring ada datanya.
Sebaiknya ganti bagian :
*CountIF( A2:A24 , "<>" ) *
dengan :
*sum( len( A2:A24 ) ) *
menjadi :
=*IF( **sum( len( A2:A24 ) ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Mohon maaf atas kekhilafan yang terjadi.
Wassalam,
Kid.
2012/12/30 Supriyanto S <priyant37@gmail.com >
> **
>
>
> Selamat siang,
>
> Terima kasih mr Kid atas pencerahannya, pitunjuknya dah langsung saya
> aplikasikan.
> Case ini bisa diclouse. Dan semoga dihari berikut tidak bosan bosannya
> para master excel memberikan pencerahannya.
> Terima kasih
>
>
> Pada 30 Desember 2012 02:37, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> **
>>
>>
>> Hai Supriy,
>>
>> Asumsi :
>> Data di A2:A34 berisi data text.
>>
>> Untuk mencari modus pada data bertipe text antara lain dengan array
>> formula : (tekan CTRL SHIFT ENTER usai menulis formula)
>> =*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)*
>> *)*
>>
>> Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
>> menyertakan blank dalam komputasi modus, maka array formula di atas dapat
>> diberi pengkondisian seperti array formula berikut :
>> =*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
>> A2:A4 , 0 )* *)* *)* *)*
>>
>> Array formula di atas dapat menghasilkan error value ketika seluruh cell
>> A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
>> diubah menjadi :
>> =*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
>> A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
>> =*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
>> Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **,
>> "" )* -> semua versi
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/12/29 Supriyanto S <priyant37@gmail.com >
>>
>>> **
>>>
>>>
>>> Dear ALL,
>>>
>>> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
>>> mengclouse case yang sudah saya lontarkan ke forum ini.
>>> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para
>>> master
>>> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>>>
>>> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
>>> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
>>> jika ditemukan value/item blank.
>>>
>>> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>>>
>>> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>>>
>>> salam
>>> supriy
>>>
>>>
>>
>
>
kayanya ada yang salah deh...
pada array formula :
=*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Bagian countif-nya menganggap nullstring ada datanya.
Sebaiknya ganti bagian :
*CountIF( A2:A24 , "<>" ) *
dengan :
*sum( len( A2:A24 ) ) *
menjadi :
=*IF( **sum( len( A2:A24 ) ) ,* *Index( A2:A34 ,* *Mode(* * IF(
Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **, ""
)* -> semua versi
Mohon maaf atas kekhilafan yang terjadi.
Wassalam,
Kid.
2012/12/30 Supriyanto S <priyant37@gmail.
> **
>
>
> Selamat siang,
>
> Terima kasih mr Kid atas pencerahannya, pitunjuknya dah langsung saya
> aplikasikan.
> Case ini bisa diclouse. Dan semoga dihari berikut tidak bosan bosannya
> para master excel memberikan pencerahannya.
> Terima kasih
>
>
> Pada 30 Desember 2012 02:37, Mr. Kid <mr.nmkid@gmail.
>
> **
>>
>>
>> Hai Supriy,
>>
>> Asumsi :
>> Data di A2:A34 berisi data text.
>>
>> Untuk mencari modus pada data bertipe text antara lain dengan array
>> formula : (tekan CTRL SHIFT ENTER usai menulis formula)
>> =*Index( A2:A34 ,* *Mode(* *Match( A2:A4 , A2:A4 , 0 )* *)*
>> *)*
>>
>> Jika data pada A2:A34 didominasi oleh blank cell dan tidak ingin
>> menyertakan blank dalam komputasi modus, maka array formula di atas dapat
>> diberi pengkondisian seperti array formula berikut :
>> =*Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match( A2:A4 ,
>> A2:A4 , 0 )* *)* *)* *)*
>>
>> Array formula di atas dapat menghasilkan error value ketika seluruh cell
>> A2:A34 adalah blank ataupun nullstring. Untuk mengantisipasi error bisa
>> diubah menjadi :
>> =*IFError( **Index( A2:A34 ,* *Mode(* * IF( Len(A2:A4) , * *Match(
>> A2:A4 , A2:A4 , 0 )* *)* *)* *)* *,"")* -> xl2007 ke atas
>> =*IF( CountIF( A2:A24 , "<>" ) ,* *Index( A2:A34 ,* *Mode(* * IF(
>> Len(A2:A4) , * *Match( A2:A4 , A2:A4 , 0 )* *)* *)* *) **,
>> "" )* -> semua versi
>>
>> Wassalam,
>> Kid.
>>
>>
>> 2012/12/29 Supriyanto S <priyant37@gmail.
>>
>>> **
>>>
>>>
>>> Dear ALL,
>>>
>>> Untuk Admin dan master-master excel sebelumnya saya mohon ijin untuk
>>> mengclouse case yang sudah saya lontarkan ke forum ini.
>>> Dan ijinkan juga malam ini saya mohon pencerahan/bantuan kepada para
>>> master
>>> untuk membantu kesulitan saya dalam penerapan formula "MODE"
>>>
>>> Formula ini saya dapatkan dari postingan mr Kid ttg Formula hasil Voting
>>> tertanggal 3-8-2012, namun begitu saya coba terapkan saya ada kesulitan
>>> jika ditemukan value/item blank.
>>>
>>> Lebih jelasnya mohon dapat dilihat pada attachmentnya.
>>>
>>> Terima kasih sebelumnya atas pencerahan dan bantuannya.
>>>
>>> salam
>>> supriy
>>>
>>>
>>
>
>
Sat Dec 29, 2012 10:25 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Nanank,
Bagaimana jika dibuat urut saja dari 1 sampai 9999.
Wassalam,
Kid.
2012/12/29 Flow Nanank <flow.nanank@yahoo.co.id >
> **
>
>
> Dear Mr. Kid...
> Thank'z atas pencerahannya...
>
> benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti
> ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
> kenapa saya tdk kepikiran sampai ksna ya,,,
>
> lalu bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
> mohon bantuannya lg yaa pak...
>
> Thank'z...
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 29 Desember 2012 8:35
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> "kode produk terdiri dari 2 huruf dan angka 4 angka"
> >> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left(
> data_lama , 2 )
> >> disambung dengan spasi maka formula ditambah dengan bunyi & " "
> >> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999,
> maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
> >> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan
> :
> int( rand() * 9999 + 1 )
>
> Formula lengkap, misal data lama di A2 dan data baru di B2 :
> =Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000"
> ) -> xl2007 ke atas
> =Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000"
> ) -> semua versi Excel
>
> Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan
> bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
> formula bisa berupa
> =Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
> =Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin
> mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi
> terhadap hasil Rand() blabla
>
> Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas
> nilai acak sesuai kebutuhan)
> =*penyusun_karakter_1* & *penyusun_karakter_2*
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )*
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*
>
> Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia
> Left dalam formula di atas sana :
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )* &
> " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*& " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua
> versi Excel
>
> Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi
> antara data lama dengan baru maupun data baru dengan data baru lainnya.
> Biasanya pengubahan kode produk dari lama ke baru diikuti dengan
> penyusunan suatu format tertentu, *misal *karakter pertama untuk hal
> tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil
> pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
> Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang
> ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang
> dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/28 Flow Nanank <flow.nanank@yahoo.co.id >
>
> **
>
> Dear BeExceller,,
>
> Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
> kode produk terdiri dari 2 huruf dan angka 4 angka,,
>
>
> file terlampir...
>
> Thank'z
>
>
>
>
>
>
>
Bagaimana jika dibuat urut saja dari 1 sampai 9999.
Wassalam,
Kid.
2012/12/29 Flow Nanank <flow.nanank@
> **
>
>
> Dear Mr. Kid...
> Thank'z atas pencerahannya.
>
> benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti
> ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
> kenapa saya tdk kepikiran sampai ksna ya,,,
>
> lalu bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
> mohon bantuannya lg yaa pak...
>
> Thank'z...
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Sabtu, 29 Desember 2012 8:35
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> "kode produk terdiri dari 2 huruf dan angka 4 angka"
> >> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left(
> data_lama , 2 )
> >> disambung dengan spasi maka formula ditambah dengan bunyi & " "
> >> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999,
> maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
> >> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan
> :
> int( rand() * 9999 + 1 )
>
> Formula lengkap, misal data lama di A2 dan data baru di B2 :
> =Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000"
> ) -> xl2007 ke atas
> =Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000"
> ) -> semua versi Excel
>
> Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan
> bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
> formula bisa berupa
> =Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
> =Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin
> mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi
> terhadap hasil Rand() blabla
>
> Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas
> nilai acak sesuai kebutuhan)
> =*penyusun_karakter
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )*
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*
>
> Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia
> Left dalam formula di atas sana :
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )* &
> " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*& " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua
> versi Excel
>
> Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi
> antara data lama dengan baru maupun data baru dengan data baru lainnya.
> Biasanya pengubahan kode produk dari lama ke baru diikuti dengan
> penyusunan suatu format tertentu, *misal *karakter pertama untuk hal
> tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil
> pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
> Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang
> ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang
> dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/28 Flow Nanank <flow.nanank@
>
> **
>
> Dear BeExceller,,
>
> Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
> kode produk terdiri dari 2 huruf dan angka 4 angka,,
>
>
> file terlampir...
>
> Thank'z
>
>
>
>
>
>
>
Sat Dec 29, 2012 4:51 pm (PST) . Posted by:
"Flow Nanank" flow.nanank
Dear Mr. Kid,,,
saya sudah coba formula dr Mr. Kid, tetapi kenapa waktu di tekan " Enter " smua kode yg ada formulanya berubah nilai randomnya,,
jd stiap kali enter kode berubah truz,,
itu kenapa yaa pak,,??
Thank'z,...
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 30 Desember 2012 1:25
Judul: Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
Hai Nanank,
Bagaimana jika dibuat urut saja dari 1 sampai 9999.
Wassalam,
Kid.
2012/12/29 Flow Nanank <flow.nanank@yahoo.co.id >
>
>Dear Mr. Kid...
>Thank'z atas pencerahannya...
>
>
>benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
>kenapa saya tdk kepikiran sampai ksna ya,,,
>
>lalu
bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
>mohon bantuannya lg yaa pak...
>
>
>Thank'z...
>
>
>
>
>
>
>________________________________
> Dari: Mr. Kid <mr.nmkid@gmail.com >
>Kepada: belajar-excel@yahoogroups.com
>Dikirim: Sabtu, 29 Desember 2012 8:35
>Judul: Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
>
>
>Hai Nanank,
>
>"kode produk terdiri dari 2 huruf dan angka 4 angka"
>>> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left( data_lama , 2 )
>>> disambung dengan spasi maka formula ditambah dengan bunyi & " "
>>> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999, maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
>>> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan :
> int( rand() * 9999 + 1 )
>
>Formula lengkap, misal data lama di A2 dan data baru di B2 :
>=Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
>=Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua versi Excel
>
>Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
>formula bisa berupa
>=Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
>=Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi terhadap hasil Rand() blabla
>
>Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas nilai acak sesuai kebutuhan)
>=penyusun_karakter_1 & penyusun_karakter_2
>=Char( RandBetween( 65 , 90 ) ) & Char( RandBetween( 65 , 90 ) )
>=Char( Rand() * ( 90 - 65 ) + 65 ) & Char( Rand() * ( 90 - 65 ) + 65 )
>
>Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia Left dalam formula di atas sana :
>=Char( RandBetween( 65 , 90 ) ) & Char( RandBetween( 65 , 90 ) ) & " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
>=Char( Rand() * ( 90 - 65 ) + 65 ) & Char( Rand() * ( 90 - 65 ) + 65 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua versi Excel
>
>Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi antara data lama dengan baru maupun data baru dengan data baru lainnya.
>Biasanya pengubahan kode produk dari lama ke baru diikuti dengan penyusunan suatu format tertentu, misal karakter pertama untuk hal tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
>Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/12/28 Flow Nanank <flow.nanank@yahoo.co.id >
>
>
>>
>>Dear BeExceller,,
>>
>>
>>Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
>>kode produk terdiri dari 2 huruf dan angka 4 angka,,
>>
>>
>>
>>
>>file terlampir...
>>
>>
>>Thank'z
>>
>>
>>
>
>
>
saya sudah coba formula dr Mr. Kid, tetapi kenapa waktu di tekan " Enter " smua kode yg ada formulanya berubah nilai randomnya,,
jd stiap kali enter kode berubah truz,,
itu kenapa yaa pak,,??
Thank'z,...
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: belajar-excel@
Dikirim: Minggu, 30 Desember 2012 1:25
Judul: Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
Hai Nanank,
Bagaimana jika dibuat urut saja dari 1 sampai 9999.
Wassalam,
Kid.
2012/12/29 Flow Nanank <flow.nanank@
>
>Dear Mr. Kid...
>Thank'z atas pencerahannya.
>
>
>benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
>kenapa saya tdk kepikiran sampai ksna ya,,,
>
>lalu
bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
>mohon bantuannya lg yaa pak...
>
>
>Thank'z...
>
>
>
>
>
>
>___________
> Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: belajar-excel@
>Dikirim: Sabtu, 29 Desember 2012 8:35
>Judul: Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
>
>
>Hai Nanank,
>
>"kode produk terdiri dari 2 huruf dan angka 4 angka"
>>> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left( data_lama , 2 )
>>> disambung dengan spasi maka formula ditambah dengan bunyi & " "
>>> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999, maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
>>> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan :
> int( rand() * 9999 + 1 )
>
>Formula lengkap, misal data lama di A2 dan data baru di B2 :
>=Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
>=Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua versi Excel
>
>Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
>formula bisa berupa
>=Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
>=Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi terhadap hasil Rand() blabla
>
>Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas nilai acak sesuai kebutuhan)
>=penyusun_karakter
>=Char( RandBetween( 65 , 90 ) ) & Char( RandBetween( 65 , 90 ) )
>=Char( Rand() * ( 90 - 65 ) + 65 ) & Char( Rand() * ( 90 - 65 ) + 65 )
>
>Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia Left dalam formula di atas sana :
>=Char( RandBetween( 65 , 90 ) ) & Char( RandBetween( 65 , 90 ) ) & " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
>=Char( Rand() * ( 90 - 65 ) + 65 ) & Char( Rand() * ( 90 - 65 ) + 65 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua versi Excel
>
>Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi antara data lama dengan baru maupun data baru dengan data baru lainnya.
>Biasanya pengubahan kode produk dari lama ke baru diikuti dengan penyusunan suatu format tertentu, misal karakter pertama untuk hal tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
>Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
>Wassalam,
>Kid.
>
>
>
>
>2012/12/28 Flow Nanank <flow.nanank@
>
>
>>
>>Dear BeExceller,,
>>
>>
>>Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
>>kode produk terdiri dari 2 huruf dan angka 4 angka,,
>>
>>
>>
>>
>>file terlampir...
>>
>>
>>Thank'z
>>
>>
>>
>
>
>
Sat Dec 29, 2012 5:42 pm (PST) . Posted by:
"Jan Raisin"
Dear pak Nanang,
Fungsi Rand() dan RandBeween() akan selalu menghasilkan nilai yang berubah
pada saat terjadi kalkulasi pada sheet tersebut. Bagaimana caranya agar
tidak berubah?
1. Matikan fitur auto Calculate
2. Copas kode produk yang sudah ada sebagai Value
3. Jika akan membuat kode produk yang baru, lakukan kalkulasi secara
manual dengan cara menekan tombol F9, lalu kode yang ada dicopas Value lagi
4. Begitu seterusnya.
Cara paling umum adalah menggunakan nomor urut yang selalu bertambah 1
dengan kombinasi Text yang berubah berdasarkan kondisi tertentu. Misal;
AB001-1212-001-000001
AB001 = kode produksi (bisa menunjukkan lokasi negara, dan nomor pabrik
yang memproduksi)
1212 = tahun dan bulan produksi
001 = batch produksi (akan selalu bertambah 1)
000001 = nomor urut barang yang diproduksi dari pabrik tersebut (akan
selalu bertambah 1)
penggunaan kode seperti itu akan memudahkan manajemen untuk melakukan
analisa, audit, bahkan recall produk saat terjadi cacat produksi yang
terlanjur dijual ke konsumen.
Best Regard,
-Ms. Jan Raisin-
Pada 30 Desember 2012 07:51, Flow Nanank <flow.nanank@yahoo.co.id > menulis:
> **
>
>
> Dear Mr. Kid,,,
>
> saya sudah coba formula dr Mr. Kid, tetapi kenapa waktu di tekan " Enter "
> smua kode yg ada formulanya berubah nilai randomnya,,
> jd stiap kali enter kode berubah truz,,
> itu kenapa yaa pak,,??
>
>
> Thank'z,...
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 30 Desember 2012 1:25
>
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> Bagaimana jika dibuat urut saja dari 1 sampai 9999.
>
> Wassalam,
> Kid.
>
> 2012/12/29 Flow Nanank <flow.nanank@yahoo.co.id >
>
> **
>
> Dear Mr. Kid...
> Thank'z atas pencerahannya...
>
> benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti
> ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
> kenapa saya tdk kepikiran sampai ksna ya,,,
>
> lalu bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
> mohon bantuannya lg yaa pak...
>
> Thank'z...
>
>
> ------------------------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Sabtu, 29 Desember 2012 8:35
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> "kode produk terdiri dari 2 huruf dan angka 4 angka"
> >> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left(
> data_lama , 2 )
> >> disambung dengan spasi maka formula ditambah dengan bunyi & " "
> >> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999,
> maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
> >> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan
> :
> int( rand() * 9999 + 1 )
>
> Formula lengkap, misal data lama di A2 dan data baru di B2 :
> =Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000"
> ) -> xl2007 ke atas
> =Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000"
> ) -> semua versi Excel
>
> Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan
> bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
> formula bisa berupa
> =Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
> =Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin
> mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi
> terhadap hasil Rand() blabla
>
> Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas
> nilai acak sesuai kebutuhan)
> =*penyusun_karakter_1* & *penyusun_karakter_2*
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )*
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*
>
> Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia
> Left dalam formula di atas sana :
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )* &
> " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*& " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua
> versi Excel
>
> Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi
> antara data lama dengan baru maupun data baru dengan data baru lainnya.
> Biasanya pengubahan kode produk dari lama ke baru diikuti dengan
> penyusunan suatu format tertentu, *misal *karakter pertama untuk hal
> tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil
> pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
> Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang
> ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang
> dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/28 Flow Nanank <flow.nanank@yahoo.co.id >
>
> **
>
> Dear BeExceller,,
>
> Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
> kode produk terdiri dari 2 huruf dan angka 4 angka,,
>
>
> file terlampir...
>
> Thank'z
>
>
>
>
>
>
>
>
>
>
Fungsi Rand() dan RandBeween() akan selalu menghasilkan nilai yang berubah
pada saat terjadi kalkulasi pada sheet tersebut. Bagaimana caranya agar
tidak berubah?
1. Matikan fitur auto Calculate
2. Copas kode produk yang sudah ada sebagai Value
3. Jika akan membuat kode produk yang baru, lakukan kalkulasi secara
manual dengan cara menekan tombol F9, lalu kode yang ada dicopas Value lagi
4. Begitu seterusnya.
Cara paling umum adalah menggunakan nomor urut yang selalu bertambah 1
dengan kombinasi Text yang berubah berdasarkan kondisi tertentu. Misal;
AB001-1212-001-
AB001 = kode produksi (bisa menunjukkan lokasi negara, dan nomor pabrik
yang memproduksi)
1212 = tahun dan bulan produksi
001 = batch produksi (akan selalu bertambah 1)
000001 = nomor urut barang yang diproduksi dari pabrik tersebut (akan
selalu bertambah 1)
penggunaan kode seperti itu akan memudahkan manajemen untuk melakukan
analisa, audit, bahkan recall produk saat terjadi cacat produksi yang
terlanjur dijual ke konsumen.
Best Regard,
-Ms. Jan Raisin-
Pada 30 Desember 2012 07:51, Flow Nanank <flow.nanank@
> **
>
>
> Dear Mr. Kid,,,
>
> saya sudah coba formula dr Mr. Kid, tetapi kenapa waktu di tekan " Enter "
> smua kode yg ada formulanya berubah nilai randomnya,,
> jd stiap kali enter kode berubah truz,,
> itu kenapa yaa pak,,??
>
>
> Thank'z,...
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 30 Desember 2012 1:25
>
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> Bagaimana jika dibuat urut saja dari 1 sampai 9999.
>
> Wassalam,
> Kid.
>
> 2012/12/29 Flow Nanank <flow.nanank@
>
> **
>
> Dear Mr. Kid...
> Thank'z atas pencerahannya.
>
> benar sekali Mr. Kid, jika menggunakan medote acak tanpa ada acuan brarti
> ada byk kemungkinan terjadi data yg memiliki kode kembar,,,
> kenapa saya tdk kepikiran sampai ksna ya,,,
>
> lalu bagaiaman supaya tidak terjadi kode yg terulang untuk stiap produk ???
> mohon bantuannya lg yaa pak...
>
> Thank'z...
>
>
> ------------
> *Dari:* Mr. Kid <mr.nmkid@gmail.
> *Kepada:* belajar-excel@
> *Dikirim:* Sabtu, 29 Desember 2012 8:35
> *Judul:* Re: [belajar-excel] Cara membuat kode produk baru dg nilai acak
>
>
> Hai Nanank,
>
> "kode produk terdiri dari 2 huruf dan angka 4 angka"
> >> Dua huruf pertama adalah milik kode lama, maka bisa dengan fungsi Left(
> data_lama , 2 )
> >> disambung dengan spasi maka formula ditambah dengan bunyi & " "
> >> diikuti selalu 4 angka acak yang artinya minimal 1 dan maksimal 9999,
> maka formula diberi ekspresi pembuat 4 angka :
> & text( randbetween( 1 , 9999 ) , "0000" )
> >> jika menggunakan xl2003 kebawah, maka bagian RandBetween diganti dengan
> :
> int( rand() * 9999 + 1 )
>
> Formula lengkap, misal data lama di A2 dan data baru di B2 :
> =Left( A2 , 2 ) & " " & Text( RandBetween( 1 , 9999 ) , "0000"
> ) -> xl2007 ke atas
> =Left( A2 , 2 ) & " " & Text( Int( Rand() * 9999 + 1 ) , "0000"
> ) -> semua versi Excel
>
> Penyusun acak huruf (1 huruf -> A-Z [capital]) bisa dilakukan dengan
> bantuan fungsi Char. Kode ASCII huruf A dimulai dari nomor 65, dan Z di 90
> formula bisa berupa
> =Char( RandBetween( 65 , 90 ) ) -> xl2007 ke atas
> =Char( Rand() * ( 90 - 65 ) + 65 ) -> semua versi :: bila ingin
> mendapatkan bilangan bulat, sertakan fungsi Int sebagai proses komputasi
> terhadap hasil Rand() blabla
>
> Untuk menyusun 2 karakter acak : (gunakan sesuai kebutuhan dan ubah batas
> nilai acak sesuai kebutuhan)
> =*penyusun_karakter
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )*
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*
>
> Akan digabungkan dengan formula penyusun angka sebagai pengganti bagia
> Left dalam formula di atas sana :
> =*Char( RandBetween( 65 , 90 ) )* & *Char( RandBetween( 65 , 90 ) )* &
> " " & Text( RandBetween( 1 , 9999 ) , "0000" ) -> xl2007 ke atas
> =*Char( Rand() * ( 90 - 65 ) + 65 ) *& *Char( Rand() * ( 90 - 65 ) + 65 )*& " " & Text( Int( Rand() * 9999 + 1 ) , "0000" ) -> semua
> versi Excel
>
> Karena kriterianya hanya acak, maka ada potensi terjadinya duplikasi
> antara data lama dengan baru maupun data baru dengan data baru lainnya.
> Biasanya pengubahan kode produk dari lama ke baru diikuti dengan
> penyusunan suatu format tertentu, *misal *karakter pertama untuk hal
> tertentu, dst sampai 2 angka terakhir menunjukkan varian produk. Dan hasil
> pengubahan itu akan membentuk sebuah peta data transformasi kode produk.
>
> Untuk pembuatan kode produk baru, umumnya adalah mengisi area kosong yang
> ada. Jika kode produk memiliki suatu format tertentu, maka area kosong yang
> dimaksud adalah area kosong di setiap part kode produk yang sesuai.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/28 Flow Nanank <flow.nanank@
>
> **
>
> Dear BeExceller,,
>
> Mohon bantuannya untuk membuat kode produk baru dg nilai acak...
> kode produk terdiri dari 2 huruf dan angka 4 angka,,
>
>
> file terlampir...
>
> Thank'z
>
>
>
>
>
>
>
>
>
>
Sat Dec 29, 2012 11:06 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba ubah isi event change cbonama dengan :
Dim r As Long
If Cbonama.Text <> UCase$(Cbonama.Text) Then
Cbonama.Text = UCase$(Cbonama.Text)
Exit Sub
End If
Err.Clear
On Error Resume Next
r = Application.WorksheetFunction.Match(Cbonama.Text,
MemMaster.Resize(, 1).Offset(0, 1), 0)
If Err.Number <> 0 Then
Err.Clear
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
lNoRec = r
txtALAMAT.Value = MemMaster(r, 3)
txtJURUSAN.Value = MemMaster(r, 4)
txtTGLDAFTAR.Value = MemMaster(r, 5)
txtTGLTES.Value = MemMaster(r, 6)
txtPETUGASINPUT.Value = MemMaster(r, 7)
txtTANGGALINPUT.Value = MemMaster(r, 8)
Wassalam,
Kid.
2012/12/29 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller,
> Pak Slamat,
>
> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
> Mohon dapat ditanggapi.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
> ------------------------------
> *Dari:* Slamet <slametharto@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Jumat, 28 Desember 2012 21:34
> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>
>
> Dear Pak Harry
>
> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan contoh
> tersebut be-exceller lain bisa membantu menjawab dgn melihat struktur
> datanya.
>
>
> Wassalam
>
>
> On 12/28/2012 3:01 PM, Harry wrote:
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian
> ComboBox dengan format isian lengkap baru kolom di bawahnya bisa muncul.
> Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya
> tidak muncul.
>
> Rumus yang saya gunakan selama ini adalah sbb:
>
> Private Sub UserForm_Initialize()
> Dim I As Long, TbHeigh As Long, TbWidth
> Application.EnableEvents = False
> With Cbonama
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.EnableEvents = True
> End Sub
>
> Private Sub Cbonama_Change()
> Dim r As Integer
> If Cbonama.ListIndex > -1 Then
> r = Cbonama.ListIndex + 1
> If r > 0 Then
> txtalamat.Value = MemMaster(r, 2)
> txtkota.Value = MemMaster(r, 3)
> End If
> End If
> End Sub
>
>
> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
> otomatis muncul isian "ALAMAT" & "KOTA".
>
> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian
> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
>
>
Dim r As Long
If Cbonama.Text <> UCase$(Cbonama.
Cbonama.Text = UCase$(Cbonama.
Exit Sub
End If
Err.Clear
On Error Resume Next
r = Application.
MemMaster.Resize(
If Err.Number <> 0 Then
Err.Clear
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
lNoRec = r
txtALAMAT.Value = MemMaster(r, 3)
txtJURUSAN.Value = MemMaster(r, 4)
txtTGLDAFTAR.
txtTGLTES.Value = MemMaster(r, 6)
txtPETUGASINPUT.
txtTANGGALINPUT.
Wassalam,
Kid.
2012/12/29 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
> Pak Slamat,
>
> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
> Mohon dapat ditanggapi.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
> ------------
> *Dari:* Slamet <slametharto@
> *Kepada:* belajar-excel@
> *Dikirim:* Jumat, 28 Desember 2012 21:34
> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>
>
> Dear Pak Harry
>
> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan contoh
> tersebut be-exceller lain bisa membantu menjawab dgn melihat struktur
> datanya.
>
>
> Wassalam
>
>
> On 12/28/2012 3:01 PM, Harry wrote:
>
>
> Dear BeExceller,
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian
> ComboBox dengan format isian lengkap baru kolom di bawahnya bisa muncul.
> Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya
> tidak muncul.
>
> Rumus yang saya gunakan selama ini adalah sbb:
>
> Private Sub UserForm_Initialize
> Dim I As Long, TbHeigh As Long, TbWidth
> Application.
> With Cbonama
> .ColumnCount = 2
> .BoundColumn = 1
> For I = 1 To TbHeigh
> .AddItem
> .List(I - 1, 0) = MemMaster(I, 2)
> Next I
> End With
> Application.
> End Sub
>
> Private Sub Cbonama_Change(
> Dim r As Integer
> If Cbonama.ListIndex > -1 Then
> r = Cbonama.ListIndex + 1
> If r > 0 Then
> txtalamat.Value = MemMaster(r, 2)
> txtkota.Value = MemMaster(r, 3)
> End If
> End If
> End Sub
>
>
> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
> otomatis muncul isian "ALAMAT" & "KOTA".
>
> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian
> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>
> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>
> Terima kasih & Wassalam,
>
>
> Harry
>
>
>
Sat Dec 29, 2012 11:10 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Ada yang lupa.
Berikut ini lengkapnya :
1. Ubah isi properti cbonama bernama MatchEntry menjadi 2 -
fmMatchentrynone atau sebangsanya
2. Ganti isi event change cbonama dengan :
Dim r As Long
If Cbonama.Text <> UCase$(Cbonama.Text) Then
Cbonama.Text = UCase$(Cbonama.Text)
Exit Sub
End If
Err.Clear
On Error Resume Next
r = Application.WorksheetFunction.Match(Cbonama.Text,
MemMaster.Resize(, 1).Offset(0, 1), 0)
If Err.Number <> 0 Then
Err.Clear
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
lNoRec = r
txtALAMAT.Value = MemMaster(r, 3)
txtJURUSAN.Value = MemMaster(r, 4)
txtTGLDAFTAR.Value = MemMaster(r, 5)
txtTGLTES.Value = MemMaster(r, 6)
txtPETUGASINPUT.Value = MemMaster(r, 7)
txtTANGGALINPUT.Value = MemMaster(r, 8)
Wassalam,
Kid.
2012/12/30 Mr. Kid <mr.nmkid@gmail.com >
> Coba ubah isi event change cbonama dengan :
> Dim r As Long
>
> If Cbonama.Text <> UCase$(Cbonama.Text) Then
> Cbonama.Text = UCase$(Cbonama.Text)
> Exit Sub
> End If
>
> Err.Clear
> On Error Resume Next
> r = Application.WorksheetFunction.Match(Cbonama.Text,
> MemMaster.Resize(, 1).Offset(0, 1), 0)
> If Err.Number <> 0 Then
> Err.Clear
> On Error GoTo 0
> Exit Sub
> End If
> On Error GoTo 0
>
> lNoRec = r
> txtALAMAT.Value = MemMaster(r, 3)
> txtJURUSAN.Value = MemMaster(r, 4)
> txtTGLDAFTAR.Value = MemMaster(r, 5)
> txtTGLTES.Value = MemMaster(r, 6)
> txtPETUGASINPUT.Value = MemMaster(r, 7)
> txtTANGGALINPUT.Value = MemMaster(r, 8)
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/29 Harry <hariansyahptk@yahoo.com >
>
>> **
>>
>>
>> Dear BeExceller,
>> Pak Slamat,
>>
>> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
>> Mohon dapat ditanggapi.
>>
>> Terima kasih & Wassalam,
>>
>>
>> Harry
>>
>> ------------------------------
>> *Dari:* Slamet <slametharto@gmail.com >
>> *Kepada:* belajar-excel@yahoogroups.com
>> *Dikirim:* Jumat, 28 Desember 2012 21:34
>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>
>>
>> Dear Pak Harry
>>
>> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan contoh
>> tersebut be-exceller lain bisa membantu menjawab dgn melihat struktur
>> datanya.
>>
>>
>> Wassalam
>>
>>
>> On 12/28/2012 3:01 PM, Harry wrote:
>>
>>
>> Dear BeExceller,
>>
>> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian
>> ComboBox dengan format isian lengkap baru kolom di bawahnya bisa muncul.
>> Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya
>> tidak muncul.
>>
>> Rumus yang saya gunakan selama ini adalah sbb:
>>
>> Private Sub UserForm_Initialize()
>> Dim I As Long, TbHeigh As Long, TbWidth
>> Application.EnableEvents = False
>> With Cbonama
>> .ColumnCount = 2
>> .BoundColumn = 1
>> For I = 1 To TbHeigh
>> .AddItem
>> .List(I - 1, 0) = MemMaster(I, 2)
>> Next I
>> End With
>> Application.EnableEvents = True
>> End Sub
>>
>> Private Sub Cbonama_Change()
>> Dim r As Integer
>> If Cbonama.ListIndex > -1 Then
>> r = Cbonama.ListIndex + 1
>> If r > 0 Then
>> txtalamat.Value = MemMaster(r, 2)
>> txtkota.Value = MemMaster(r, 3)
>> End If
>> End If
>> End Sub
>>
>>
>> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
>> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
>> otomatis muncul isian "ALAMAT" & "KOTA".
>>
>> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
>> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian
>> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>>
>> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>>
>> Terima kasih & Wassalam,
>>
>>
>> Harry
>>
>>
>>
>
Berikut ini lengkapnya :
1. Ubah isi properti cbonama bernama MatchEntry menjadi 2 -
fmMatchentrynone atau sebangsanya
2. Ganti isi event change cbonama dengan :
Dim r As Long
If Cbonama.Text <> UCase$(Cbonama.
Cbonama.Text = UCase$(Cbonama.
Exit Sub
End If
Err.Clear
On Error Resume Next
r = Application.
MemMaster.Resize(
If Err.Number <> 0 Then
Err.Clear
On Error GoTo 0
Exit Sub
End If
On Error GoTo 0
lNoRec = r
txtALAMAT.Value = MemMaster(r, 3)
txtJURUSAN.Value = MemMaster(r, 4)
txtTGLDAFTAR.
txtTGLTES.Value = MemMaster(r, 6)
txtPETUGASINPUT.
txtTANGGALINPUT.
Wassalam,
Kid.
2012/12/30 Mr. Kid <mr.nmkid@gmail.
> Coba ubah isi event change cbonama dengan :
> Dim r As Long
>
> If Cbonama.Text <> UCase$(Cbonama.
> Cbonama.Text = UCase$(Cbonama.
> Exit Sub
> End If
>
> Err.Clear
> On Error Resume Next
> r = Application.
> MemMaster.Resize(
> If Err.Number <> 0 Then
> Err.Clear
> On Error GoTo 0
> Exit Sub
> End If
> On Error GoTo 0
>
> lNoRec = r
> txtALAMAT.Value = MemMaster(r, 3)
> txtJURUSAN.Value = MemMaster(r, 4)
> txtTGLDAFTAR.
> txtTGLTES.Value = MemMaster(r, 6)
> txtPETUGASINPUT.
> txtTANGGALINPUT.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/29 Harry <hariansyahptk@
>
>> **
>>
>>
>> Dear BeExceller,
>> Pak Slamat,
>>
>> Bersama ini saya kirimkan lampiran sebagai bahan informasi tambahan.
>> Mohon dapat ditanggapi.
>>
>> Terima kasih & Wassalam,
>>
>>
>> Harry
>>
>> ------------
>> *Dari:* Slamet <slametharto@
>> *Kepada:* belajar-excel@
>> *Dikirim:* Jumat, 28 Desember 2012 21:34
>> *Judul:* Re: [belajar-excel] ComboBox harus di isi lengkap
>>
>>
>> Dear Pak Harry
>>
>> Semoga berkenan menyertakan lampiran sebagai contoh, karena dengan contoh
>> tersebut be-exceller lain bisa membantu menjawab dgn melihat struktur
>> datanya.
>>
>>
>> Wassalam
>>
>>
>> On 12/28/2012 3:01 PM, Harry wrote:
>>
>>
>> Dear BeExceller,
>>
>> Mohon informasi dari rekan-rekan BeExceller bagaimana caranya pengisian
>> ComboBox dengan format isian lengkap baru kolom di bawahnya bisa muncul.
>> Dan ika isian ComboBoxnya tidak lengkap atau salah, maka kolom dibawahnya
>> tidak muncul.
>>
>> Rumus yang saya gunakan selama ini adalah sbb:
>>
>> Private Sub UserForm_Initialize
>> Dim I As Long, TbHeigh As Long, TbWidth
>> Application.
>> With Cbonama
>> .ColumnCount = 2
>> .BoundColumn = 1
>> For I = 1 To TbHeigh
>> .AddItem
>> .List(I - 1, 0) = MemMaster(I, 2)
>> Next I
>> End With
>> Application.
>> End Sub
>>
>> Private Sub Cbonama_Change(
>> Dim r As Integer
>> If Cbonama.ListIndex > -1 Then
>> r = Cbonama.ListIndex + 1
>> If r > 0 Then
>> txtalamat.Value = MemMaster(r, 2)
>> txtkota.Value = MemMaster(r, 3)
>> End If
>> End If
>> End Sub
>>
>>
>> Dengan mengguankan rumus tersebut diatas, jika saya mengekik huruf "H"
>> pada ComboBox, maka kolom otomatis muncul "HARRY" dan kolom di bawahnya
>> otomatis muncul isian "ALAMAT" & "KOTA".
>>
>> Yang saya inginkan adalah isian ComboBox harus di isi lengkap. Mis.
>> "HARRY" maka kolom dibawahnya otomatis muncul "ALAMAT" & "KOTA". Jika isian
>> ComboBox tidak lengkap maka kolom dibawahnya tidak terisi.
>>
>> Mohon bantuan rekan-rekan BeExceller akan hal tersebut.
>>
>> Terima kasih & Wassalam,
>>
>>
>> Harry
>>
>>
>>
>
Sat Dec 29, 2012 11:15 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pak Harry,
No. 1. Lihat posting berikut :
http://tech.groups.yahoo.com/group/belajar-excel/message/21576
No. 2. Error disebabkan karena nilai yang akan dipasang pada object
dtpicker tersebut memenuhi salah satu dari kondisi berikut :
A. Kurang dari nilai properti MinDate milik dtPicker
B. Lebih dari nilai properti MaxDate milik dtPicker
Pastikan nilai yang akan dipasang adalah pada rentang MinDate dan MaxDate
milik dtPicker.
Wassalam,
Kid.
2012/12/29 Harry <hariansyahptk@yahoo.com >
> **
>
>
> Dear BeExceller,
>
> Saya mencoba merevisi Workbook yang telah saya buat karena ada beberapa
> kendala dan error.
> Adapun situasi akan permasalahan tersebut adalah sebagai berikut:
> 1. Saya menggunakan ComboBox (Cbonama) yang apabila ComboBox tersebut saya
> input dengan huruf pertama (Mis. "H"), maka otomatis muncul nama-nama yang
> berabjad pertama "H" yang diikuti dengan kolom-kolom isian dibawahnya
> sesuai database. Pertanyaan saya adalah: Bagaimana caranya supaya pada
> ComboBox tersebut tidak memunculkan nama-nama berabjad dasar "H" jika saya
> hanya menginput huruf "H". Yang saya inginkan adalah penginputan ComboBox
> pada kolom Cbonama harus lengkap dan benar sesuai dengan data yang telah
> tersimpan pada database.
>
> 2. Tidak berkaitan dengan pertanyaan No 1 diatas, Dalam pengeditan data
> yang telah di input, saya menggunakan ComboBox yang didalamnya ada kolom
> DTPicker dengan nama "TANGGALMASUK". Apabila ComboBox tersebut sudah saya
> isi, maka otomatis muncul data-data pada kolom dibawah ComboBox tersebut
> sesuai database. Tapi jika saya menggunakan tombol panah atas atau panah
> bawah (pada keyboard) maka muncul tampilan sbb:
> Run-time error '35773':
> A data was specified that does not fall within the Mindate and Maxdate
> properties.
>
> Jika informasi Run-time error tersebut saya klik tombol "Debug", maka
> hasilnya DTPicker dengan nama "TANGGALMASUK.Value = memMaster (r, 3)"
> terblok warna kuning.
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana pemecahan akan
> permasalan Run-time error tersebut.
>
> Sebelum dan sesudahnya saya ucapkan banyak terima kasih atas informasi dan
> solusi dari rekan-rekan BeExceller sekalian.
>
> Wassalam,
>
>
> Harry
>
> _
>
>
No. 1. Lihat posting berikut :
http://tech.
No. 2. Error disebabkan karena nilai yang akan dipasang pada object
dtpicker tersebut memenuhi salah satu dari kondisi berikut :
A. Kurang dari nilai properti MinDate milik dtPicker
B. Lebih dari nilai properti MaxDate milik dtPicker
Pastikan nilai yang akan dipasang adalah pada rentang MinDate dan MaxDate
milik dtPicker.
Wassalam,
Kid.
2012/12/29 Harry <hariansyahptk@
> **
>
>
> Dear BeExceller,
>
> Saya mencoba merevisi Workbook yang telah saya buat karena ada beberapa
> kendala dan error.
> Adapun situasi akan permasalahan tersebut adalah sebagai berikut:
> 1. Saya menggunakan ComboBox (Cbonama) yang apabila ComboBox tersebut saya
> input dengan huruf pertama (Mis. "H"), maka otomatis muncul nama-nama yang
> berabjad pertama "H" yang diikuti dengan kolom-kolom isian dibawahnya
> sesuai database. Pertanyaan saya adalah: Bagaimana caranya supaya pada
> ComboBox tersebut tidak memunculkan nama-nama berabjad dasar "H" jika saya
> hanya menginput huruf "H". Yang saya inginkan adalah penginputan ComboBox
> pada kolom Cbonama harus lengkap dan benar sesuai dengan data yang telah
> tersimpan pada database.
>
> 2. Tidak berkaitan dengan pertanyaan No 1 diatas, Dalam pengeditan data
> yang telah di input, saya menggunakan ComboBox yang didalamnya ada kolom
> DTPicker dengan nama "TANGGALMASUK"
> isi, maka otomatis muncul data-data pada kolom dibawah ComboBox tersebut
> sesuai database. Tapi jika saya menggunakan tombol panah atas atau panah
> bawah (pada keyboard) maka muncul tampilan sbb:
> Run-time error '35773':
> A data was specified that does not fall within the Mindate and Maxdate
> properties.
>
> Jika informasi Run-time error tersebut saya klik tombol "Debug", maka
> hasilnya DTPicker dengan nama "TANGGALMASUK.
> terblok warna kuning.
>
> Mohon informasi dari rekan-rekan BeExceller bagaimana pemecahan akan
> permasalan Run-time error tersebut.
>
> Sebelum dan sesudahnya saya ucapkan banyak terima kasih atas informasi dan
> solusi dari rekan-rekan BeExceller sekalian.
>
> Wassalam,
>
>
> Harry
>
> _
>
>
Sat Dec 29, 2012 11:45 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Andree,
Coba ubah uraian dan sandi pada file lampiran di posting
http://tech.groups.yahoo.com/group/belajar-excel/message/21436
(file lampiran bisa diunduh di :
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Form-Data-td5714220.html
)
Kemudian tambah dan ubah pengubah tanda negatif positif yang diperlukan
menggunakan record macro use relative references.
Wassalam,
Kid.
2012/12/27 Andre Rahmaidy Teeza <andre_teeza_bn@yahoo.com >
> **
>
>
> Sore Master Exceller
>
> terima kasih sebelumnya to Mr. Kid atas petunjuknya belajar tentang macro
> exel. saya mau tanya lagi Mr. gimana proses macronya untuk pos Laporan laba
> Rugi yang sebelumnya bergabung di sheet FORM secara otomatis pindah ke
> sheet lain (sheet RL), ketika saya klik tombol isi data (file terlampir).
>
> Wasalam
>
> Andree
>
> --- Mods ---
> Mohon tidak menyertakan akun selain milis Belajar-Excel pada alamat tujuan
> email.
> ------------
>
>
Coba ubah uraian dan sandi pada file lampiran di posting
http://tech.
(file lampiran bisa diunduh di :
http://milis-
)
Kemudian tambah dan ubah pengubah tanda negatif positif yang diperlukan
menggunakan record macro use relative references.
Wassalam,
Kid.
2012/12/27 Andre Rahmaidy Teeza <andre_teeza_
> **
>
>
> Sore Master Exceller
>
> terima kasih sebelumnya to Mr. Kid atas petunjuknya belajar tentang macro
> exel. saya mau tanya lagi Mr. gimana proses macronya untuk pos Laporan laba
> Rugi yang sebelumnya bergabung di sheet FORM secara otomatis pindah ke
> sheet lain (sheet RL), ketika saya klik tombol isi data (file terlampir).
>
> Wasalam
>
> Andree
>
> --- Mods ---
> Mohon tidak menyertakan akun selain milis Belajar-Excel pada alamat tujuan
> email.
> ------------
>
>
Sat Dec 29, 2012 1:57 pm (PST) . Posted by:
"Adi" abduh_suryadi
Assalamu'alaikum Wr. Wb.
Rekan-rekan Master, mohon bantuannya dalam pembuatan soal ujian pilihan ganda di Excel. Saya mempunyai satu file soal di excel. 1 sheet dalam workbook memiliki 50 soal. masing-masing soal membutuhkan 6 baris/row (1 baris soal, 4 baris pilihan abcd, 1 baris tempat tulis jawaban).
1. bagaimana cara mengacak soal-soal tersebut sehingga menjadi beberapa paket soal?
2. jika ada gambar dalam soal, apakah bisa diacak?
Terima kasih banyak Master.
Wassalamu'alaikum Wr. Wb.
Rekan-rekan Master, mohon bantuannya dalam pembuatan soal ujian pilihan ganda di Excel. Saya mempunyai satu file soal di excel. 1 sheet dalam workbook memiliki 50 soal. masing-masing soal membutuhkan 6 baris/row (1 baris soal, 4 baris pilihan abcd, 1 baris tempat tulis jawaban).
1. bagaimana cara mengacak soal-soal tersebut sehingga menjadi beberapa paket soal?
2. jika ada gambar dalam soal, apakah bisa diacak?
Terima kasih banyak Master.
Wassalamu'alaikum Wr. Wb.
Sat Dec 29, 2012 5:16 pm (PST) . Posted by:
"Jan Raisin"
Dear pak Hendra,
Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain
dengan hierarki yang bertingkat.
Susunannya adalah begini:
di dalam Excel ada objek yang namanya Workbook,
di dalam Workbook ada objek yang namanya Worksheet (Sheet)
di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
kalo dalam sehari-hari bisa dimisalkan sebagai:
Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah
(Workbook)
si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang
namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak biologis
(namanya Range) ada juga anak angkat (namanya Chart, Shape, Command Botton
dll)
Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang
modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde
(sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan
sesuatu "Hei kamu Fulan, sini !" => Columns("A:E").select
Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika
memanggilnya melalui dari hierarki yang lebih tinggi.
Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil anaknya
si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu melalui
si pakde
with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
' ini yang pekerjaan yang diminta dilakukan
end with
kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si pakde
tentu saja si pakde sendiri yang akan akan menegur anaknya.
atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus
anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1
perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui
orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah
melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module)
berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton
dll) melalui katabelece ( Call Module1, ini contoh katabelecenya).
Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu
objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin
perintah.Select dihindari
misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke
sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
with sheet2
.range("a1:e5").copy sheet1.range("a1")
end with
Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
Best Regard,
-Ms. Jan Raisin-
2012/12/29 agesthahendra@ymail.com <agesthahendra@ymail.com >
> **
>
>
> Dear Be-exceler,..
>
> Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
> Sheets("Sheet2").Select
> Columns("A:E").Select
>
> mengapa terjadi erorr :
>
> "Select Method of Range Failed" dengan baris ke 2 : Columns("A:E").Select
> tersorot,..
>
> bagaimana caranya menghindari erorr tsb..?
>
> Trima kasih
> Regards
> Hendra
>
>
>
Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain
dengan hierarki yang bertingkat.
Susunannya adalah begini:
di dalam Excel ada objek yang namanya Workbook,
di dalam Workbook ada objek yang namanya Worksheet (Sheet)
di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
kalo dalam sehari-hari bisa dimisalkan sebagai:
Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah
(Workbook)
si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang
namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak biologis
(namanya Range) ada juga anak angkat (namanya Chart, Shape, Command Botton
dll)
Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang
modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde
(sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan
sesuatu "Hei kamu Fulan, sini !" => Columns("A:E"
Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika
memanggilnya melalui dari hierarki yang lebih tinggi.
Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil anaknya
si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu melalui
si pakde
with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
' ini yang pekerjaan yang diminta dilakukan
end with
kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si pakde
tentu saja si pakde sendiri yang akan akan menegur anaknya.
atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus
anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1
perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui
orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah
melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module)
berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton
dll) melalui katabelece ( Call Module1, ini contoh katabelecenya)
Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu
objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin
perintah.Select dihindari
misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke
sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
with sheet2
.range("a1:e5"
end with
Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
Best Regard,
-Ms. Jan Raisin-
2012/12/29 agesthahendra@
> **
>
>
> Dear Be-exceler,.
>
> Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
> Sheets("Sheet2"
> Columns("A:E"
>
> mengapa terjadi erorr :
>
> "Select Method of Range Failed" dengan baris ke 2 : Columns("A:E"
> tersorot,..
>
> bagaimana caranya menghindari erorr tsb..?
>
> Trima kasih
> Regards
> Hendra
>
>
>
Sat Dec 29, 2012 9:06 pm (PST) . Posted by:
"Agestha Hendra" agesthahendra@ymail.com
Wah,,terima kasih banyak Mbak/mas Jan Raisin,,,penjelasannya sangat menambah pengetahuan,,,
Bisa minta tolong gimana VBA-nya : mengcopy suatu range di Sheet1 --- Paste Special Value ke sel A1 di Sheet2 (tapi Sheet2 terprotect dgn password : PWD) ---
kemudian kembali memprotect Sheet2...
Regards
Hendra
________________________________
Dari: Jan Raisin <miss.jan.raisin@gmail.com >
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 30 Desember 2012 8:16
Judul: Re: [belajar-excel] Select Method of Range Failed
Dear pak Hendra,
Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain dengan hierarki yang bertingkat.
Susunannya adalah begini:
di dalam Excel ada objek yang namanya Workbook,
di dalam Workbook ada objek yang namanya Worksheet (Sheet)
di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
kalo dalam sehari-hari bisa dimisalkan sebagai:
Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah (Workbook)
si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak biologis (namanya Range) ada juga anak angkat (namanya Chart, Shape, Command Botton dll)
Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde (sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan sesuatu "Hei kamu Fulan, sini !" => Columns("A:E").select
Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika memanggilnya melalui dari hierarki yang lebih tinggi.
Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil anaknya si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu melalui si pakde
with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
' ini yang pekerjaan yang diminta dilakukan
end with
kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si pakde tentu saja si pakde sendiri yang akan akan menegur anaknya.
atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1 perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module) berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton dll) melalui katabelece ( Call Module1, ini contoh katabelecenya).
Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin perintah.Select dihindari
misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
with sheet2
.range("a1:e5").copy sheet1.range("a1")
end with
Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
Best Regard,
-Ms. Jan Raisin-
2012/12/29 agesthahendra@ymail.com <agesthahendra@ymail.com >
>
>Dear Be-exceler,..
>
>Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
>Sheets("Sheet2").Select
>Columns("A:E").Select
>
>mengapa terjadi erorr :
>
>"Select Method of Range Failed" dengan baris ke 2 : Columns("A:E").Select tersorot,..
>
>bagaimana caranya menghindari erorr tsb..?
>
>Trima kasih
>Regards
>Hendra
>
>
Bisa minta tolong gimana VBA-nya : mengcopy suatu range di Sheet1 --- Paste Special Value ke sel A1 di Sheet2 (tapi Sheet2 terprotect dgn password : PWD) ---
kemudian kembali memprotect Sheet2...
Regards
Hendra
____________
Dari: Jan Raisin <miss.jan.raisin@
Kepada: belajar-excel@
Dikirim: Minggu, 30 Desember 2012 8:16
Judul: Re: [belajar-excel] Select Method of Range Failed
Dear pak Hendra,
Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain dengan hierarki yang bertingkat.
Susunannya adalah begini:
di dalam Excel ada objek yang namanya Workbook,
di dalam Workbook ada objek yang namanya Worksheet (Sheet)
di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
kalo dalam sehari-hari bisa dimisalkan sebagai:
Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah (Workbook)
si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak biologis (namanya Range) ada juga anak angkat (namanya Chart, Shape, Command Botton dll)
Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde (sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan sesuatu "Hei kamu Fulan, sini !" => Columns("A:E"
Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika memanggilnya melalui dari hierarki yang lebih tinggi.
Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil anaknya si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu melalui si pakde
with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
' ini yang pekerjaan yang diminta dilakukan
end with
kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si pakde tentu saja si pakde sendiri yang akan akan menegur anaknya.
atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1 perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module) berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton dll) melalui katabelece ( Call Module1, ini contoh katabelecenya)
Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin perintah.Select dihindari
misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
with sheet2
.range("a1:e5"
end with
Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
Best Regard,
-Ms. Jan Raisin-
2012/12/29 agesthahendra@
>
>Dear Be-exceler,.
>
>Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
>Sheets("Sheet2"
>Columns("A:
>
>mengapa terjadi erorr :
>
>"Select Method of Range Failed" dengan baris ke 2 : Columns("A:E"
>
>bagaimana caranya menghindari erorr tsb..?
>
>Trima kasih
>Regards
>Hendra
>
>
Sat Dec 29, 2012 9:46 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Hendra,
Bagaimana kalau bagian :
Sheets("Sheet2").Select
Columns("A:E").Select
diganti menjadi :
with Sheets("Sheet2")
.visible=xlsheetvisible
.unprotect "PWD"
'copas langsung
sheets("sheet1").range("a1:x17").copy
.range("a1").pastespecial xlpastevalues
'mau ke sheet2
.activate
.range("a1:e1").entirecolumn.select 'biasanya bisa dengan
columns juga
.protect "PWD" , userinterfaceonly:=true
'.visible=xlsheetveryhidden '-> jika ingin disembunyikan, aktifkan
baris ini dan ndak perlu aktifasi maupun select cell di sheet2
end with
Wassalam,
Kid.
2012/12/30 Agestha Hendra <agesthahendra@ymail.com >
> **
>
>
> Wah,,terima kasih banyak Mbak/mas Jan Raisin,,,penjelasannya sangat
> menambah pengetahuan,,,
>
> Bisa minta tolong gimana VBA-nya : mengcopy suatu range di Sheet1 ---
> Paste Special Value ke sel A1 di Sheet2 (tapi Sheet2 terprotect dgn
> password : PWD) ---
> kemudian kembali memprotect Sheet2...
>
> Regards
> Hendra
> ------------------------------
> *Dari:* Jan Raisin <miss.jan.raisin@gmail.com >
> *Kepada:* belajar-excel@yahoogroups.com
> *Dikirim:* Minggu, 30 Desember 2012 8:16
> *Judul:* Re: [belajar-excel] Select Method of Range Failed
>
>
> Dear pak Hendra,
>
> Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain
> dengan hierarki yang bertingkat.
> Susunannya adalah begini:
>
> di dalam Excel ada objek yang namanya Workbook,
> di dalam Workbook ada objek yang namanya Worksheet (Sheet)
> di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
>
> kalo dalam sehari-hari bisa dimisalkan sebagai:
> Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah
> (Workbook)
> si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang
> namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
> si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak
> biologis (namanya Range) ada juga anak angkat (namanya Chart, Shape,
> Command Botton dll)
>
> Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang
> modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
>
> Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde
> (sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
> lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan
> sesuatu "Hei kamu Fulan, sini !" => Columns("A:E").select
>
> Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika
> memanggilnya melalui dari hierarki yang lebih tinggi.
> Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil
> anaknya si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu
> melalui si pakde
>
> with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
> ' ini yang pekerjaan yang diminta dilakukan
> end with
>
> kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si
> pakde tentu saja si pakde sendiri yang akan akan menegur anaknya.
>
> atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus
> anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1
> perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui
> orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah
> melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
>
> Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module)
> berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton
> dll) melalui katabelece ( Call Module1, ini contoh katabelecenya).
>
> Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu
> objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin
> perintah.Select dihindari
>
> misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke
> sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
>
> with sheet2
> .range("a1:e5").copy sheet1.range("a1")
> end with
>
> Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
>
> Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
>
> 2012/12/29 agesthahendra@ymail.com <agesthahendra@ymail.com >
>
> **
>
> Dear Be-exceler,..
>
> Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
> Sheets("Sheet2").Select
> Columns("A:E").Select
>
> mengapa terjadi erorr :
>
> "Select Method of Range Failed" dengan baris ke 2 : Columns("A:E").Select
> tersorot,..
>
> bagaimana caranya menghindari erorr tsb..?
>
> Trima kasih
> Regards
> Hendra
>
>
>
>
>
>
Bagaimana kalau bagian :
Sheets("Sheet2"
Columns("A:E"
diganti menjadi :
with Sheets("Sheet2"
.visible=xlsheetvis
.unprotect "PWD"
'copas langsung
sheets("sheet1"
.range("a1")
'mau ke sheet2
.activate
.range("a1:e1"
columns juga
.protect "PWD" , userinterfaceonly:
'.visible=xlsheetve
baris ini dan ndak perlu aktifasi maupun select cell di sheet2
end with
Wassalam,
Kid.
2012/12/30 Agestha Hendra <agesthahendra@
> **
>
>
> Wah,,terima kasih banyak Mbak/mas Jan Raisin,,,penjelasan
> menambah pengetahuan,
>
> Bisa minta tolong gimana VBA-nya : mengcopy suatu range di Sheet1 ---
> Paste Special Value ke sel A1 di Sheet2 (tapi Sheet2 terprotect dgn
> password : PWD) ---
> kemudian kembali memprotect Sheet2...
>
> Regards
> Hendra
> ------------
> *Dari:* Jan Raisin <miss.jan.raisin@
> *Kepada:* belajar-excel@
> *Dikirim:* Minggu, 30 Desember 2012 8:16
> *Judul:* Re: [belajar-excel] Select Method of Range Failed
>
>
> Dear pak Hendra,
>
> Excel merupakan sebuah objek, di dalam Excel juga memiliki objek yang lain
> dengan hierarki yang bertingkat.
> Susunannya adalah begini:
>
> di dalam Excel ada objek yang namanya Workbook,
> di dalam Workbook ada objek yang namanya Worksheet (Sheet)
> di dalam Worksheet ada objek yang namanya Range, Chart, Shape, dll
>
> kalo dalam sehari-hari bisa dimisalkan sebagai:
> Excel adalah mbah Buyut (orang tua dari si mbah), punya anak namanya Mbah
> (Workbook)
> si Mbah yaitu orang tuannya bapak (Workbook) punya anak banyak, ada yang
> namanya Bapak (Sheet1), pakde (sheet2), bude (Sheet3) dll
> si Bapak (Worksheet) punya anak banyak, ada yang anak kandung/anak
> biologis (namanya Range) ada juga anak angkat (namanya Chart, Shape,
> Command Botton dll)
>
> Nah saat yang aktif adalah sheet1 (Bapak), lalu pasti ada anak bapak yang
> modenya juga aktif misal cell Aktif di A1 (ini adalah pak Hendra).
>
> Tidak sopan kan jika pak Hendra (cell aktif di sheet1) memanggil pakde
> (sheet2) dengan panggilan "Hei pakde, sini !" => sheet2.select
> lalu pak Hendra memanggil anaknya si pakde untuk diperintahkan mengerjakan
> sesuatu "Hei kamu Fulan, sini !" => Columns("A:E"
>
> Walau pun masih di dalam 1 rumah yang sama akan lebih sopan jika
> memanggilnya melalui dari hierarki yang lebih tinggi.
> Kalo saat ini yang aktif adalah Bapak (sheet1) maka untuk memanggil
> anaknya si pakde harus melalui orang yang kedudukannya lebih tinggi yaitu
> melalui si pakde
>
> with sheet2 ' (permisi pakde, minta izin mau minta tolong sama si anu)
> ' ini yang pekerjaan yang diminta dilakukan
> end with
>
> kalau anaknya si pakde tidak mau membantu padahal sudah minta izin si
> pakde tentu saja si pakde sendiri yang akan akan menegur anaknya.
>
> atau kalau si bapak, pakde, pak Hendra (cell A1 di sheet 1), terus
> anak-anaknya pakde (colom A s/d colom E di sheet2) bekerja dalam 1
> perusahaan yang sama (perusahaan keluarga) maka bisa memanggil melalui
> orang yang memiliki jabatan lebih tinggi dari semuanya (contoh adalah
> melalui sebuah Modul, ini si Boss dalam perusahaan keluarga tadi).
>
> Jadi nanti semua perintah dikeluarkan secara resmi oleh si Bos (module)
> berdasarkan permintaan anaknya si bapak (range, cell, shape, command botton
> dll) melalui katabelece ( Call Module1, ini contoh katabelecenya)
>
> Satu hal kelebihan menggunakan VBA adalah kita tidak perlu memanggil suatu
> objek dengan perintah .Select, jadi kalau memungkinkan sebisa mungkin
> perintah.Select dihindari
>
> misal ada dari sheet1 akan mengcopy isi cell A1 sampai E5 lalu dipaste ke
> sheet1 mulai cell A1 maka bisa dilakukan dengan perintah:
>
> with sheet2
> .range("a1:e5"
> end with
>
> Hak Cipta atas dongeng ini ada pada mr KID xixixi :D
>
> Jika salah tolong dikoreksi, jika kurang tolong dilengkapi.
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
>
> 2012/12/29 agesthahendra@
>
> **
>
> Dear Be-exceler,.
>
> Misal kita berada di Sheet1, kemudian kita menjalankan macro :
>
> Sheets("Sheet2"
> Columns("A:E"
>
> mengapa terjadi erorr :
>
> "Select Method of Range Failed" dengan baris ke 2 : Columns("A:E"
> tersorot,..
>
> bagaimana caranya menghindari erorr tsb..?
>
> Trima kasih
> Regards
> Hendra
>
>
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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