Penulisan hasil UASBN dan UAN menggunakan komputer dapat dilakukan dengan mudah menggunakan bantuan Macro Excel. Di bawah script lengkap macro excel yang dapat digunakan pada MS Office 2003 da Open Office.

Jika ingin lebih cepat dengan mendowload file yang ada pada download, maka tinggal dijalankan sudah aktif. Yang perlu diedit tentu format pembuatan tabelnya.

Berikut kode lengkap:

Function toword(ByVal MyNumber)

Dim Temp

Dim Number, Cents

Dim DecimalPlace, Count

ReDim Place(9) As String

‘ Convert MyNumber to a string, trimming extra spaces.

MyNumber = Trim(Str(MyNumber))

‘ Find decimal place.

DecimalPlace = InStr(MyNumber, “.”)

‘ If we find decimal place…

If DecimalPlace > 0 Then

‘ Convert cents

Temp = Left(Mid(MyNumber, DecimalPlace + 1) & “00″, 2)

Cents = ConvertTens(Temp)

‘ Strip off cents from remainder to convert.

MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))

End If

Count = 1

Do While MyNumber <> “”

‘ Convert last 3 digits of MyNumber to English Number.

Temp = ConvertHundreds(Right(MyNumber, 3))

If Temp <> “” Then Number = Temp & Place(Count) & Number

If Len(MyNumber) > 3 Then

‘ Remove last 3 converted digits from MyNumber.

MyNumber = Left(MyNumber, Len(MyNumber) – 3)

Else

MyNumber = “”

End If

Count = Count + 1

Loop

‘ Clean up number.

Select Case Number

Case “”

Number = “”

Case “Satu”

Number = “Satu ”

Case Else

Number = Number

End Select

‘ Clean up cents.

Select Case Cents

Case “”

Cents = ” koma Nol”

Case “Satu”

Cents = ” koma Satu”

Case Else

Cents = ” koma ” & Cents

End Select

toword = Number & Cents

End Function
Private Function ConvertHundreds(ByVal MyNumber)

Dim Result As String

‘ Exit if there is nothing to convert.

If Val(MyNumber) = 0 Then Exit Function

‘ Append leading zeros to number.

MyNumber = Right(“000″ & MyNumber, 3)

‘ Do we have a hundreds place digit to convert?

If Left(MyNumber, 1) <> “0″ Then

Result = ConvertDigit(Left(MyNumber, 1)) & ” ”

End If

‘ Do we have a tens place digit to convert?

If Mid(MyNumber, 2, 1) <> ” ” Then

Result = Result & ConvertTens(Mid(MyNumber, 2))

Else

‘ If not, then convert the ones place digit.

End If

ConvertHundreds = Trim(Result)

End Function

:: Baca selengkapnya/Read more… »

Tutorial on Excel Macros (VBA): With macros in Excel you will save a lot of time and do a lot more. Learn the skill and get a better paying job.

Excel Macros (VBA) Tutorial : Step by step even with no programming background you will learn what you need to accomplish small miracles with macros and business data in Excel.

Excel VBA. FREE Excel VBA Code & Excel Macro Help : Excel VBA: Excel VBA Macros. Free help on Excel Macros, from VBA to Custom Functions and more.

Excel VBA tutorial : This website provides free Excel VBA tutorial to help anyone to master VBA programming instantly.

Writing Your First VBA Function in Excel : Writing Your First VBA Function in Excel. Tip Contributed by Martin Green.Martin Green, Office Tips is a freelance Access and Excel trainer and developer

Mathtools.net : Excel/VBA : Add over 1200 Excel VBA examples directly into the Microsoft Excel Visual Basic Editor.

TechBookReport Excel VBA Tutorial : TechBookReport – Excel Visual Basic (VBA) tutorial.

Quick Excel Chart VBA Examples : The use of VBA in Microsoft Excel charting is a topic that would fill a large volume.

Pada suatu waktu ditanya oleh seseorang tentang menggunakan Excel untuk membuat rapot sekolah. Yang diinginkan yaitu mengubah angka menjadi kata, misal angka 89,08 menjadi Delapan Sembilan koma Nol Delapan.

Dari pembuatan macro sebelumnya yaitu mengubah angka menjadi kalimat untuk kebutuhan keuangan seperti dari posting sebelumnya dengan judul Macro Excel: Membuat fungsi terbilang, kemudian mencoba modifikasi beberapa saat maka dapatlah kami bagikan kepada pembaca seperti pada kode dibawah. Kode asli saya ambil dari Macro Excel: Number to Word conversion for various purpose in English. Sumber utama dari www.ozgrid.com.

