style="margin-left: 1em; margin-right: 1em;"
>
data-original-height="667"
data-original-width="1009"
src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmabjcMGbLWsXsIWFFWsDkK9UaK2NBbkEXaO-27RmwiS9L6zgXJVr8Rzwe59h74lXP_hx4l-uwMSEaKmFzSmnXdo7QKLS-QXLRTWiyj6FBTvyQkGMKXbqsZFREjar4JNWTSsgAIzofteCM56lyMJtLENZUBYQRvUGpyGP-wgYJMEbH_Y4tyOXbDWUz/s16000/terbilangs.png"
/>
Rumus Terbilang adalah rumus untuk merubah angka menjadi huruf misalnya
dalam excel kita menuliskan angka 10.000 dan kita akan merubahnya menjadi
huruf "Sepuluh Ribu". Dengan rumus Terbilang kita tidak akan lagi mengetik
manual, kita tahu sendiri jika kita capek, lelah dengan pekerjaan terkadang
kita salah menuliskannya.
Rumus Terbilang ini sudah umum digunakan dalam pekerjaan seperti membuat
kwitansi, tanda terima atau nota penjulan dan lainnya, Bagaimana caranya?
Ikuti cara berikut :
Buka Excel anda dan buat "Blank workbook"
Lalu tekan Alt+F11 atau Fn+Alt+F11 pada keyboard anda.
Nanti akan muncul Window seperti gambar dibawah ini
style="margin-left: 1em; margin-right: 1em;"
>
data-original-height="680"
data-original-width="965"
src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiQ732UG60WEzQyaxaxehprgSPGZZDiDHSNvT12Bt_73sNBGQC7WF0cJKniomXiuzAudzUGIMVtw84AYH0ZnrWOTg8y6e2FLUhL5XhjBU1xCzHNHUwG6fImogE_5szYHw_lBGT-p14CzWQ/s16000/vbaa.png"
/>
Lalu buatlah 1 buah module seperti gambar dibawah ini
style="margin-left: 1em; margin-right: 1em;"
>
data-original-height="680"
data-original-width="965"
src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizH8Qem4obPnhByOTttkap0Isa-4M5UP9bqRiHIeg6_5VrKLSw_waQXOW3EuB3EAZ202JkDdHccU_id8Wg76SXasHVFn4xSyySvB89wqwC1TCZ_AN-Tho8kRt_9KHdCP2d-pVYQs5qW0I/s16000/vbaa2.png"
/>
Jika sudah copy dan pastekan code dibawah ini pada module yang anda buat tadi
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 < 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 = "Nol Rupiah."
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 & " Rupiah."
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
>
Jadinya seperti gambar dibawah ini
style="margin-left: 1em; margin-right: 1em;"
>
data-original-height="680"
data-original-width="965"
src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHtT0AqZ3oqyhzZ_aqFZFiKko-3JKm5vEujaDYA1Rpkk3XgdP2rz9D5Xy98WpqNE-GSj76yBQQ1fsVpZpXV8m9a9C2D-DDxegWH9ubNRDoOHJ2SUMTenw4rE5sFqIvukI0pwKbF59YX9Y/s16000/vbaa3.png"
/>
Simpan dan tutup windownya, Selanjutnya kembali ke Workbook dan ketikkan Rumus
Formula Terbilang dengan cara =Terbilang(Cell), contohnya seperti dibawah ini
style="margin-left: 1em; margin-right: 1em;"
>
data-original-height="555"
data-original-width="960"
src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjwIto9o0ZLzPaQ79K1_KJi1Q6Tb8F-lezJUxoMXJiziU2_n18Ll8RVEGN1vwT4SYkD66HEntMDHWv_DMc6OVRrT8oytnlvRk94S8SHYMv1UTjqpXbmgqAkr37KW1xuMMjL_hH3UPBwRsY/s16000/vbaa4.png"
/>
Jika anda kesulitan anda bisa download Add-ins yang sudah saya siapkan untuk
anda. Silahkan Download file di bawah ini.
target="_blank"
> Download >
Cara Pasang Add-ins lihat pada tutorial
target="_blank"
> Titorial >