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 <[email protected]>
>
>
> 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.
>
>
>