:: Baca selengkapnya/Read more… »

The use ms excel to complete office work or personal work is often required to change a number into words. Here are examples of programs VBA (Visual Basic Application) that can be added to your sheet as a function that can be used at any time with ease.
There are notes on the writing of symbols, for example if the number of money units will need to be replaced by the reference number. Units can be changed be anything as you want, for example U.S. currency with the dollar, the currency in Indonesia Rupiah, the Japanese currency to yen, and so on. In addition to the currency can also be changed with another unit for example: Kilogram to load, Meter for distance, etc..

==================== start of script ========================

:: Baca selengkapnya/Read more… »

Pengguna MS Excel yang sering menggunakannya untuk hitung keuangan, mungkin sangat ingin dari hasil yang diperoleh ada tambahan kalimat yang menyebutkan jumlah hasil perhitungan. Misal hasil perhitungan: Rp 1.000.000,- , muncul kalimat: Satu Juta Rupiah.

Dibawah kami bantu untuk merealisasikan keinginan tersebut. Kode ini saya peroleh dari internet yang ditujukan untuk pengguna openoffice. Setelah saya tes di Excel ternyata dapat berfungsi dengan baik.

Pekerjaan mengubah dari angka menjadi kalimat seperti diatas disebut FUNGSI TERBILANG. Fungsi terbilang akan tercatat dalam daftar function di excel dalam kelompok user defined, artinya fungsi yang dibuat oleh pengguna.

Ok kita mulai ya…

Langkah 1: Buka Workbook Excel.

Buka Book baru

Langkah 2: Buka Visual Basic Application Editor. Alt+F11 atau melalui menu menu Tools.

Membuka VBA Editor di Excel

Hasil membuka VBA editor seperti gambar dibawah.

VBA Editor telah aktif

Langkah 3: Membuka MODUL baru.

Membuka Modul Baru

Hasil insert modul, akan tersedia modul yang siap dipakai.

Modul baru siap dipakai

Langkah 4: Mengisi Modul dengan script Fungsi berikut, dengan copy dan paste ke dalam modul.

Function TeksKeAngka(ByVal n As Double) As String
Dim sSatuan()
Dim s As String
sSatuan() = Array("nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh")
s = ""
If n > 999 and n < 200 Then
s = "seribu"
n = n MOD 1000
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 199 Then
s = s & sSatuan(Fix(n / 100)) & " ratus"
n = n MOD 100
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 99 and n < 200 Then
s = "seratus"
n = n MOD 100
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
If n > 20 and n < 100 Then
s = s & sSatuan(Fix(n / 10)) & " puluh"
n = n MOD 10
If n = 0 Then
TeksKeAngka = s
Exit Function
End If
s = s & " "
End If
TeksKeAngka = s & sSatuan(n)
End Function

Function Terbilang(ByVal n) As String
Dim sBil()
sBil = Array( "", "ribu", "juta", "milyar", "triliun", "quadriliun")
Dim i As Integer
Dim iInt As Integer
Dim s As String
Dim dInt As Double
dInt = Fix(n)
If (dInt < 2000) Then
Terbilang = TeksKeAngka(CInt(dInt))
Exit Function
End If
i = 0
s = ""
Do While dInt > 0
iInt = CInt(dInt - Fix(dInt / 1000) * 1000)
If iInt <> 0 Then
If Len(s) > 0 Then s = " " & s
s = TeksKeAngka(iInt) & " " & sBil(i) & s
End If
i = i + 1
dInt = Fix(dInt / 1000)
Loop
Terbilang = s
End Function

Copy script Fungsi Terbilang Ke Modul

Langkah 5:  Tes fungsi di Worksheet Excel.

Melakukan tes fungsi terbilang

Hasil testing seperti dibawah.

Hasil fungsi Terbilang bekerja dengan baik

Langkah 6: SIMPAN BOOK tersebut, dan gunakan book tersebut jika akan digunakan untuk aktifitas perhitungan. Karena Fungsi HANYA melekat atau akan aktif pada workbook tersebut, bukan pada aplikasi MS Excel secara permanen. Atau jika Anda sudah memiliki workbook yang sudah ada hasil hitungan dan ingin ditambahi fungsi terbilang bisa mengikuti langkah 1-6.

Selesai. Selamat mencoba.

Dan silakan dicoba file excelnya yang saya buat.