VARIASI-KOMBINASI ADD-IN TERBILANG – Belajar Microsoft Excel : Tips, Tricks & Tutorial

VARIASI-KOMBINASI ADD-IN TERBILANG

Fungsi terbilang nyang saya bikin bole jadi kliwat sederhana bangeth, karena cuman bisa mengubah dari format angka menjadi kalimat terbilang, bahkan dibandingin dengan fungsi rupiah nyang telah lebih dolo saya bikin, nyang dapat menghasilkan satuan nyang telah ditentukan dibelakang kalimat terbilang. Namun ada beberapa kelebihan fungsi terbilang 23 baris yang saya udah bikin :

  1. cuman 23 baris kode, nyang sebenarnya dapat saya singkat menjadi 20 baris aja
  2. sanggup menangani sampai dengan 15 digit angka dengan nilai maksimal 999.999.999.999.999 (“Sembilanratus Sembilanpuluh Sembilan Triliun Sembilanratus Sembilanpuluh Sembilan Miliar Sembilanratus Sembilanpuluh Sembilan Juta Sembilanratus Sembilanpuluh Sembilan Ribu Sembilanratus Sembilanpuluh Sembilan “).
  3. penulisan sudah sesuai dengan EYD ….  MDLMDL(Monggo Dipun Leresaken Menawi Dalem Lepat) 😉

ini kodenyah yang 20 baris:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Function terb20(x As Double) As String
ANGKA = Array(“”, “Se”, “Dua”, “Tiga”, “Empat”, “Lima”, “Enam”, “Tujuh”, “Delapan”, “Sembilan”, “Sepuluh”, “Sebelas”, “Duabelas”, “Tigabelas”, “Empatbelas”, “Limabelas”, “Enambelas”, “Tujuhbelas”, “Delapanbelas”, “Sembilanbelas”)
LEVEL = Array(“Triliun “, “Miliar “, “Juta “, “Ribu “, “”)
For i = 0 To 4
TEMPRP = “”
If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 1 + (3 * i), 1) > 0 Then TEMPRP = ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 1 + (3 * i), 1)) & “ratus ”
If Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2) < 20 Then
TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 2))
Else
TEMPRP = TEMPRP & ANGKA(Mid(Right(“000000000000000” & Abs(Round(x, 0)), 15), 2 + (3 * i), 1)) & “puluh ” & ANGKA(Mid(Right(“000000000000000″ & Abs(Round(x, 0)), 15), 3 + (3 * i), 1))
End If
If Right(TEMPRP, 1) ” ” Then TEMPRP = TEMPRP & ” ”
BERILEVEL:
If TEMPRP ” ” Then TEMPRP = TEMPRP & LEVEL(i)
If TEMPRP = “Se Ribu ” Then TEMPRP = “Seribu ”
If TEMPRP ” ” Then terb20 = Application.WorksheetFunction.Substitute(terb20 & TEMPRP, “Se “, “Satu “)
Next i
If Abs(Round(x, 0)) = 0 Then terb20 = “Nol ”
If x < 0 Then terb20 = “Minus ” & terb20
End Function

bukannya nantangin pinter2 excel tapi kalo ada nyang lebih pendek dengan spek kaya diatas saya pengen belajar, sungguh ….

Hasil yang dikeluarkan oleh fungsi ini bole jadi belum bisa memenuhi kebutuhan anda, namun dengan sedikit kreativitas fungsi ini dapat dibongkar-pasang/digabung dengan fungsi2 bawaan excel laennya biyar bisa memenuhi kebutuhan anda

Berikut beberapa variasi dari kombinasi fungsi terbilang dengan formula bawaan excel

Menambah satuan

Penggabungan dengan fungsi excel sudah saya singgung sedikit pada artikel ADD-INS TERBILANG 23 BARIS yang bakal menghasilkan terbilang dengan penambahan satuan dibelakang. berikoot beberapa contonya :

  • =terbilang(1)&” kg” akan menghasilkan  Satu Kg
  • =terbilang(12)&” dozin” akan menghasilkan Duabelas dozin
  • =terbilang(123)&” buah” akan menghasilkan Seratus Duapuluh Tiga buah
  • =terbilang(4567)&” rupiah” akan menghasilkan Empat Ribu Limaratus Enampuluh Tujuh rupiah
  • =terbilang(-24)&” derajat” akan menghasilkan Minus Duapuluh Empat derajat

