Plugin terbilang untuk rubah angka ke dalam teks rupiah di ms excel

Table of Contents

Plugin terbilang untuk angka ke dalam teks rupiah di ms excel

Excel adalah aplikasi pengolah data yang sangat populer, memduahkan kita dalam pengolahan data, dalam penggunaannya excel sering kali dipakai untuk pengolahan data berupa perhitungan nilai, pembuatan kwitansi, pembuatan rencana anggaran dan biaya dan masih banyak lagi, pada kesempatan ini javasetid.com akan membahas cara menambahkan plugin terbilang yang berguna untuk memunculkan nilai bilangan dengan teks.

Sebagai contoh perhatikan perhitungan pada tabel berikut ini:

sebelum di tambahkan plugin

Pada gambar untuk membuat terbilang kedalam teks tidak dapat dilakukan walaupun rumus yang dibuat sudah benar, untuk menggunakan fungsi terbilang tersebut kita membutuhkan yang namanya plugin terbilang untuk kode plugin terbilangnya kurang lebih seperti ini kodenya.

Function Terbilang(ByVal X As Double) As String
Dim huruf As String
Dim angka As String
Dim satuan() As String
Dim belasan() As String
Dim puluhan() As String
Dim ratusan() As String
Dim posisi As Integer
Dim batas As Integer
Dim temp As String
satuan = Split("satu dua tiga empat lima enam tujuh delapan sembilan", " ")
belasan = Split("sepuluh sebelas dua belas tiga belas empat belas lima belas enam belas tujuh belas delapan belas sembilan belas", " ")
puluhan = Split("dua puluh tiga puluh empat puluh lima puluh enam puluh tujuh puluh delapan puluh sembilan puluh", " ")
ratusan = Split("seratus dua ratus tiga ratus empat ratus lima ratus enam ratus tujuh ratus delapan ratus sembilan ratus", " ")
X = Int(Abs(X))
If X >= 1000000000000# Then
Terbilang = "Nilai terlalu besar!"
Exit Function
End If
Do While X <> 0
If X >= 1000000000 Then
posisi = Int(X / 1000000000)
batas = posisi * 1000000000
temp = Terbilang(posisi) & " milyar "
ElseIf X >= 1000000 Then
posisi = Int(X / 1000000)
batas = posisi * 1000000
temp = Terbilang(posisi) & " juta "
ElseIf X >= 1000 Then
posisi = Int(X / 1000)
batas = posisi * 1000
temp = Terbilang(posisi) & " ribu "
Else
posisi = X
batas = X
temp = ""
End If
X = X - batas
If posisi >= 100 Then
temp = temp & ratusan(posisi \ 100 - 1) & " "
posisi = posisi Mod 100
End If
If posisi >= 20 Then
temp = temp & puluhan(posisi \ 10 - 2) & " "
posisi = posisi Mod 10
End If
If posisi >= 10 Then
temp = temp & belasan(posisi - 10) & " "
posisi = 0
End If
If posisi > 0 Then
temp = temp & satuan(posisi - 1) & " "
End If
If Right(temp, 1) = " " Then
temp = Left(temp, Len(temp) - 1)
End If
huruf = huruf & temp
Loop
Terbilang = huruf
End Function

Kode diatas adalah isi dari macro terbilang yang kita gunakan, agar macro ini dapat berfungsi maka kita harus menambahkan pluginnya kedalam excel kita kurang lebih seperti ini.

cara menambahkan add-ins terbilang

Setelah itu sobat sudah bisa menggunakannya dan hasilnya seperti berikut ini.

pemakaian rumus terbilang

Pada gambar A terlihat bahwa rumus belum di tambahkan sehingga hasilnya adalah #NAME? pada gambar B plugin telah ditambahkan dan hasilnya adalah bilangan berubah jadi teks dari nilai yang di buat, cara ini bisa sobat pakai pada aplikasi excel 2007, 2010, 2013,2016 sampai yang terbaru juga bisa.

KESIMPULAN

Untuk menggunakan rumus terbilang kita harus menambahkan plugin pada ms excel kita, oleh karena itu jika sobat membutuhkan pluginnya dalam mengunduh melalui link yang telah kami sediakan terimakasih.

plugin terbilang disini