Hati-hati kalo locale komputer berbeda sekarang pak Bagyo sedang pakai 1033. Nanti kalo dipakai yang lain yang 1057 perlu di tes juga hasilnya.
Kid. 2011/7/14 Sudarsono Suhenk <[email protected]> > ** > > > Kalau mau lebih cepat gunakan makro ini : > Sub UbahTextToNumber(ByVal daerahnya As String) > Range(daerahnya).Select > > Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ > ReplaceFormat:=False > Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _ > SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ > ReplaceFormat:=False > End Sub > Sub contoh() > UbahTextToNumber ("$H$8:$S$138") > End Sub > > Dengan syarat [.] menunjukan angka ribuan > [,] menunjukan angka desimal > sebaiknya sebelum menggunakan makro ini , sheet asli di kopi dahulu . > Karena makro ini kalau di ulangi lagi ( 2 kali dijalankan ) akibatnya angka > desimal menjadi nilai baru , misal : 1.234,56 -->makro dijalankan hasilnya > 1234.56 --> dijalankan hasilkan 123456 ( khan hasilnya salah ) > '========= > ------------------------------ > To: [email protected] > From: [email protected] > Date: Thu, 14 Jul 2011 16:03:22 +0700 > > Subject: RE: [belajar-excel] Cara merubah format text ke angka > > > > Dear pak Sudarsono S, > > > > Benar pak, aplikasi ini adalah convert dari program accurate. > > Data program bisa di conver ke excel, namun hasil convert excelnya > formatnya masih seperti itu, tidak bisa di jumlahkan dengan “Sum”. > > Sehingga kalo mau mengedit agak kesulitan. > > > > Demikian pak, namun solusi dari pak Herry Sutjipto yaitu dengan mengalikan > dengan angka 1 ke kolom bantuan, sudah bisa terpecahkan masalah ini. > > > > Terima kasih untuk pak Herry Sutjipto, sudah saya coba dan Alhamdulillah > berhail. > > > > Salam, > > Bagyo L > > > > > > > > *From:* [email protected] [mailto: > [email protected]] *On Behalf Of *Sudarsono Suhenk > *Sent:* 14 Juli 2011 15:44 > *To:* belajar excel yahoo.com > *Subject:* RE: [belajar-excel] Cara merubah format text ke angka > > > > > > Sepertinya file excel merupakan hasil convert atau import dari sebuah > laporan. Kalau demikian usahakan dari aplikasi laporan di export ke excel > Agar tak perlu mengubah atau membuat formula untuk konversi text ke number. > > > khan cape tiap laporan harus utak-utik excel ( buat formula ) > Pakai aplikasi apa ya ? maksudnya aplikasi dibuat menggunakan apa ? access > , vb6, php , delphi ,........ > > ------------------------------ > > To: [email protected] > From: [email protected] > Date: Thu, 14 Jul 2011 15:23:20 +0700 > Subject: [belajar-excel] Cara merubah format text ke angka > > > > Pakar excel yang budiman, > > > > Mohon bantuannya, bagaimana merubah format data text menjadi format angka ? > > Agar data tsb nantinya dapat dijumlahkan dengan data lainnya. > > Seperti contoh pada lampiran. > > > > Atas bantuannya terima kasih. > > > > Salam, > > Bagyo L > > > > > > > >
