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:=FalseEnd SubSub 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
