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.
Latest posts by Faiq Aminuddin (see all)
- Sayembara BlankOn Dibuka Kembali! - 22 Jan 2023
- 5 Pengaturan Saat Mengetik Pegon di LibreOffice - 20 Des 2022
- Mengetik Pegon dengan Keyboard Arab - 19 Des 2022