Makro Terbilang untuk Libre dan Open Office Calc

Makro adalah salah satu fitur di dalam Libre / Open Office yang memungkinkan pengguna dapat menambahkan fungsi tambahan sesuai keinginan kita. seperti yang akan kita bahas berikut ini, di sini kita akan membuat / menambahkan sebuah fungsi yang apabila kita jalankan akan mengubah angka menjadi huruf yang bisa di baca seperti yang biasa kita temui di kwitansi atau bukti keuangan tertulis lainya. sebagai contoh bilangan 1.000.000 bisa di ubah menjadi kata “Satu Juta Rupiah” dan lain sebagainya.

Oke langsung saja, cara menambahkan makro di libre office atau open office cukuplah mudah. caranya dengan membuka Tools > Macros > Organize Macros > LibreOffice Basic .. hingga muncul dialogbox seperti berikut.

Oke sudah faham ya dengan dua perbedaan di atas? sekarang klik di salah satu Standart kemudian klik New hingga muncul dialog seperti di bawah ini.

‘Fungsi Terbilang Function Terbilang(Bilangan as Double, Optional Style as Integer) as String Dim temp as String Dim Koma as String ‘Dim Angka,des1,des2 as Integer Angka = Fix(Abs(Bilangan)) des1 = Mid(Abs(Bilangan), Len(Angka) + 2, 1) des2 = Mid(Abs(Bilangan), Len(Angka) + 3, 1)

If Bilangan<0 Then temp = “Minus " & trim(Kekata(Bilangan)) Else temp = trim(Kekata(Bilangan)) EndIf ‘Jajal Koma ‘Desimal dibelakang koma

If des2 = "” Then If des1 = "" Or des1 = “0” Then Koma = " Koma Nol - " & “Nol” Else Koma = " Koma " & Kekata(des1) & " " & “Nol” End If ElseIf des2 = “0” Then If des1 = “0” Then Koma = “Nol-” & “Nol” ElseIf des1 = “1” Then Koma = " Koma sepuluh" Else Koma = " Koma " & Kekata(des1) & " " & “Nol” End If ElseIf des2 = des1 Then Koma = " Koma " & Kekata(des1) & " - " & Kekata(des2)

Else If des1 = “0” Then Koma = " Koma Nol " & Kekata(des2) ElseIf des1 = “1” Then If des2 = “1” Then Koma = " Koma Satu - " & “Satu” Else Koma = " Koma " & Kekata(des1) & " - " & Kekata(des2) End If Else Koma = " Koma " & Kekata(des1) & " " & Kekata(des2) End If End If ‘End Jajal KOma

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)&Koma EndIf End Function

‘Fungsi Rupiah Function rupiah(bilangan as double) as string dim coba as string coba = Kekata(bilangan) rupiah = coba & " Rupiah" end function  

Sehingga seperti contoh gambar berikut ini

Sekarang mari kita coba apakah fungsi berjalan atau tidak, penggunaanya di sini ada dua fungsi yang saya gunakan, yaitu terbilang dan rupiah.

Terbilang Fungsi ini akan menghasilkan huruf terbilang dari bilangan yang akan kita ubah dan di ikut dengan koma di belakangnya. Fungsi ini sangat cocok untuk pembuatan raport bagi yang bekerja di tata usaha sekolah.

Penggunaanya =terbilang(alamat_cell)

Rupiah Fungsi ini akan menghasilkan huruf terbilang dari bilangan yang akan kita ubah dan di ikuti dengan kata Rupiah di belakangnya. Fungsi ini sangat cocok bagi yang mengerjakan kwitansi menggunakan komputer atau laptop.

Penggunaanya =rupiah(alamat_cell)