Modul Macro dalam Excel

Rumus Terbilang

Dengan menggunakan modul Macro, silahkan sobat ikuti langkah2 berikut

1. Buka Work Sheet Excel Baru
2. Letakkan Pointer di Sel A1
3. Click Tool >> Macro >> Visual Basic Editor
4. Di Visual Basic click Insert >> Module
5. Copy kan Fungsi di bawah ini ke Macro Module:

Public Function TERBILANG(x As Double) As String Dim tampung As Double Dim teks As String Dim bagian As String Dim i As Integer Dim tanda As Boolean Dim letak(5) letak(1) = "RIBU " letak(2) = "JUTA " letak(3) = "MILYAR " letak(4) = "TRILYUN " If (x < terbilang = "" x =" 0)" terbilang = "NOL" tanda =" True" teks = "">= 1E+15) Then TERBILANG = "NILAI TERLALU BESAR" Exit Function End If For i = 4 To 1 Step -1 tampung = Int(x / (10 ^ (3 * i))) If (tampung > 0) Then bagian = ratusan(tampung, tanda) teks = teks & bagian & letak(i) End If x = x - tampung * (10 ^ (3 * i)) Next teks = teks & ratusan(x, False) TERBILANG = teks End Function Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String Dim tmp As Double Dim bilang As String Dim bag As String Dim j As Integer Dim angka(9) angka(1) = "SE" angka(2) = "DUA " angka(3) = "TIGA " angka(4) = "EMPAT " angka(5) = "LIMA " angka(6) = "ENAM " angka(7) = "TUJUH " angka(8) = "DELAPAN " angka(9) = "SEMBILAN " Dim posisi(2) posisi(1) = "PULUH " posisi(2) = "RATUS " bilang = "" For j = 2 To 1 Step -1 tmp = Int(y / (10 ^ j)) If (tmp > 0) Then bag = angka(tmp) If (j = 1 And tmp = 1) Then y = y - tmp * 10 ^ j If (y >= 1) Then posisi(j) = "BELAS " Else angka(y) = "SE" End If bilang = bilang & angka(y) & posisi(j) ratusan = bilang Exit Function Else bilang = bilang & bag & posisi(j) End If End If y = y - tmp * 10 ^ j Next If (flag = False) Then angka(1) = "SATU " End If bilang = bilang & angka(y) ratusan = bilang End Function

Jika sudah, sailhkan save di Macro


Udah Sob, abis itu balik ke Work Sheet Excel yg pertama tadi
Di sel B1 isikan formula “=terbilang(A1)
Jika setelah Enter muncul kata “NOL” berarti formula di terima
Silahkan tes, dengan mengisi angka berapapun di sel A1

Selamat mencoba