Cara Membuat Rumus Terbilang Rupiah Pada Excel

Apakah Anda saat ini sedang menggunakan Microsoft Excel untuk mengelola keuangan atau angka-angka lainnya dalam aktivitas sehari-hari? Pasti pernah merasa kesulitan ketika ingin menulis angka dalam format huruf atau terbilang bukan? Hal itu memang bisa terjadi apalagi jika kita tidak terlalu sering menggunakan Microsoft Excel. Namun, jangan khawatir! Di artikel ini, kami akan memandu Anda untuk membuat rumus terbilang pada Microsoft Excel tanpa plugin. Simak langkah-langkahnya di bawah ini.

Cara Membuat Rumus Terbilang Rupiah Di Excel

Langkah pertama untuk membuat rumus terbilang pada Microsoft Excel adalah dengan membuka dokumen Excel yang ingin Anda gunakan. Kemudian, buat kolom baru pada bagian yang kosong di samping kolom yang ingin dijadikan rumus terbilang.

Pada kolom baru yang sudah dibuat, ketikkan rumus berikut pada baris pertama:

=TERBILANG(A1)

Rumus di atas mengambil angka pada sel A1 dan mengubahnya menjadi format huruf atau terbilang. Jika kita ingin menggunakan kolom atau sel yang lain untuk dijadikan rumus terbilang, ganti saja A1 dengan kolom atau sel yang kita inginkan.

Lalu, untuk membuat format angka dalam bentuk Rupiah, tambahkan rumus berikut pada baris yang sama:

=TEXT(A1,"Rp#.##0,00;-Rp#.##0,00")

Rumus di atas akan menghasilkan format angka dalam bentuk rupiah dengan memasukkan angka yang ingin dijadikan rumus terbilang pada sel A1. Jika format angka diinginkan dalam format yang lain, ganti saja parameter Rp#.##0,00 menjadi format yang kita inginkan.

Baca Juga :  Bagaimana Cara Mengurutkan Sesuai Abjad Di Excel

Cara Membuat Terbilang Di Excel 2010

Fungsi terbilang adalah fungsi yang digunakan untuk mengubah nilai numerik menjadi bentuk yang dimengerti oleh manusia, seperti huruf. Ketika menggunakan Excel 2010, langkah-langkah berikut ini dapat membantu Anda membuat rumus terbilang:

Langkah pertama adalah membuka dokumen Excel dan masukkan angka yang ingin diubah menjadi huruf dalam satu sel, misalnya A1.

Selanjutnya, tambahkan fungsi terbilang seperti berikut:

=TERBILANG(A1)

Setelah itu tekan Enter dan hasilnya akan muncul pada sel yang kosong di bawah rumus tersebut.

Terkadang, hasil terbilang menggunakan bahasa Inggris. Untuk mengubahnya menjadi bahasa Indonesia, gunakan rumus dalam bahasa Inggris terlebih dahulu kemudian menggunakan fungsi pencarian “Replace” di Excel. Berikut ini adalah langkah-langkahnya:

  1. Ketikkan dulu rumus terbilang dalam bahasa Inggris seperti berikut:
  2. =SPELLNUMBER(A1)

  3. Setelah itu, masukkan fungsi replace seperti berikut:
  4. =SUBSTITUTE(REPLACE(SUBSTITUTE(SPELLNUMBER(A1),"And ",""),1,1,""),"-","")

  5. Tekan Enter dan hasilnya akan muncul pada sel yang kosong di bawah rumus tersebut.

FAQ

1. Apakah rumus terbilang pada Excel bisa diubah menjadi format yang lebih mudah dibaca seperti tabel?

Jawabannya bisa. Untuk mengubah hasil terbilang pada Excel menjadi format tabel yang lebih mudah dibaca, gunakan rumus berikut:

=SPLIT(A1," ")

Rumus ini akan memecah setiap kata dalam hasil terbilang, sehingga lebih mudah dilihat dan dibaca. Kemudian, tambahkan fungsi “TRANSPOSE” dan “INDEX” seperti berikut:

=INDEX(TRANSPOSE(SPLIT(A1," "))&" "&IF(MOD(COLUMN(INDIRECT("A1:"&ADDRESS(1,COUNTA(SPLIT(A1," ")))))-1,3)=0,",",""),,)

Setelah itu, tekan Enter dan hasilnya akan muncul pada sel yang kosong di bawah rumus tersebut dalam bentuk tabel.

2. Apakah ada cara lain untuk membuat rumus terbilang pada Excel tanpa menggunakan rumus bawaan?

