RUMUS TERBILANG OTOMATIS EXCEL 2007 2010 2013 2016 2019 SEMUA VERSI
RUMUS TERBILANG EXCEL (UNTUK SEMUA VERSI EXCEL | EXCEL 2007 2010 2013 2016 2019)
Cara memasukkan rumus terbilang pada excel adalah dengan menambahkan module pada excel. Caranya adalah sebagai berikut :
1. Pastikan mode developer sudah aktif
2. Klik pada menu "VISUAL BASIC"
3. Kemudian tambahkan/insert MODULE
4. Lalu copy paste kode ini di module tersebut
5. Lalu di cell excel, rumus bisa ditambahkan dengan cara mengetik "=Terbilang(A1)" misalnya untuk terilang angka di sel A1
Kode macro terbilang:
Option Explicit
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 pecah As Double
Dim blkg As String
Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "
' ini untuk angka di belakang koma
If (Int(X) <> X) Then
pecah = Round(X - Int(X), 4)
blkg = belakang(pecah)
X = Int(X)
Else
blkg = ""
End If
'''
If (X = 0) Then
Terbilang = "nol " & blkg
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 = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
X = X - tampung * (10 ^ (3 * i))
Next
teks = teks & ratusan(X, False)
Terbilang = teks & blkg
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
Function belakang(ByVal pch As Double) As String
Dim strblk(10)
Dim pj As Integer
Dim strpch As String
Dim i As Integer
Dim strbel As String
Dim tmp As String
strblk(1) = "nol "
strblk(2) = "satu "
strblk(3) = "dua "
strblk(4) = "tiga "
strblk(5) = "empat "
strblk(6) = "lima "
strblk(7) = "enam "
strblk(8) = "tujuh "
strblk(9) = "delapan "
strblk(10) = "sembilan "
strbel = ""
strpch = Str(pch)
pj = Len(strpch)
For i = 3 To pj
tmp = Mid(strpch, i, 1)
strbel = strbel & strblk(CInt(tmp) + 1)
Next
belakang = "koma " & strbel
End Function
Selain menggunakan kode VBA ini, kita bisa menggunakan rumus langsung di excel. Sehingga kita bisa menyimpannya ke format excel biasa. Daripada menggunakan VBA yang harus disimpan dalam format macro-enabled (XLSM).
Berikut rumus terbilang:
=IF(A1=0;"nol";IF(A1<0;"minus ";"")& SUBSTITUTE(TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( IF(--MID(TEXT(ABS(A1);"000000000000000");1;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");1;1)&" ratus "&MID(TEXT(ABS(A1);"000000000000000");2;1)&" puluh "&MID(TEXT(ABS(A1);"000000000000000");3;1)&" trilyun ")& IF(--MID(TEXT(ABS(A1);"000000000000000");4;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");4;1)&" ratus "&MID(TEXT(ABS(A1);"000000000000000");5;1)&" puluh "&MID(TEXT(ABS(A1);"000000000000000");6;1)&" milyar ")& IF(--MID(TEXT(ABS(A1);"000000000000000");7;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");7;1)&" ratus "&MID(TEXT(ABS(A1);"000000000000000");8;1)&" puluh "&MID(TEXT(ABS(A1);"000000000000000");9;1)&" juta ")& IF(--MID(TEXT(ABS(A1);"000000000000000");10;3)=0;"";IF(--MID(TEXT(ABS(A1);"000000000000000");10;3)=1;"*";MID(TEXT(ABS(A1);"000000000000000");10;1)&" ratus "&MID(TEXT(ABS(A1);"000000000000000");11;1)&" puluh ")&MID(TEXT(ABS(A1);"000000000000000");12;1)&" ribu ")& IF(--MID(TEXT(ABS(A1);"000000000000000");13;3)=0;"";MID(TEXT(ABS(A1);"000000000000000");13;1)&" ratus "&MID(TEXT(ABS(A1);"000000000000000");14;1)&" puluh "&MID(TEXT(ABS(A1);"000000000000000");15;1));1;"satu");2;"dua");3;"tiga");4;"empat");5;"lima");6;"enam");7;"tujuh");8;"delapan");9;"sembilan");"0 ratus";"");"0 puluh";"");"satu puluh 0";"sepuluh");"satu puluh satu";"sebelas");"satu puluh dua";"duabelas");"satu puluh tiga";"tigabelas");"satu puluh empat";"empatbelas");"satu puluh lima";"limabelas");"satu puluh enam";"enambelas");"satu puluh tujuh";"tujuhbelas");"satu puluh delapan";"delapanbelas");"satu puluh sembilan";"sembilanbelas");"satu ratus";"seratus");"*satu ribu";"seribu");0;""));" ";" "))
Tag: terbilang excel, rumus terbilang excel, download terbilang excel, download terbilang excel 2021, rumus terbilang excel rupiah, rumus terbilang excel tanpa add- in, download terbilang excel gratis, add in terbilang excel, download terbilang excel 2019, fungsi terbilang excel, rumus terbilang excel 2010, terbilang excel add- in, terbilang excel add in download, terbilang angka excel, rumus terbilang excel add-ins, terbilang excel bahasa arab, rumus terbilang excel angka ke kata, terbilang excel tidak ada spasi, terbilang excel 2016 add ins, aplikasi terbilang excel, add in terbilang excel download, add in terbilang excel 2019, add in terbilang excel 2016, add in terbilang excel tidak berfungsi, ads in terbilang excel, add in terbilang excel 2013, angka terbilang excel, add in terbilang excel 2021, terbilang excel bahasa inggris, rumus terbilang excel bahasa inggris, rumus excel terbilang bahasa indonesia rupiah, terbilang excel tidak berfungsi, terbilang excel huruf besar, download terbilang excel bahasa inggris, terbilang excel tidak bisa, terbilang excel 2016 tidak berfungsi, terbilang excel 2007 tidak berfungsi, bikin rumus terbilang excel, buat terbilang excel, cara buat terbilang di excel, terbilang bahasa inggris excel, rumus terbilang excel tidak berfungsi, cara buat terbilang rupiah di excel, rumus terbilang excel 2019 tidak berfungsi, terbilang excel rumus.co.id, cara terbilang excel rupiah, cara terbilang excel, coding terbilang excel, cara rumus terbilang excel, cara menambahkan rupiah di terbilang excel, cara download rumus terbilang excel, cara download terbilang excel, cara menggunakan fungsi terbilang excel, cara setting rumus terbilang excel, contoh rumus terbilang excel, cara mengaktifkan terbilang excel, terbilang excel download, terbilang excel download free, terbilang excel download gratis, terbilang excel dalam bahasa inggris, terbilang excel dengan rupiah, terbilang excel download 2019, terbilang di excel 365, format terbilang di excel, terbilang di excel, terbilang dalam excel, download terbilang excel 2010, download terbilang excel 2010 free, download terbilang excel 2016, download terbilang excel 2019 free, download rumus terbilang excel 2019, download add in terbilang excel 2016, terbilang excel error name, rumus terbilang excel error, add in excel terbilang english, terbilang english excel, extension terbilang excel, cara mengatasi error terbilang excel, cara edit terbilang excel, what is e excel, e excel customer service, e excel founder, terbilang excel free download, formula terbilang excel, fungsi terbilang excel dalam bahasa inggris, rumus terbilang excel free download, terbilang excel 2016 free download, fungsi terbilang excel 2019, fungsi terbilang excel 2010
format terbilang excel, free download terbilang excel, free download rumus terbilang excel, file add in terbilang excel, free download rumus terbilang excel 2019, fungsi terbilang excel 2013, download rumus terbilang excel gratis, download file terbilang excel gratis, download terbilang excel 2010 gratis, download terbilang excel 2016 gratis, download terbilang rupiah excel gratis, download terbilang excel 2019 gratis, download file terbilang excel 2010 gratis, download terbilang microsoft excel 2007 gratis, download gratis rumus terbilang excel, download gratis terbilang excel, g dag, g to b example, huruf terbilang excel, rumus terbilang excel huruf besar, rumus excel terbilang huruf, terbilang angka ke huruf excel, rumus terbilang excel huruf depan besar, cara hapus terbilang di excel, rumus-terbilang-excel-untuk-merubah-angka-ke-huruf, h chart example, h and h product list, terbilang excel inggris, terbilang excel add in, rumus terbilang excel inggris, terbilang add in excel 2019, terbilang excel tanpa add ins, terbilang add in excel 2016, terbilang add in excel 2013, rumus excel terbilang in english, instal terbilang excel, install rumus terbilang excel, instal terbilang excel 2010, instal terbilang excel 2019, install add-ins terbilang excel, instal terbilang excel 2016, insert terbilang excel, download add in terbilang excel, jumlah terbilang excel, cara membuat jumlah terbilang di excel, rumus excel jumlah terbilang, angka jadi terbilang di excel, rumus excel angka menjadi terbilang, terbilang koma excel, rumus terbilang kelas excel, rumus terbilang kwitansi excel, rumus excel terbilang koma, memasukan terbilang ke excel, rumus terbilang excel untuk kwitansi, kode terbilang excel, cara memasukkan terbilang ke excel, rumus terbilang excel dalam kurung, cara memasukan terbilang ke excel, kombinasi terbilang excel, konversi angka ke terbilang excel, kwitansi terbilang excel, kombinasi terbilang excel 2010, rumus excel dari angka ke terbilang, rumus excel nominal ke terbilang, menghilangkan koma pada terbilang excel, link terbilang excel, link download fungsi terbilang excel, cara link terbilang di excel, cara membuat link terbilang di excel, link download terbilang excel, terbilang excel macbook, terbilang excel macro, terbilang excel manual, terbilang microsoft excel 2010, rumus terbilang excel manual, rumus terbilang excel manual tanpa macro, terbilang excel tidak muncul, rumus terbilang excel muncul name, rumus terbilang excel macbook, rumus terbilang excel manual vlookup, mengaktifkan terbilang excel, membuat rumus terbilang excel tanpa macro, macro terbilang excel, macro terbilang excel 2016, macro terbilang excel 2019, membuat terbilang excel, mengubah angka menjadi terbilang excel, master terbilang excel, menghilangkan koma di terbilang excel, terbilang excel #name, rumus terbilang excel #name, rumus terbilang nominal excel, rumus excel nominal menjadi terbilang, rumus terbilang excel dengan koma nol, rumus excel nilai rupiah terbilang, cara membuat nilai terbilang pada excel, cara ngelink terbilang di excel, membuat nilai terbilang di excel, terbilang excel office 365, terbilang excel otomatis, terbilang excel online, terbilang excel office 2019, terbilang excel office 2021, terbilang otomatis excel 2010, rumus terbilang excel office 365, rumus terbilang excel open office, rumus terbilang excel office 2010
rumus terbilang excel office 2007, cara membuat terbilang otomatis di excel, membuat terbilang otomatis di excel, terbilang otomatis di excel, rumus excel terbilang rupiah otomatis, cara setting terbilang otomatis di excel, cara agar terbilang otomatis di excel, menulis terbilang otomatis di excel, cara bikin terbilang otomatis di excel, cara terbilang otomatis excel, add on terbilang excel, terbilang excel proper, add in terbilang pada excel, menambah fungsi terbilang pada excel, terbilang pada excel, terbilang pada excel tidak berfungsi, terbilang pada excel 2019, terbilang pada excel 2016, terbilang pada excel 2010, rumus terbilang excel pembulatan, rumus terbilang excel pakai rupiah, proper terbilang excel, plugin terbilang excel, pasang terbilang excel, rumus terbilang pada excel, fungsi terbilang pada excel, cara pakai terbilang di excel, cara menghilangkan koma pada terbilang excel, q table excel formula, q table excel, q excel, terbilang excel rupiah, terbilang excel rupiah download, terbilang excel rumus, terbilang excel rar, terbilang excel ref, download terbilang rupiah excel 2016, download terbilang rupiah excel 2019, download terbilang rupiah excel 2007, rumus terbilang excel download, rumus terbilang excel 2019, rumus terbilang excel 2013, terbilang + rupiah + sen excel, script terbilang excel, software terbilang excel, script terbilang excel 2010, setting rumus terbilang excel, script fungsi terbilang excel 2010, software rumus terbilang excel, cara setting terbilang di excel 2010, setting terbilang pada excel 2010, terbilang excel tanpa koma, terbilang excel tanpa macro, terbilang excel terbaru, terbilang excel tambah rupiah, terbilang tanggal excel, tutorial rumus terbilang excel, tutorial terbilang excel, teks terbilang excel, template terbilang excel, download terbilang excel terbaru, terbilang tidak terbaca di excel, download fungsi terbilang untuk excel 2007, terbilang untuk excel 2019, terbilang untuk excel, terbilang untuk excel 2021, terbilang untuk excel 2016, terbilang untuk excel 2010, rumus terbilang excel untuk raport, rumus terbilang excel upper, unduh terbilang excel, unduh add-in terbilang excel, unduh fungsi terbilang excel, unduh terbilang excel 2007, rumus excel untuk terbilang rupiah, rumus untuk terbilang di excel, rumus excel untuk terbilang otomatis, download aplikasi terbilang untuk excel, cara membuat terbilang uang di excel, membuat add in terbilang untuk microsoft excel, terbilang excel vba, rumus terbilang excel dengan vlookup, vba terbilang excel, membuat fungsi terbilang di vba excel, how does excel v work, terbilang excel windows 11, rumus terbilang excel wps, rumus terbilang excel windows 10, download terbilang excel windows 10, rumus terbilang excel windows 11, download terbilang excel windows 7, download rumus terbilang excel windows 10, download terbilang excel wps, terbilang excel xlam, terbilang excel xla, download terbilang.xla excel 2010, download terbilang xla excel 2007, download terbilang xlam excel 2016, y-intercept in excel, y intercept excel formula, z-table in excel, z interval excel, terbilang excel 2021, terbilang excel 2016 download, terbilang excel 2013, terbilang excel 2019 download, terbilang excel 2019, terbilang excel 2016, terbilang excel 2010 download, terbilang excel 2007 download, terbilang excel 365, download terbilang excel 365, rumus terbilang excel 365, fungsi terbilang excel 365, 4-4-5 calendar excel formula, 64 team double elimination bracket excel, 64 team triple elimination bracket, 64 team tournament bracket excel, terbilang excel 2010, rumus terbilang excel windows 7, alt+7 in excel, alt 7 not working in excel, java 7 exception handling, aga 7 calculation excel,
Post a Comment for "RUMUS TERBILANG OTOMATIS EXCEL 2007 2010 2013 2016 2019 SEMUA VERSI"