Cara membuat angka terbilang otomatis ms.excel

Rumus Ms.excel Paling Lengkap

Halo sobat.......

Dalam artikel  kali ini saya akan membagikan kepada anda "cara membuat angka terbilang pada ms.excel" mungkin anda bingung ya bagaimana cara membuat angka terbilang secara otomatis pada ms.excel. karna di ms.excel tidak ada rumus untuk membuatnya. maka dari itu kita harus membuat rumus agar kita bisa menggunakan fungsi terbilang tersebut.

• rumus ms.excel lengkap KLIK DISINI

caranya sebagai berikut:

1. anda masuk ms.excel . disini saya menggunakan ms.excel 2007. anda bisa menggunakan ms.excel 2010, ms.excel 2013, atau berapa saja tidak masalah

2. anda harus membuat menu DEVELOPER. caranya, anda klik menu office button yang ada 

pada kiri pojok atas. kemudian anda pilih excel options 

3.  pilih popular => centang show developer tab in riboon => OK. tampilanya seperti pada gambar di bawah ini

4. anda klik menu developer yang anda buat tadi, kemudian pilih view code, kemudian 

klik kanan sheet1(sheet1) yang ada di bawah menu VBAproject(book1), kemudian pilih 

view code. maka akan tampil seperti gambar di bawah ini. selanjutnya anda isikan script 

berikut pada sheet code:

Public Function terbilang(x As Currency)

Dim triliun As Currency

Dim milyar As Currency

Dim juta As Currency

Dim ribu As Currency

Dim satu As Currency

Dim sen As Currency

Dim baca As String

'Jika x adalah 0, maka dibaca sebagai 0

If x = 0 Then

baca = angka(0, 1)

Else

'Pisah masing-masing bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen'

triliun = Int(x * 0.001 ^ 4)

milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)

juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)

ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)

satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)

sen = Int((x - Int(x)) * 100)

'Baca bagian triliun dan ditambah akhiran triliun

If triliun > 0 Then

baca = ratus(triliun, 5) + "triliun "

End If

'Baca bagian milyar dan ditambah akhiran milyar

If milyar > 0 Then

baca = ratus(milyar, 4) + "milyar "

End If

'Baca bagian juta dan ditambah akhiran juta

If juta > 0 Then

baca = baca + ratus(juta, 3) + "juta "

End If

'Baca bagian ribu dan ditambah akhiran ribu

If ribu > 0 Then

baca = baca + ratus(ribu, 2) + "ribu "

End If

'Baca bagian satuan

If satu > 0 Then

baca = baca + ratus(satu, 1) + "rupiah "

Else

baca = baca + "rupiah "

End If

'Baca bagian sen dan ditambah akhiran sen

If sen > 0 Then

baca = baca + ratus(sen, 0) + "sen"

End If

End If

terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))

End Function

Function ratus(x As Currency, posisi As Integer) As String

Dim a100 As Integer, a10 As Integer, a1 As Integer

Dim baca As String

a100 = Int(x * 0.01)

a10 = Int((x - a100 * 100) * 0.1)

a1 = Int(x - a100 * 100 - a10 * 10)

'Baca Bagian Ratus

If a100 = 1 Then

baca = "Seratus "

Else

If a100 > 0 Then

baca = angka(a100, 2) + "ratus "

End If

End If

'Baca Bagian Puluh dan Satuan

If a10 = 1 Then

baca = baca + angka(a10 * 10 + a1, 2)

Else

3

If a10 > 0 Then

baca = baca + angka(a10, 2) + "puluh "

End If

If a1 > 0 Then

If posisi = 2 And a100 = 0 And a10 = 0 Then

baca = baca + angka(a1, 1)

Else

baca = baca + angka(a1, 2)

End If

End If

End If

ratus = baca

End Function

Function angka(x As Integer, posisi As Integer)

Select Case x

Case 0: angka = "Nol"

Case 1:

If posisi = 2 Then

angka = "Satu "

Else

angka = "Se"

End If

Case 2: angka = "Dua "

Case 3: angka = "Tiga "

Case 4: angka = "Empat "

Case 5: angka = "Lima "

Case 6: angka = "Enam "

Case 7: angka = "Tujuh "

Case 8: angka = "Delapan "

Case 9: angka = "Sembilan "

Case 10: angka = "Sepuluh "

Case 11: angka = "Sebelas "

Case 12: angka = "Dua belas "

Case 13: angka = "Tiga belas "

Case 14: angka = "Empat belas "

Case 15: angka = "Lima belas "

Case 16: angka = "Enam belas "

Case 17: angka = "Tujuh belas "

Case 18: angka = "Delapan belas "

Case 19: angka = "Sembilan belas"

End Select

End Function

'jika x adalah 0, maka dibaca sebagai 0'

6. juka sudah selsesai, anda buat tampilan seperti di bawah ini

7. anda isikan rumus pada tabel terbilang seperti pada gambar

8. bisa anda coba jika anda berhasil, maka hasilnya akan seperti gambar di bawah ini

Sekian tutorial dari Surya Tutorialku yang membahas tentang "Cara membuat angka terbilang otomatis pada ms.excel". Semoga bermanfaat. Jika ada yang kurang jelas atau yang ingin di tanyakan, silahkan komentar di bawah.