Jawabannya ada. Anda bisa menggunakan VBA atau Visual Basic for Applications untuk membuat rumus terbilang. Berikut ini adalah langkah-langkahnya:

  1. Buka dokumen Excel dan pilih tombol “Alt + F11” untuk membuka jendela VBA.
  2. Setelah itu, pilih “Insert” -> “Module” di menu bar.
  3. Selanjutnya, ketikkan kode VBA berikut:
  4.         Function TERBILANG(Optional ByVal dblBilangan As Double, _
            Optional ByVal lZero As Long) As String
            Dim bilangan As Variant
            Dim mataUang As Variant
            Dim arrAngka(0 To 11) As String
            Dim i As Integer
            arrAngka(0) = "nol"
            arrAngka(1) = "satu"
            arrAngka(2) = "dua"
            arrAngka(3) = "tiga"
            arrAngka(4) = "empat"
            arrAngka(5) = "lima"
            arrAngka(6) = "enam"
            arrAngka(7) = "tujuh"
            arrAngka(8) = "delapan"
            arrAngka(9) = "sembilan"
            arrAngka(10) = "sepuluh"
            arrAngka(11) = "sebelas"
            bilangan = Trim(Str(dblBilangan))
            If Len(bilangan) > 12 Then
                TERBILANG = "*** Telah lebih dari 12 digit ***"
                Exit Function
            End If
            mataUang = ""
            If Left(bilangan, 1) = "-" Then
                mataUang = "Minus "
                bilangan = Mid(bilangan, 2)
            End If
            Select Case Len(bilangan)
                Case 12: TERBILANG = TERBILANG _
                & Terbilang(Int(Left(bilangan, 1))) _
                & " Triliun " _
                & IIf(Mid(bilangan, 2, 3) _
                > "000", Terbilang(CLng(Mid(bilangan, 2, 3))) _
                & " Miliar ", "") _
                & IIf(Right(bilangan, 9) _
                > "00000000", Terbilang(CLng(Right _
                (bilangan, 9))) _
                , "") _
                & IIf(Right(bilangan, 9) _
                >= "1000000" And Right(bilangan, _
                9) <= "1999999", _
                "satu juta ", "") _
                & IIf(Right(bilangan, 9) >= "001000000" _
                And Right(bilangan, 9) <= "009999999" _
                , Terbilang(CLng(Mid(bilangan, 6, 3))) _
                & IIf(CLng(Mid(bilangan, 5, 1)) _
                > 0, " ratus ", "") _
                & IIf(Mid(bilangan, 5, 1) _
                = "1", "se", "") _
                & arrAngka(CLng(Mid(bilangan, 5, 1)) _
                Mod 10) _
                & IIf(Right(bilangan, 6) _
                = "00000", " juta ", "") _
                & IIf(Right(bilangan, 6) <= "200000" _
                And Right(bilangan, 6) _
                >= "200001", " "
                , "") Else IIf(Right(bilangan, 6) > "000000", _
                Terbilang(CLng(Right(bilangan, 6))) _
                , "")
                & IIf(Right(bilangan, 6) >= "001000" _
                And Right(bilangan, 6) <= "009999" _
                , IIf(Right(bilangan, 6) _
                <= "19000" And Len(bilangan) _
                > 6, "satu ribu ", "") _
                & Terbilang(CLng(Mid(bilangan, 4, 2))) _
                & IIf(Right(bilangan, 3) _
                = "000", " ", "") _
                & IIf(CLng(Right(bilangan, 3)) _
                >= "001" And CLng(Right(bilangan, 3)) _
                <= "999", " rupiah ", "")) _
                , "") & IIf(Right(bilangan, 3) _
                = "000" And Len(bilangan) > 9 _
                And Len(bilangan) <> 12, _
                " miliar ", "") _
                & IIf(Right(bilangan, 3) _
                = "000" And Len(bilangan) _
                >= 10 And Len(bilangan) _
                <> 12, "", "") _
                & IIf(Right(bilangan, 3) _
                = "000" And Len(bilangan) _
                >= 7 And Len(bilangan) _
                < 10, " juta ", "") _
                & IIf(Right(bilangan, 3) _
                = "000", "", "") _
                & IIf(Right(bilangan, 2) _
                <= "11" And Len(bilangan) _
                >= 1, IIf(Right _
                (bilangan, 2) = "01", "seribu", _
                IIf(Right(bilangan, 2) = "11", _
                "sebelas", _
                IIf(Right(bilangan, 1) _
                = "1", "satu", "") _
                & IIf(Right _
                (bilangan, 1) = "0", "nol", "") _
                & arrAngka(CLng(Right(bilangan, 1))) _
                ))) _
                & IIf(Right(bilangan, 2) > "11" _
                And Right(bilangan, 2) _
                < "20" And Len(bilangan) _
                >= 1, arrAngka _
                (CLng(Right _
                (bilangan, 1))) & " belas" _
                , "") _
                & IIf(Right _
                (bilangan, 2) >= "20" _
                And Len(bilangan) >= 1 _
                And CLng(Right(bilangan, 1)) _
                > 0, _
                arrAngka(CLng(Right _
                (bilangan, 1))) _
                & " puluh ", "") _
                & IIf(Right(bilangan, 1) <> "0" _
                And Len(bilangan) >= 1, _
                mataUang & arrAngka _
                (CLng(Right(bilangan, 1))) _
                , "") & IIf(Right(bilangan, 2) _
                = "00", "", "") & mataUang
            End Select
            End Function
        
  5. Setelah kode VBA ditulis, simpan module dan kembali ke dokumen Excel.
  6. Masukkan angka pada sel yang ingin diubah menjadi huruf dan tambahkan fungsi VBA seperti berikut:
  7. =TERBILANG(A1)

  8. Sekarang, apabila kita memasukkan angka pada sel yang diinginkan, rumus terbilang masih tetap muncul seperti biasa.
Baca Juga :  Cara Membuat Nomor Di Excel

Video Panduan: Cara Mudah Membuat Rumus Terbilang di Microsoft Excel

Berikut adalah video panduan yang dapat membantu Anda dalam membuat rumus terbilang di Microsoft Excel:

Dengan tutorial di atas, Anda sudah bisa membuat rumus terbilang pada Microsoft Excel tanpa plugin atau menggunakan rumus bawaan. Semoga bermanfaat!