Merubah besar kecil huruf

Secara default kalimat terbilang nyang dihasilkan bakal menampilkan HURUF KAPITAL pada tiyap awal kata, seperti fungsi PROPER pada Excel, untuk merubah besar-kecil hurup yang digunakan, perhatikan pariasi formula2 berikoot :

  • =TERBILANG(123) akan menghasilkan Seratus Duapuluh Tiga
  • =PROPER(TERBILANG(123)) akan menghasilkan Seratus Duapluuh Tiga
  • =LOWER(TERBILANG(123)) akan mengasilkan seratus duapuluh tiga
  • =UPPER(TERBILANG(123)) akan menghasilkan SERATUS DUAPULUH TIGA

Penanganan angka2 desimal

Untuk penanganan angka2 desimal nyang memakai koma ada penambahan fungsi khusus, yaitu fungsi AKK (angka ke kata) yang saya sertakan dalam file conto nyang bisa anda donloth, conto liyat gambar berikoot :

skrinsyut : variasi kombinasi tebilang
  • tentukan nilai yang akan di konvesri, misal 123.456789; pada cell C2 ketikkan  >>   123.456789
  • bulatkan nilai c2 ke bawah tanpa koma dengan cara pada cell C3 ketikkan  >>   =ROUNDDOWN(C2;0) ; kemudian pada cell D3 ketikkan >>    =TERBILANG(C3)  , untuk mencari terbilangnya.
  • tentukan jumlah digit angka setelah koma yang akan diproses, dalam hal ini 3 angka dibelakang koma; pada cell C4 ketikkan  >>   =ROUND(10^3*(C2-C3);0)
  • dalam hal angka setelah koma disebut langsung satu persatu (tidak menggunakan kalimat terbilang), digunakan fungsi tambahan AKK(Angka Ke Kata) seperti contoh berikut pada cell D4 ketikkan  >>   =AKK(C4)
  • hasil D3 digabung dengan D4 dengan menyisipkan kata koma diantaranya dengan cara pada cell D5 ketikkan >> =$D$3&”koma “&D4
  • hasil D3 digabung dengan E4 dengan menyisipkan kata koma diantaranya dengan cara pada cell E5 ketikkan >> =$D$3&”koma “&E4

cara diatas dilakukan secara bertahap agar lebih mudah dimengerti sehingga dibutuhkan beberapa cell, jika digabung dalam satu cell formulanya akan seperti berikut :

  • pada cell D6 ketikkan  >> =TERBILANG(ROUNDDOWN($C$2;0))&”koma “&TERBILANG(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))
  • pada cell E6 ketikkan  >> =TERBILANG(ROUNDDOWN($C$2;0))&”koma “&akk(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))

untuk penggunaan dua satuan, misal “……. rupiah …….sen” perhatikan contoh berikut ;

  • pada cell D7 ketikkan >>  =TERBILANG(ROUNDDOWN($C$2;0))&”Rupiah “&TERBILANG(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))&”Sen”
  • pada cell E7 ketikkan >> =TERBILANG(ROUNDDOWN($C$2;0))&”Rupiah “&akk(ROUND(10^3*($C$2-ROUNDDOWN($C$2;0));0))&”Sen”

untuk lebih jelas anda bisa mendownload file variasi terbilang.xls, didalamnya berisi kode fungsi terbilang 20 baris dan fungsi AKK(Angka Ke Kata), untuk merubahnya menjadi add-in bisa anda save as sebagai ms excel add-in, caranya bisa anda baca di artikel2 berikoot :
ADD-INS RUPIAH
TIPS ADD-INS RUPIAH
ADD-INS TERBILANG 23 BARIS

bingung cara downloadnya ??

Baca aja halaman download dengan klik icon di samping

feed , email and my social media

28 Comments

Jika sOdara menemukan sesuatu yang bermanpaat di marih .... silahkan kasih komennya