Re: [belajar-excel] bagaimana ambil angka di dalam text

[Mr. Kid]

Coba file terlampir.

Penggunaan dalam sebuah prosedur :
Public sub CobaPakaiFungsiAmbilAngka()
   dim vResult as variant, sData as string, sDelimiter as string, lIdx as
long
   sData="contoh angka ke 1 dari 123 angka yang ada"
   sDelimiter=" "
   lIdx=2
   vresult=AmbilAngka( sData , sDelimiter , lIdx )
   msgbox "Angka ke-" & lidx & " yang bisa diambil adalah senilai " &vresult
end sub

Wassalam,
Kid.



2012/10/29 him mah <himmah....@gmail.com>

> **
>
>
> cuma tambah pertanyaan. bagaimana cara mengambil bilangan pertama dan
> kedua dari suatu cell misal di A1. text di A1 tidak teratur tapi yg
> pasti terdapat 2 bilangan. contoh: hal 1 dari 14 halaman- maka
> diperoleh bil pertama 1 dan bil kedua 14. kira_kira fungs4 VBA
> seperti apa
>
>

udf_AmbilAngka.xlsm
Description: Binary data