Terima kasih ya bu siti atas makronya..
karena kurang begitu mengerti, jadi saya hanya menyalin makronya sesuai dengan
yang terlampir..
Top banget dah emang mailist ini..
regard.
Ferdy.
________________________________
Dari: STDEV(i) <setiyowati.d...@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Terkirim: Rab, 30 Juni, 2010 12:24:47
Judul: Re: [belajar-excel] Extract Nomor dan Teks.
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_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.
