Membuat fungsi terbilang menggunakan Libre Office

Kasus yg terjadi pada kerjaan saya dimana user akan membuat fungsi terbilang menggunakan Libre Office. Setelah bertanya pada beberapa sumber dan tentu saja paman google yg membantu jg akhirnya saya mendapatkan apa yg saya mau. Langsung saja

1. Buka Libre Office
2. Pilih Tools
3. Pilih Macros
4. Pilih Organize Macros
5. Pilih LibreOffice Basic
6. Muncul tampilan di bawah

7. Pilih Edit

8. Masukkan script di bawah ini kedalam kotak merah di atas


  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."

    End If

End Function

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

    Dim temp As String

    Dim kata() As String

    Dim i As Integer, l As Integer, u As Integer

    If Bilangan < 0 Then

        temp = "Minus " & Trim(Kekata(Bilangan))

    Else

        temp = Trim(Kekata(Bilangan))

    End If

    ' Tambahkan kata "Rupiah" di akhir

    temp = Trim(temp) & " Rupiah"

    ' Format gaya huruf sesuai opsi

    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)

    End If

End Function

9. Pilih File >> Save

10. Selesai penambahan fungsi terbilang pada Libre Office, untuk hasilnya ada di bawah

Note Rumusnya gini

-----------------------------------------------

=TERBILANG(B2)

-----------------------------------------------

1. Terbilang : adalah fungsi untuk membuat angka menjadi terbilang

2. B2          : adalah tempat dimana angka yg ingin kita buat menjadi terbilang

3. Rupiah    : adalah menunjukkan mata uang yg di gunakan menjadi rupiah

Sekian, semoga bermanfaat

Terima Kasih