Ada kalanya kita ingin membuat laporan yang mengharuskan ada kalimat terbilangnya, misalnya untuk membuat kuitansi, nota atau lainnya yang harus ada kata terbilangnya. Misalnya angka Rp. 2.300.000,00 menjadi “Dua Juta Tiga Ratus Ribu Rupiah”.
 |
| Ilutrrasi. Terbilang. |
Bagaimana cara membuatnya di dalam SpreeatSheet Excel? Langkah pertama marilah mulai dengan membuka aplikasi Microsoft Excel dan membuat file baru. Kemudian pilih menu View pada bagian atas menu Excel.
 |
| Tampilan Menu View pada MS Excel |
Pada bagian kanan menu tersebut ada menu Macros. Pilihlah menu ini. Di dalamnya ada pilihan View Macros. Klik saja menu tersebut sehingga tampilan Excel seperti dibawah ini:
 |
| Tampilan Menu VBAProject di menu Macros Excel |
Pada menu ini klik Macro name. Di box ini silahkan ketik nama macro yang diinginkan. Misalnya ketik saja: terterbilang (tanpa spasi). Dibagian bawah ada pilihan menu Create yang aktif, silahkan klik. Tampilan Excel akan memunculkan VBAProject seperti dibawah ini.
 |
| Tulis nama macro disini |
Pindahkan kode dibawah ini kedalam box module1(code) yang ada dibawah VBAProject.
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) = "Triliun "
If (x < 0) Then
TERBILANG = ""
Exit Function
End If
If (x = 0) Then
TERBILANG = "Nol"
Exit Function
End If
If (x < 2000) Then
tanda = True
End If
teks = ""
If (x >= 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 = bilangan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next
teks = teks & bilangan(x, False)
TERBILANG = teks & "Rupiah"
End Function
Function bilangan(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)
bilangan = bilang
End Function
Kemudian simpan kode Visual Basic Macro diatas. Kemudian tutuplah menu
Macros diatas dan kembali ke SpreatSheet. Ketiklah angka pada cell B2.
Kemudian ketik angka ini: 6.700.000,00. Selanjutnya pada cell B3
ketiklah rumus fungsi berikut ini: =terbilang(B2) kemudian enter. Maka
nanti pada cell B3 akan tertulis Enam Juta Tujuh Ratus Ribu Rupiah.
Selamat Mencoba.
