Postingan

Menampilkan postingan dari 2013

Membuat Macro Speeling terbilang text pada excel

1.Buka workbook excel 2.Tekan ALT+F11 3.KeluarMicrosoft Visual Basic 4.Pilih Menu Insert > Module 5.Copy isi dari " uNTUK BAHASA INGGRIS" 6.insert module lagi 7.COpy "uNTUK bAHASA INDONESIA" 8.tekan ALT+Q simpan setting 9.Makro siap di gunakan 10.=SpeelNumber > untuk inggris 11.=SpeelNumberRp > untuk indonesia "Untuk BAHASA INGGRIS " COPPY DARI BAWAH SINI Option Explicit 'Main Function Function SpellNumber(ByVal MyNumber) Dim Dollars, Cents, Temp Dim DecimalPlace, Count ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' String representation of amount. MyNumber = Trim(Str(MyNumber)) ' Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") ' Convert cents and set MyNumber to dollar amount. If DecimalPlace ...