Terima kasih mr. Kid atas pencerahannya.. akan saya pelajari lagi..
"Semakin banyak kita membaca, semakin kita mengerti, bahwa masih banyak yang tidak kita ketahui".. Salam. Ferdy ________________________________ Dari: Mr. Kid <mr.nm...@gmail.com> Kepada: belajar-excel@yahoogroups.com Terkirim: Rab, 30 Juni, 2010 18:28:11 Judul: Re: [belajar-excel] Extract Nomor dan Teks. Silakan Pak. Semoga bermanfaat. Kid. 2010/6/30 Muhammad Ferdiansyah <muh_f3rdi4n5yah@ yahoo.co. id> >Terima kasih mr. Kid.. > >Karena kurang begitu mengerti, bisakah sekalian melampirkan filenya...? > >regard. >Ferdy. > > > > ________________________________ Dari: Mr. Kid <mr.nm...@gmail. com> > >Kepada: belajar-excel@ yahoogroups. com >Terkirim: Rab, 30 Juni, 2010 12:30:46 > >Judul: Re: [belajar-excel] Extract Nomor dan Teks. > > >Dengan UDF saja ya.. > > >Public Function Pilih(sTeks As String, _ > Optional sDelimiter As String = ",", _ > Optional bTeks As Boolean = True) As String > Dim sResStr As String > Dim sResNum As String > Dim sTemp As String > Dim lTemp As Long > > If LenB(sDelimiter) = 0 Then > sDelimiter = "," > End If > sResNum = vbNullString > sResStr = vbNullString > For lTemp = 1 To Len(sTeks) > sTemp = Mid(sTeks, lTemp, 1) > If IsNumeric(sTemp) Then > sResNum = sResNum & sTemp > Else > sResStr = sResStr & sTemp > End If > Next > If bTeks Then > Pilih = Trim$(Replace$ (sResStr, sDelimiter, vbNullString) ) > Else > Pilih = sResNum > End If >End Function > >Letakkan kode prosedur fungsi Pilih diatas pada sebuah module. >Gunakan seperti menggunakan fungsi yang lain, dengan syntax : >=Pilih( teks, karakter_delimiter, huruf ) >teks -> string data >karakter_delimiter -> karakter selain angka dan huruf >huruf -> TRUE/FALSE (TRUE jika ingin ambil huruf saja, FALSE untuk angka saja) > >Contoh : cell k123 berisi PH197%OB567 >-> ambil huruf saja : >=Pilih( k123, "%", TRUE ) >atau >=Pilih( k123, "%" ) > >-> ambil angka saja : >=Pilih( k123, "%", FALSE ) > >Regards. >Kid. > > > > > >2010/6/30 Muhammad Ferdiansyah <muh_f3rdi4n5yah@ yahoo.co. id> > > >>DH, >> >>Kepada para Pakar Excel mohon bantuannya.. >> >>Saya mempunyai sedikit masalah.. >> >>pada cell A1 tertulis "PH197,OB154. ." >>Bagaimana caranya agar pada cell : >>A2 ----> PHOB (hanya huruf) >>A3 ----> 197154 (hanya angka) >>Bagaimana ya caranya? >> >>Mohon bantuannya. >> >>Regard. >>Ferdy. >> > >