kalau POLA datanya sudah pasti = tetap seperti contoh AA111,BB222 maka formulanya
mengambil huruf-huruf 2 huruf dimulali dari posisi 1 & 2 huruf dimulai dari
posisi 7
=MID(A1,1,2)&MID(A1,7,2)
mengambil angka-angka 3 digit dimulali dari posisi 3 & 3 huruf dimulai dari
posisi 9
=MID(A1,3,3)&MID(A1,9,3)
Tetapi kalau POLA datanya *tidak tertentu;* misal
ADFLKJ987397,IUYE937654,GRET087654
UJM98XX76,ASDFGHJ1357VTU9,JKL123OPYT998877,XYZ765ZXY21
daripada pusing mikir formulanya mendingan pakai *fungsi FBD *(fungsi buatan
dhewek )
GetAngka(A1) >> mengambil angka-angka-nya saja
GetHuruf(A1) >> mengambil huruf-huruf-nya saja
contoh ada di lampiran
vba codingnya kira-kira spt ini...
Function GetHuruf(Cel As Range) As String
Dim t As String, i As Integer
For i = 1 To Len(Trim(Cel))
If InStr(1, "0123456789/,.+-_", Mid(Cel, i, 1), 0) = 0 Then
t = t & Mid(Cel, i, 1)
End If
Next
GetHuruf = t
End Function
Function GetAngka(Cel As Range) As String
Dim t As String, i As Integer, tCel As String
tCel = Replace(Cel, ",", "")
For i = 1 To Len(Trim(tCel))
If InStr(1, "0123456789", Mid(tCel, i, 1), 0) > 0 Then
t = t & Mid(tCel, i, 1)
End If
Next
GetAngka = t
End Function
2010/6/30 Muhammad Ferdiansyah <muh_f3rdi4n5...@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.
>
ctv_GetHuruf_n_GetAngka.xls
Description: MS-Excel spreadsheet
