maaf ada salah tulis, di bagian penjelasan baris ke 3 yg bisa menimbulkan kesulitan menangkap maksud yg disampaikan.
tertulis: Kelompok-depan namanya Pre (diharapkan berisi karakter-karakater Huruf) seharusnya: Kelompok-depan namanya Hrf (diharapkan berisi karakter-karakater Huruf) terima kasih 2011/10/19 Haps <[email protected]> > "Tunjek" point saja...: > > Sub Ubah_NrPO() > ' hapsari / Oct 19, 2011 > ' beExcel Posting# 13632 > '-------------------------- > Dim Nmr As Long, n As Integer > Dim Hrf As String, Itm As String > > Itm = Selection(1, 1) > For *n* = Len(Itm) To 1 Step -1 > If Not IsNumeric(Mid(Itm, n, 1)) Then Exit For > Next > Hrf = Left(Itm, n) > Nmr = Val(Right(Itm, Len(Itm) - n)) > For *n* = 1 To Selection.Rows.Count > Selection(n, 1) = Hrf & *Nmr + n - 1* > Next n > > End Sub > > Data pertama di daerah yg disorot (selection) dianggap mewakili semua data > di bawahnya; data itu kita ingat sbg* Itm* dan kita penggal menjadi dua > kelompok. > Kelompok-depan namanya* Pre* (diharapkan berisi karakter-karakater Huruf) > Kelompok belakang namanya *Nmr* (diharapkan berisi karakter-karakter > Numeric) > > Untuk BISA membagi dua kelompok tsb diperlukan posisi (N) yaitu *letak > karakter* > *HURUF *(bukan angka)* yg terkanan*, untuk keperluan itu diperlukan loop > (loop pertama) > yg hanya mengunjungi semua karakter dlm string *Itm.* > > Setelah itu dilakukan loop lagi yg *mengunjungi semua cell dlm sorotan > (selection)* > tiap cell yg dikunjungi diisi DATA BARU yaitu *gabungan* dari *Hrf* dan * > Nmr* tetapi > setiap step* Nmr* *ditambah dengan nilai Counter (n) dikurangi 1* > > Pantas saja kalau hasilnya sepeti yg diharapkan (mudah-mudahanan sih...) > > -haps- > >
