Tips Excel #9 – Mengubah Dari Format Text Menjadi Number
Lagi senang-senangnya membuat formula VLOOKUP, Anda dikejutkan dengan nilai
#N/A!. Error ini terjadi karena Excel menganggap tidak ada data yang match
dalam file sumber lookup. Anehnya, saat dicari pada data sumber, ternyata data
tersebut sebenarnya ada. Setelah diselidiki, data tersebut ternyata masih dalam
format Text, padahal data sell yang dijadikan kunci lookup adalah berformat
Number.
Sudah dicoba menggunakan menu Format -> Cell, lau diganti menjadi Number, tetap
saja ia bertype Text. Setelah itu, dicoba juga menggunakan menu Edit -> Clear
-> Formats, tetap saja ia bertype Text.
Untuk mengatasi hal ini, kita harus membuat macro, kemudian simpanlah ia dalam
Personal workbook. Silahkan buat file Excel baru, tekan ALT+F11. Klik dua kali
Personal.xls, lalu klik Insert -> Module. Paste procedure sbb:
Sub ConvertDariTextKeAngka()
'(c) 2007, Opi, for milis belajar-excel
Dim Sell As Range
For Each Sell In ActiveWorkbook. _
ActiveSheet.Range(ActiveWindow. _
RangeSelection.Address)
Sell.Value = CDbl(Sell.Value)
Next Sell
End Sub
Bukalah file Excel yang hendak Anda convert text nya menjadi number. Blok
seluruh sell yang hendak Anda ubah menjadi format number, kemudian klik menu
Macro -> Macros. Pilih macro dengan nama:
PERSONAL.XLS!ConvertDariTextKeAngka
lalu tekan tombol Run. Maka seluruh sell yang Anda blok kini langsung diubah
menjadi format number, khususnya bertype double (desimal).
Lalu bagaimana jika Anda ingin mengconvert menjadi format lain, semisal
bilangan bulat (integer)? Perhatikan salah satu kode VBA dalam procedure
diatas. Disana terdapat kode:
Sell.Value = CDbl(Sell.Value)
Jika Anda ingin menjadi integer, maka tinggal diganti kode yang berwarna biru
diatas menjadi: CInt, atau bisa juga CLng. Banyak pilihan conversi yang dapat
Anda gunakan, diantaranya: CBool, CByte, CCur, CDate, CDbl, CDec, CInt, CLng,
CSng, CStr, CVar, CVErr, Fix, dan Int.
Wassalaamu'alaikum Warahmatullahi Wabarakatuh,
Sofyan Efendi.
http://opi.110mb.com/
