Hai Matzen,Ini UDF dari si mbah.
Function AngkaThok(Cel As Range) Dim i As Integer Dim s As String Dim k
As String For i = 1 To Len(Cel) k = Mid(Cel, i, 1) If IsNumeric(k)
Then s = s & k Next i AngkaThok = Val(s)
End Function
Silakan dicopas ke module dan ditulis di Sheet : =AngkaThok(CellAddress)
CellAddress adalah alamat sel, mis. B1
Salam,HK
On Thursday, 29 March 2018, 2:57:21 PM GMT+7, 'Matzen, M. (Matzen)'
[email protected] [belajar-excel] <[email protected]>
wrote:
Dear Master
Saya sudah mencoba dgn fungsi yang saya tau..left,right,mid tapi saya belum
mendapatkan yang saya mau adapun datanya sperti di bawah
|
24GLN
|
|
60KLG
|
|
72GLN
|
|
2 PIL
|
|
64KLG
|
|
24KLG
|
|
144KLG
|
|
84KLG
|
|
48KLG
|
|
12KLG
|
|
12KLG
|
|
24KLG
|
|
144KLG
|
|
48KLG
|
|
60KLG
|
|
60KLG
|
|
84KLG
|
|
60KLG
|
|
48KLG
|
|
60KLG
|
|
60KLG
|
|
36KLG
|
Saya hanya butuh angka yang ada di data tersebut
Terima Kasih
Matzen
