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