@Master Kid Terimakasih. Kode tersebut sudah sesuai dg harapan saya. atas ilmunya sy ucapkan Jazakumullah khaira.
@Master Hendrik Mohon maaf, karena keterburunafsuan sy sehingga tdk melihat kode yg ada. Semoga para master tdk bosan memberikan ilmunya. Terimakasih ________________________________ Dari: Kid Mr. <[email protected]> Kepada: [email protected] Dikirim: Jumat, 24 Agustus 2012 0:15 Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis Coba prosedur event worksheet change berikut : private sub worksheet_change(byval target as range) dim lChar as long 'variabel indeks karakter application.enableevents=false 'set events lain tidak diproses with target 'pada range yang berubah isinya if .count=1 then 'jumlah cell yang berubah hanya 1 if .column=3 then 'kolom cell yang berubah adalah kolom ke-3 ~ kolom C 'hapus isi cell dikanannya (hati-hati dengan cell kosong diantara 2 cell isi) range( .offset(0,1) , .end(xltoright) ).clearcontents if len(.value)<>0 then 'tidak berubah jadi blank maupun nullstring for lchar=1 to len(.value) 'loop setiap karakter data cell yang berubah isi 'isi cell kanan berturutan dengan setiap karakter data berturutan .offset(0,lchar).value=mid$(.value,lchar,1) next lchar 'akhir blok loop endif endif endif end with application.enableevents=true 'set events lain boleh diproses lagi end sub >> yang diwarna merah sebaiknya dibuat di VBE dengan memilih event tersebut >> pada class worksheet terkait >> sesuaikan rujukan ke cell agar sesuai kondisi setempat dan kebutuhannya >> yang diwarna magenta, tidak akan berjalan baik jika ada cell kosong (blank >> dan bukan nullstring) diantara 2 cell berisi data Wassalam, Kid. 2012/8/23 abu dimaz <[email protected]> > >Terimakasih, mas Hendrik. >Tujuannya sama seperti itu, namun yg dikehendaki fungsi MID nya menggunakan >kode macro, kalau tidak salah menggunakan Worksheet_SelectionChange event, >cuma karena sy tidak mengetahui/memahami koding, jd tidak tahu bagaimana >membuatnya. >Jazakumullah khaira > > > > > > > >________________________________ > Dari: hendrik karnadi <[email protected]> >Kepada: "[email protected]" <[email protected]> >Dikirim: Kamis, 23 Agustus 2012 21:49 >Judul: Re: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis > > > > >Jika yang diinginkan adalah seperti yang diberi huruf tebal(sesuai yang >tertulis dalam milis di bawah ini) maka jawaban terlampir mungkin merupakan >solusinya. > > >Semoga pas sesuai kebutuhan. > > >Salam, >Hendrik Karnadi > > > > >________________________________ > From: abu dimaz <[email protected]> >To: "[email protected]" <[email protected]> >Sent: Wednesday, 22 August 2012, 18:16 >Subject: Bls: [belajar-excel] Ekstrak teks ke kolom secara otomatis > > > >Terimakasih atas solusinya, namun yg sy inginkan adalah kode worksheet yg >berfungsi memisahkan teks pada cell C ke kolom2 berikutnya per huruf secara >otomatis. > > > > >________________________________ > Dari: Kid Mr. <[email protected]> >Kepada: [email protected] >Dikirim: Rabu, 22 Agustus 2012 17:00 >Judul: Re: [belajar-excel] Ekstrak teks ke kolom secara otomatis > > > >Coba di d2 : >=mid( $c2, column()-3,1) >Wassalam, >Kid. >» Mohon maaf lahir dan batin « > >On Aug 22, 2012 4:46 PM, "Padara Mbeneh" <[email protected]> wrote: > > >> >>Mohon bantuannya, sy membutuhkan worksheet module untuk memisahkan teks >>jawaban pada kolom C ke kolom berikutnya, seperti fungsi MID, misal: dikolom >>C2 = ABCDAABCDABCD22234, maka otomatis di kolom D = A, kolom E=B, kolom E=C, >>dst. >>Terimakasih sebelumnya. >> >> > > > > > >
