Cara Memasang Fungsi External Terbilang Pada Microsoft Office Excel

Halo sahabat Adar, kali ini Adar akan membagi informasi mengenai cara pemasangan Fungsi External Terbilang pada Microsoft Office Excel sesuai dengan salah satu permintaan sahabat Adar. Adapun Fungsi Terbilang tersebut dibuat bertujuan untuk memudahkan kita dalam pengejaan angka pada Microsoft Office Excel. Fungsi Terbilang seringkali digunakan pada pengolaan data administrasi perkantoran.

Tidak perlu menunggu lebih lama lagi Adar akan memulai langkah-langkah pemasangan Fungsi Terbilang tersebut.

Buka Program Microsoft Office Excel Pada lembar kerja (Sheet1) atau terserah di sheet yang mana tekan ALT + F11, kalian akan diarahkan ke lembar kerja Microsoft Visual Basic seperti pada gambar berikut.

Pada jendela Microsoft Visual Basic klik Insert - Module dan pastekan Code dibawah pada kotak dialog Module seperti pada gambar berikut.

Function Terbilang(n As Long) As String 'max 2.147.483.647
Dim satuan As Variant, Minus As Boolean
On Error GoTo terbilang_error
satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
If n < 0 Then
Minus = True
n = n * -1
End If
Select Case n
Case 0 To 11
Terbilang = " " + satuan(Fix(n))
Case 12 To 19
Terbilang = Terbilang(n Mod 10) + " Belas"
Case 20 To 99
Terbilang = Terbilang(Fix(n / 10)) + " Puluh" + Terbilang(n Mod 10)
Case 100 To 199
Terbilang = " Seratus" + Terbilang(n - 100)
Case 200 To 999
Terbilang = Terbilang(Fix(n / 100)) + " Ratus" + Terbilang(n Mod 100)
Case 1000 To 1999
Terbilang = " Seribu" + Terbilang(n - 1000)
Case 2000 To 999999
Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + Terbilang(n Mod 1000)
Case 1000000 To 999999999
Terbilang = Terbilang(Fix(n / 1000000)) + " Juta" + Terbilang(n Mod 1000000)
Case Else
Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n Mod 1000000000)
End Select
If Minus = True Then
Terbilang = "Minus" + Terbilang
End If
Exit Function
terbilang_error:
MsgBox Err.Description, vbCritical, "^_^Terbilang Error"
End Function

Selanjutnya sahabat Adar simpan module tersebut dengan nama terbilang dan Extension Add In (.xla) pada drive yang kita inginkan.

Setelah file Add In sudah dibuat, selanjutnya dengan memasukkannya pada Microsoft Office Excel.
Buka lagi Program Microsoft Office Excel Pada menu lembar kerja (Sheet1) klik File - Options kemudian akan muncul kotak dialog seperti berikut.

Pada kotak dialog Excel Options klik Add-ins dan akan muncul kotak dialog lagi seperti berikut ini.

Setelah itu akan muncul lagi kotak dialog sebagai berikut.

Cari file terbilang.xla yang telah kalian buat sebelumnya dengan mengikuti gambar berikut dan terakhir klik OK.

Jika kota dialog Add-ins sudah terdapat terbilang dengan tanda centang seperti pada gambar berikut maka file Add-in terbilang sudah berhasil ditambahkan dan Fungsi Terbilang pada Microsoft Office Excel sudah dapat digunakan.

Contoh penggunaan Fungsi Terbilang dapat dilihat pada gambar berikut

Terima kasih telah membaca sampai jumpa dipembahasan seputar Excel dengan Visual Basic berikutnya, semoga bermanfaat.

 *****