Cara Membuat Terbilang Rupiah di Excel Archives

Microsoft Excel menjadi salah satu aplikasi pengolah data yang paling sering digunakan di dunia kerja, termasuk untuk keuangan, akuntansi, dan administrasi. Salah satu fitur yang sering dibutuhkan adalah konversi angka menjadi teks terbilang, terutama dalam format mata uang seperti Rupiah. Namun, Excel secara default tidak memiliki fungsi bawaan untuk menampilkan angka dalam bentuk terbilang.

Lalu, bagaimana cara membuat terbilang Rupiah di Excel dengan metode paling mudah? Artikel ini akan menjelaskan langkah-langkahnya dengan lengkap dan praktis agar Anda dapat menggunakannya untuk membuat kwitansi, invoice, laporan keuangan, dan dokumen lainnya.

Mengapa Perlu Terbilang Rupiah di Excel?

Menampilkan nilai uang dalam bentuk teks terbilang menjadi sesuatu yang sangat penting untuk keperluan administrasi resmi, seperti:

Kwitansi pembayaran
Nota transaksi
Invoice profesional
Surat pernyataan atau kontrak

Fungsi terbilang akan membantu menghindari kesalahan nominal dan membuat dokumen lebih valid secara hukum.

Metode 1: Menggunakan Add-Ins VBA (Visual Basic for Applications)

Pada dasarnya Excel tidak memiliki fungsi Terbilang() secara default, solusi paling umum adalah dengan menambahkan kode VBA yang berfungsi untuk mengubah angka menjadi teks Rupiah.

Langkah-langkah Membuat Fungsi Terbilang di Excel:

1. Buka Editor VBA

Tekan Alt + F11 untuk membuka jendela Visual Basic for Applications.
Klik Insert > Module.

2. Masukkan Kode Terbilang

Salin kode di bawah ini ke dalam modul:

Function Terbilang(ByVal MyNumber)
Dim Units As String

Dim SubUnits As String

Dim Temp As String

Dim DecimalPlace As Integer

Dim Count As Integer

Dim Place(9) As String

Dim Number As Double
ReDim Place(9)

Place(2) = "Ribu "

Place(3) = "Juta "

Place(4) = "Milyar "

Place(5) = "Triliun "
MyNumber = Trim(Str(MyNumber))

DecimalPlace = InStr(MyNumber, ".")

If DecimalPlace > 0 Then

    SubUnits = GetDigit(Mid(MyNumber, DecimalPlace + 1)) & "Sen"

    MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))

End If
Count = 1

Do While MyNumber <> ""

    Temp = GetDigit(Right(MyNumber, 3))

    If Temp <> "" Then Units = Temp & Place(Count) & Units

    If Len(MyNumber) > 3 Then

        MyNumber = Left(MyNumber, Len(MyNumber) - 3)

    Else

        MyNumber = ""

    End If

    Count = Count + 1

Loop
Terbilang = Application.WorksheetFunction.Proper(Units) & "Rupiah"

End Function
Private Function GetDigit(ByVal MyNumber)
Dim Result As String

Dim Words(1 To 9) As String

Words(1) = "Satu "

Words(2) = "Dua "

Words(3) = "Tiga "

Words(4) = "Empat "

Words(5) = "Lima "

Words(6) = "Enam "

Words(7) = "Tujuh "

Words(8) = "Delapan "

Words(9) = "Sembilan "
Dim Number As Integer

Dim Position As Integer

Dim Digit As String
MyNumber = Format(MyNumber, "000")

Result = ""
For Position = 1 To 3

    Digit = Mid(MyNumber, Position, 1)

    If Digit <> "0" Then

        Number = CInt(Digit)

        Select Case Position

            Case 1: If Number = 1 Then

                        Result = Result & "Seratus "

                    Else

                        Result = Result & Words(Number) & "Ratus "

                    End If

            Case 2: If Number = 1 Then

                        Result = Result & "Sepuluh "

                    Else

                        Result = Result & Words(Number) & "Puluh "

                    End If

            Case 3: Result = Result & Words(Number)

        End Select

    End If

Next Position
GetDigit = Result

End Function

3. Simpan dan Tutup Editor

Klik File > Save.
Tutup jendela VBA.

4. Gunakan Fungsi di Excel

Sekarang Anda sudah bisa menggunakan fungsi:

Apabila A2 berisi angka 150000, maka akan muncul:
“Seratus Lima Puluh Ribu Rupiah”

Metode 2: Menggunakan Add-Ins Terbilang Pihak Ketiga

Alternatif lain yang bisa digunakan adalah Add-Ins Excel Terbilang yang bisa download dari internet. Anda hanya perlu:

Unduh file add-ins (.xlam)
Buka Excel, lalu klik File > Options > Add-Ins
Klik Go, kemudian Browse dan pilih file add-ins
Setelah aktif, Anda bisa langsung menggunakan fungsi =Terbilang()

Namun, pastikan add-ins tersebut berasal dari sumber tepercaya untuk keamanan data.

Cara membuat terbilang Rupiah di Excel paling mudah adalah dengan menggunakan kode VBA atau add-ins khusus. Meskipun Excel tidak menyediakan fungsi ini secara default, Anda tetap bisa menambahkannya dengan cepat dan praktis seperti yang sudah dijelaskan unsa.ac.id.

Dengan fungsi terbilang, Anda bisa membuat dokumen keuangan yang lebih rapi, profesional, dan sesuai standar administrasi. Cobalah salah satu metode di atas dan nikmati kemudahan konversi angka ke dalam teks Rupiah di Excel Anda.

Tag: Cara Membuat Terbilang Rupiah di Excel

Cara Membuat Terbilang Rupiah di Excel Paling Mudah