Belajar Fungsi Terbilang di Microsoft Excel

Fungsi Terbilang

Microsoft Excel adalah salah satu aplikasi pengolah angka dengan fitur lengkap yang sangat fleksibel. Tidak hanya digunakan untuk perhitungan dan analisis data, Excel juga dapat dikustomisasi untuk menampilkan angka dalam bentuk teks terbilang, seperti “Seratus Ribu Rupiah”. Fungsi ini sangat berguna terutama dalam dunia akuntansi, administrasi keuangan, dan pembuatan kwitansi. Dalam artikel ini, kita akan membahas cara belajar fungsi terbilang di Microsoft Excel secara lengkap dan mudah dipahami.

Apa Itu Fungsi Terbilang di Excel?

Fungsi terbilang adalah fitur yang digunakan untuk mengubah angka menjadi huruf atau teks. Contohnya, angka 150000 akan diubah menjadi “Seratus Lima Puluh Ribu”. Excel secara bawaan tidak memiliki fungsi =TERBILANG() seperti fungsi =SUM() atau =IF(). Oleh karena itu, kita perlu menambahkan macro atau Add-Ins khusus agar fungsi ini bisa berjalan.

Kapan Fungsi Terbilang Digunakan?

Fungsi terbilang biasa digunakan untuk keperluan dokumen-dokumen berikut:

  • Kwitansi pembayaran

  • Faktur (invoice)

  • Nota pembelian

  • Form laporan keuangan

  • Slip gaji

Dengan menambahkan teks terbilang, dokumen akan menjadi lebih profesional dan mengurangi risiko kesalahan angka.

Baca Juga: Perjalanan Bisnis Lebih Efisien dengan Sewa Mobil Malang Harian

Cara Mengaktifkan Fungsi Terbilang di Microsoft Excel

Berikut cara menggunakan fungsi terbilang di Excel dengan cara termudah yakni VBA (Visual Basic for Applications):

1. Buka Excel dan Masuk ke Visual Basic

  • Tekan Alt + F11 untuk membuka fitur Visual Basic

  • Klik Insert > Module

2. Salin Kode Fungsi Terbilang

Salin skrip VBA yang sudah kami siapakan berikut dan tempelkan ke jendela module:

Function Terbilang(ByVal X As Double) As String
Dim Kata As String
Dim Satuan As Variant
Dim Angka As Variant
Dim i As Integer

Satuan = Array("", "Ribu", "Juta", "Milyar", "Triliun")
Angka = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan")

If X = 0 Then
Terbilang = "Nol"
Exit Function
End If

i = 0
Do While X >= 1
Dim Sisa As Integer
Sisa = X Mod 1000
If Sisa > 0 Then
Kata = GetRatusan(Sisa, Angka) & " " & Satuan(i) & " " & Kata
End If
X = Int(X / 1000)
i = i + 1
Loop
Terbilang = Application.WorksheetFunction.Trim(Kata)
End Function

Private Function GetRatusan(ByVal X As Integer, Angka As Variant) As String
Dim Ratus, Puluh, Sisa As Integer
Dim Teks As String

Ratus = Int(X / 100)
Puluh = Int((X Mod 100) / 10)
Sisa = X Mod 10

If Ratus > 0 Then
If Ratus = 1 Then
Teks = "Seratus "
Else
Teks = Angka(Ratus) & " Ratus "
End If
End If

If Puluh > 0 Then
If Puluh = 1 Then
If Sisa = 0 Then
Teks = Teks & "Sepuluh"
ElseIf Sisa = 1 Then
Teks = Teks & "Sebelas"
Else
Teks = Teks & Angka(Sisa) & " Belas"
End If
GetRatusan = Teks
Exit Function
Else
Teks = Teks & Angka(Puluh) & " Puluh "
End If
End If

If Sisa > 0 And Puluh <> 1 Then
Teks = Teks & Angka(Sisa)
End If

GetRatusan = Teks
End Function

3. Kembali ke Excel dan Gunakan Fungsi Terbilang

Setelah menempelkan kode tersebut, kembali ke Excel dan gunakan rumus berikut:

=Terbilang(A1)

Jika sel A1 berisi angka 25000, maka hasilnya akan menjadi:
“Dua Puluh Lima Ribu”

Tips Tambahan

  • Apabila ingin menambahkan kata “Rupiah” di akhir hasil, gunakan:

    =Terbilang(A1) & " Rupiah"
  • Simpan file dalam format .xlsm (Macro-Enabled Workbook) agar fungsi terbilang tetap aktif.

Meskipun tidak tersedia secara default, Anda bisa dengan mudah membuat fungsi terbilang di Microsoft Excel menggunakan VBA. Dengan menambahkan fitur ini, Anda dapat meningkatkan profesionalitas dan akurasi dokumen keuangan, serta menghindari kesalahan penulisan nilai angka.

Dengan mengikuti langkah-langkah dalam belajar fungsi terbilang di Microsoft Excel dar spmb-ptain.ac.id  ini, Anda sekarang bisa mengubah angka menjadi teks otomatis dan siap digunakan dalam berbagai laporan penting.

Bagikan:

Related Post

Spmb-ptain.ac.id