Mengubah Angka Menjadi Tulisan Pada LibreOffice Calc

Mengubah Angka Menjadi Tulisan dengan Fungsi Numbertext, Moneytext dan Terbilang pada LibreOffice Calc

 

Pada LibreOffice, kita dapat mengubah angka menjadi tulisan dengan beberapa Fungsi/Rumus/Formula;

1. Numbertext

2. Moneytext

3. Terbilang

4. Lookup

 

Cara Mengubah Angka Menjadi Tulisan dengan Fungsi Numbertext;

1. Jalankan/buka aplikasi LibreOffice Calc

2. Tambahkan ekstensi Numbertext. Ekstensi Numbertext dapat kita unduh di numbertext.org

Klik menu Tools > Extention Manager… > Add > arahkan ke lokasi File ektensi numbertext disimpan. File ekstensi biasanya berakhiran ‘.oxt’, misalnya ‘numbertext-0.9.5.oxt’.

Kita juga dapat lagsung menambahkan ekstensi secara online dengan cara;

Klik menu Tools > Extention Manager… > Get More Extentions Online

3. Mencoba fungsi/formula/rumus Numbertext

Ketik =numbertxt(1) sehingga muncul tulisan ‘satu’.

Fungsi/formula/rumus Numbertext dapat mengubah angka menjadi tulisan;

1 menjadi ‘satu’

1,1 menjadi ‘satu koma satu’

20 menjadi ‘dua puluh’

-1 menjadi ‘minus satu’

 

Cara Mengubah Angka Menjadi Tulisan dengan Fungsi Moneytext sama dengan cara Mengubah Angka Menjadi Tulisan dengan Fungsi Numbertext. Fungsi/Formula/Rumus Moneytext akan mengubah angka menjadi tulisan beserta mata uangnya, misalnya;

1 menjadi ‘satu rupiah’

1.986.500, menjadi ‘satu juta sembilan ratus delapan puluh enam ribu lima ratus rupiah’

-1 menjadi ‘minus satu rupiah’

 

 

Cara Mengubah Angka Menjadi Tulisan dengan Fungsi Terbilang dapat mengikuti langkah-langkah yang dijelaskan pada Modul Panduan OpenOffice.org yang disusun Oleh Tim Airputih (info@airputih.or.id). Pada halaman 58–63 dijelaskan sebagai berikut;

 

Langkah-langkah untuk menggunakan fungsi terbilang adalah sebagai berikut :

1. Jalankan LibreOffice.org Spreadsheet.

2. Pilih Tools

3. Pilih Macro

4. Organize maMacro

5. Pilih OpenOffice.org basic

6. Pada kotak dialog openoffice.org basic pilih macro dari My Macro > Standard

7. Klik New

8. Maka akan muncul halaman editor, Isi halaman editor tersebut dengan kode dibawah ini :

 

Function Kekata(Bilangan as double) As String

Dim angka as variant

angka = Array(“”,”satu”,”dua”,”tiga”,”empat”,”lima”,”enam”,_

“tujuh”,”delapan”,”sembilan”,”sepuluh”,”sebelas”)

Bilangan = abs(Fix(Bilangan))

If Bilangan<12 Then

Kekata = ” ” & angka(Bilangan)

Elseif Bilangan<20 Then

Kekata = Kekata(Bilangan – 10) & ” belas”

Elseif Bilangan<100 Then

Kekata = Kekata(Fix(Bilangan/10)) & ” puluh” & Kekata(Bilangan mod 10)

Elseif Bilangan<200 Then

Kekata = ” seratus” & Kekata(Bilangan mod 100)

Elseif Bilangan<1000 Then

Kekata = Kekata(Fix(Bilangan/100)) & ” ratus” & Kekata(Bilangan mod 100)

Elseif Bilangan<2000 Then

Kekata = ” seribu” & Kekata(Bilangan mod 1000)

Elseif Bilangan<1000000 Then

Kekata = Kekata(Fix(Bilangan/1000)) & ” ribu” & Kekata(Bilangan mod 1000)

Elseif Bilangan<1000000000 Then

Kekata = Kekata(Fix(Bilangan/1000000)) & ” juta” &_

Kekata(Bilangan- (Fix(Bilangan/1000000)*1000000))

Elseif Bilangan<1000000000000 Then

Kekata = Kekata(Fix(Bilangan/1000000000)) & ” milyar” &_

Kekata(Bilangan- (Fix(Bilangan/1000000000)*1000000000))

Elseif Bilangan<1000000000000000 Then

Kekata = Kekata(Fix(Bilangan/1000000000000)) & ” trilyun” &_

Kekata(Bilangan- (Fix(Bilangan/1000000000000)*1000000000000))

Else

Kekata = “Error! Input Tidak Dapat Diproses.”

EndIf

End Function

Function Terbilang(Bilangan as Double, Optional Style as Integer) as String

Dim temp as String

If Bilangan<0 Then

temp = “Minus ” & trim(kekata(Bilangan))

Else

temp = trim(kekata(Bilangan))

EndIf

If Style=1 Then

Terbilang = ucase(temp)

ElseIf Style=2 Then

Terbilang = lcase(temp)

ElseIf Style=3 Then

kata = split(temp)

l = LBound(kata)

u = UBound(kata)

For i=l to u

kata(i) = ucase(mid(kata(i),1,1)) & mid(kata(i),2)

Next i

Terbilang = join(kata())

Else

Terbilang = ucase(mid(temp,1,1)) & mid(temp,2)

EndIf

End Function

 

9. Kemudian cobalah dengan memasukkan angka pada cell A1 kemudian masukkan

rumus pada cell lainnya dengan cara :

=terbilang(cell;style)

cell adalah kolom yang berisi bilangan yang akan diterjemahkan.

style adalah nilai integer yang sifatnya optional untuk mengatur output cara

penulisan huruf besar atau kecilnya, dan jika tidak disertakan akan tampil huruf

besar pada awal kalimat saja.

Nilai Style dapat dilihat sebagai berikut:

1 = Ditulis huruf kapital (Uppercase) semua

2 = Ditulis huruf kecil semua

3 = Huruf kapital hanya pada awal kata saja

Lainnya = Huruf besar pada awal kalimat saja

Misalkan cell G1 berisi bilangan 375000, dan kita akan menuliskannya di cell H1,

maka:

= terbilang(G1) menghasilkan: Tiga ratus tujuh puluh lima ribu.

= terbilang(G1;1) menghasilkan: TIGA RATUS TUJUH PULUH LIMA RIBU

= terbilang(G1;2) menghasilkan: tiga ratus tujuh puluh lima ribu

= terbilang(G1;3) menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu

Dan untuk menambahkan rupiah di akhir kalimat, cukup melakukan trik berikut:

= terbilang(G1;3) & ” Rupiah” menghasilkan: Tiga Ratus Tujuh Puluh Lima Ribu

Rupiah

 

Langkah-langkah diatas telah saya coba pada LibreOffice Version: 4.2.8.2 yang terpasang pada Ubuntu 14.04 LTS, alhamdulillah dapat berfungsi dengan baik.