'----- Pembuka Prosedur serta NAMA Prosedur Sub comments sbg catatan disiapkan beberapa variable lengkap dgn type datanya variable yg tidak ditentukan type datanya berarti type variant
Range yg diselect; di assign sebagai object range bernama dRng1 ditentukan: object range bernama HASIL dalah range di sebelah kanan dRng1 jarak 4 langkah kolom dRng1 baris pertama (dua kolom X 1 baris) dicopy ke baris 1 di Range Hasil variable r ditentukan = 1 (karena nanti r akan dijadikan Counter), dimulai dari 2 Tanda dimulainya perulangan dgn pencacah 'i mulai dari 2 s/d (sebanyak baris pada dRange1) dRange1(baris 'i kolom 2) di-split, dgn KOMA sebagai pembatas split (jadi misalnya: satu DATA Text "1,2,3,4" manjadi e elemen dlm array : 1 2 3 4 ) ini akan menjadikan data Array, dan data tsb dicatat pada variable aray SubCode Jika cell yg akan dijadikan CellSubCode = kosong, array SubCode diisi 1 elemen kosong. di setiap baris dRange yg sedang diurus, dibuat perulangan lagi (perulangan di dalam perulangan) nilai r dinaikkan 1 (akan dipakai sbg Index Baris penulisan data di range Hasil) * Pada range Hasil, (baris r, kolom 1) diisi dta dari dRng1 (baris 'i, kolom 1) * Jika elemen pada subCode ke n = berupa nomor, maka Pada range Hasil, (baris r, kolom 2) diisi Elemen SubCOde ke n (setelah dikonversi menjadi bilangan bulat type LongInteger) Batas perulangan dengan counter n (program kembali ke For n… Batas perulangan dengan counter i (program kembali ke For i… Kolom Hasil dirapihkan lebarnya (agar sesuai dng data pterlebar di kolom itu) Penutup prosedur '------- 2011/7/22 Albert Agustinus <albert_aw9...@yahoo.com> > > nicely done, bagus hasilnya, tinggal d rapikan sedikit saja formatnya .. > terima kasih banyak mbak haps.. > mungkin boleh d ceritakan jalannya dan kegunaan fungsi yang digunakan? biar bisa nambah ilmu lg sedikit. mklum ya.. masi agak pemula > > Regards, > Albert > >
