2 Cara Mengubah Nilai Angka Menjadi Huruf atau Teks Terbilang di Excel

Mengubah nilai angka menjadi huruf atau teks terbilang di Excel adalah salah satu fitur yang sangat berguna terutama dalam pembuatan laporan keuangan. Terdapat dua cara untuk mengubah nilai angka menjadi huruf atau teks terbilang di Excel. 

Membuat terbilang di Excel adalah salah satu fitur yang sangat berguna, terutama dalam pembuatan laporan keuangan. Terdapat dua cara untuk membuat terbilang di Excel, yaitu menggunakan fungsi terbilang bawaan Excel dan menggunakan macro VBA (Visual Basic for Applications).

Berikut adalah penjelasan tentang kedua cara tersebut:

Cara 1: Menggunakan Fungsi Terbilang

Fungsi terbilang adalah salah satu fungsi bawaan Excel yang dapat digunakan untuk mengubah nilai angka menjadi teks terbilang. Berikut langkah-langkahnya:

1. Pastikan bahwa angka yang ingin diubah sudah berada di sel yang tepat.
2. Pilih sel tempat Anda ingin menampilkan hasil teks terbilang.
3. Ketikkan rumus =TERBILANG(A1) di dalam sel tersebut (misalnya, A1 adalah sel dengan angka yang ingin diubah menjadi teks terbilang).
4. Tekan tombol Enter pada keyboard, dan hasil teks terbilang akan muncul di sel yang Anda pilih.
5. Jika ingin menyalin rumus tersebut ke sel lain, cukup pilih sel yang berisi rumus dan seret atau salin ke sel lainnya.

Cara 2: Menggunakan Fungsi VBA

Selain menggunakan fungsi TERBILANG, kita juga dapat menggunakan kode VBA (Visual Basic for Applications) untuk mengubah nilai angka menjadi teks terbilang di Excel. Berikut langkah-langkahnya:

1. Buka file Excel yang ingin diubah nilai angkanya menjadi teks terbilang.
2. 
   
3. Pilih Developer > Visual Basic (atau tekan tombol Alt + F11 pada keyboard) untuk membuka Editor VBA.
4. 
   
5. Pilih Insert > Module untuk membuat modul baru.
6. 
   
7. Ketikkan kode VBA berikut ini:

Function Terbilang(ByVal X As Double) As String

  Dim bilangan As Variant, _

      bilangankecil As Variant, _

      pecahan As Variant, _

      hasil As String

  Dim huruf() As String, _

      hurufkecil() As String, _

      satuan() As String

  Dim i As Integer, _

      j As Integer, _

      k As Integer, _

      n As Integer

  huruf = Split("Nol Satu Dua Tiga Empat Lima Enam Tujuh Delapan Sembilan Sepuluh Sebelas", " ")

  hurufkecil = Split("nol satu dua tiga empat lima enam tujuh delapan sembilan sepuluh sebelas", " ")

  satuan = Split("Ribu Juta Milyar Triliun Quadriliun", " ")

  bilangan = Format(X, "##############0.00")

  If X < 0 Then

      hasil = "Minus "

  End If

  If bilangan = "0.00" Then

      Terbilang = "Nol Rupiah"

      Exit Function

  End If

  bilangankecil = Int(bilangan)

  pecahan = (bilangan - bilangankecil) * 100

  If bilangankecil < 12 Then

      hasil = hasil & huruf(bilangankecil)

  ElseIf bilangankecil < 20 Then

      hasil = hasil & huruf(bilangankecil - 10) & " Belas "

  ElseIf bilangankecil < 100 Then

      hasil = hasil & huruf(Int(bilangankecil

Demikian artikel tentang Cara Mengubah Nilai Angka Menjadi Huruf atau Teks Terbilang di Excel yang bisa admin kupas, semoga ini bisa bermanfaat jangan lupa share artikel ini.