Fungsi dalam Spreadsheet dapat digunakan untuk membantu memudahkan pekerjaan yang sangat banyak, yaitu jika kita menemukan formula dalam satu cell, maka dapat menduplikasinya pada cell lainnya. Ada satu Fungsi yang sangat penting untuk menampilkan format terbilang dari sebuah angka. seperti berikut ini:
Untuk membuat fungsi seperti gambar diatas, ikuti langkah-langkah berikut:
1. Buka Aplikasi Open Office Calc
2. Klick menu Tools > Macros > Organize Macros > OppenOffice.org Basic
3. Klik Standard > New
4. Masukkan kode berikut :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
5. TES / Coba dengan menuliskan Angka pada sel A1
6. Kemudian pada Sel A2 tuliskan perintah : =Terbilang(A1)
7. Sebagai Tambahan tuliskan perintah berikut pada sel A3
=terbilang(A1,1)
8. tuliskan pula perintah berikut pada sel A4
=terbilang(A1,2)
9. coba tuliskan lagi perintah berikut pada sel A5
= terbilang(A1,3)
Selamat mencoba.....
