Angka Terbilang Di Excel

Angka Terbilang Kadangkala disaat kita membuat laporan keuangan dengan menggunakan Microsoft Excel kita harus menyatakan dengan jelas isi suatu sel agar tidak salah dipahami nilainya, Anda yang sering bertransaksi dengan pihak bank tentu sudah mengetahui bahwa selain nilai nominalnya kita juga harus menyebutkan nilai terbilangnya, misalnya 1000 harus dinyatakan terbilang menjadi ’seribu’, 100 dengan ’seratus’ dan lainnya. Kalau hanya satu sel saja kita gampang tinggal mengetikkannya sendiri tetapi bagaimana kalau lebih dari sepuluh sel atau isi sel itu selalu berubah dinamis karena terkait dengan formula perhitungan yang kita gunakan. Cara mudahnya kita menggunakan fungsi khusus yang dibuat untuk menterjemahkan angka numerik menjadi terbilang. Caranya mudah, jalankan Microsoft Excel, lalu klik menu Tools | Macro | Visual Basic Editor atau tekan tombol Alt + F11 yang akan memunculkan jendela Microsoft Visual Basic Editor. Pada jendela ini klik menu Insert | Module lalu salin kode berikut ini kedalam modul. Option Explicit 'Main Function Function Terbilang(ByVal MyNumber) Dim Rupiah, sen, Temp, hsl Dim DecimalPlace, Count ReDim Place(9) As String Dim a As Long Place(2) = " ribu" Place(3) = " juta" Place(4) = " milyar" Place(5) = " trilyun" 'String representation of amount. MyNumber = Trim(Str(MyNumber)) 'Position of decimal place 0 if none. DecimalPlace = InStr(MyNumber, ".") 'Convert sen and set MyNumber to rupiah amount. If DecimalPlace > 0 Then sen = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If Count = 1 Do While MyNumber <> "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp <> "" Then rupiah = Temp & Place(Count) & Rupiah If Left(Trim(Rupiah), 9) = "satu ribu" Then Rupiah = " seribu" & Mid(Rupiah, 11) End If If Len(MyNumber) > 3 Then MyNumber = Left(MyNumber, Len(MyNumber) - 3) Else MyNumber = "" End If Count = Count + 1 Loop Select Case Rupiah Case "" Rupiah = "Nol" Case Else Rupiah = Rupiah & "" End Select Select Case sen Case "" sen = "." Case Else sen = " koma" & sen & "." End Select 'Terbilang = Trim(Rupiah & sen) hsl = Trim(Rupiah & sen) Terbilang = UCase(left(hsl,1))&right(hsl,len(hsl)-1) End Function 'Converts a number from 100-999 into text Function GetHundreds(ByVal MyNumber)

Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) 'Convert the hundreds place. If Mid(MyNumber, 1, 1) <> "0" Then If Mid(MyNumber, 1, 1) = "1" Then Result = " seratus" Else Result = GetDigit(Mid(MyNumber, 1, 1)) & " ratus" End If End If 'Convert the tens and ones place. If Mid(MyNumber, 2, 1) <> "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function 'Converts a number from 10 to 99 into text. Function GetTens(TensText) Dim Result As String Result = "" 'Null out the temporary function value. If Val(Left(TensText, 1)) = 1 Then 'If value between 10-19... Select Case Val(TensText) Case 10: Result = " sepuluh" Case 11: Result = " sebelas" Case 12: Result = " dua belas" Case 13: Result = " tiga belas" Case 14: Result = " empat belas" Case 15: Result = " lima belas" Case 16: Result = " enam belas" Case 17: Result = " tujuh belas" Case 18: Result = " delapan belas" Case 19: Result = " sembilan belas" Case Else End Select Else 'If value between 20-99... Select Case Val(Left(TensText, 1)) Case 2: Result = " dua puluh" Case 3: Result = " tiga puluh" Case 4: Result = " empat puluh" Case 5: Result = " lima puluh" Case 6: Result = " enam puluh" Case 7: Result = " tujuh puluh" Case 8: Result = " delapan puluh" Case 9: Result = " sembilan puluh" Case Else End Select Result = Result & GetDigit(Right(TensText, 1)) 'Retrieve ones place. End If GetTens = Result End Function 'Converts a number from 1 to 9 into text. Function GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = " satu" Case 2: GetDigit = " dua" Case 3: GetDigit = " tiga" Case 4: GetDigit = " empat" Case 5: GetDigit = " lima" Case 6: GetDigit = " enam" Case 7: GetDigit = " tujuh" Case 8: GetDigit = " delapan" Case 9: GetDigit = " sembilan" Case Else: GetDigit = "" End Select End Function

Untuk menggunakannya sama seperti fungsi-fungsi lainnya yang ada di Microsoft Excel.

Cukup mengetikkan nama fungsi ini yaitu =terbilang(1950,05) kedalam sebuah sel atau menggunakan alamat sel seperti ini =Terbilang(B3). Dan hasilnya adalah kalimat seribu sembilan ratus lima puluh rupiah koma lima.