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