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

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.

  3. Pilih Developer > Visual Basic (atau tekan tombol Alt + F11 pada keyboard) untuk membuka Editor VBA.

  5. Pilih Insert > Module untuk membuat modul baru.

  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.