Rumus fungsi terbilang merupakan rumus yang dibentuk secara dapat bangkit diatas kaki sendiri dan tidak ada dalam rumus standar Ms. Excel artinya user/pengguna bisa memilih atau menciptakan rumus tersebut untuk kebutuhan. Ketika Anda harus menuliskan nilai raport siswa yang begitu banyaknya tentunya hal ini akan menciptakan Anda galau sebagai wali kelas harus mengentri nilai raport dan menciptakan goresan pena atau merubah angka menjadi huruf. Perubahan angka menjadi aksara itulah yang disebut fungsi terbilang.
Contoh rumus fungsi terbilang
Banyak sekali para programmer VBA / macro untuk menciptakan fungsi terbilang dan tentunya Anda harus berterimakasih kepada mereka, alasannya berkat jasa merekalah Anda bisa menciptakan fungsi terbilang dengan cepat. Seperti pembahasan kali ini aku akan sertakan rumus fungsi terbilang untuk memilih berapa nilai raport dengan memakai angka (konversi angka menjadi tulisan). Sebenarnya ada juga para master excel menciptakan fungsi terbilang memakai rumus pembacaan data Vlookup dan digabungkan dengan beberapa rumus lainnya dan itu terlalu panjang aku kira. Dengan fungsi terbilang yang sederhana Anda hanya menuliskan rumus =teribilang maka secara otomatis akan membaca data sesuai dengan angka yang dientrikan pada nilai raport tersebut termasuk dengan pembacaan pecahan.
Misalnya:
Ketika Anda mengentrikan nilai siswa sebesar 78.90 maka akan tertulis dengan aksara "tujuh delapan koma sembilan ". Jika Anda mengetikan kata aku kira akan cukup panjang maka dengan rumus terbilang ini akan menjadi simpel.
Perhatikan gambar hasil penulisan rumus terbilang berikut ini
Jreng karenanya sudah benar, kemudian bagaimana cara menciptakan ibarat tersebut? saat anda mneuliskan rumus di cell E3 =terbilang(D3) maka karenanya akan otomatis sesuai dengan angka yang ada di sebelah kana sebagai nilai hasil ujian berupa nilai pecahan.
Anda tinggal mengcopykan saja ke bawah dengan cara drag rumusnya maka karenanya sistem akan menuliskan sesuai dengan jml nilai yang tertera pada kolom D.
Bagaimana cara menciptakan ibarat demikian? Langkah pertama anda harus menciptakan module terlebih dahulu untuk menuliskan coding terbilang tersebut.
Berikut coding terbilang silakan di copy
Public Function Terbilang(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bab 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 "
' koding 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 & bab & 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
Selesai menciptakan code Anda tinggal menuliskan rumusnya saja pada lembar kerja yang telah ditentukan. Oke, jangan galau silakan dicoba jikalau ada pertanyaan silakan komentar di bawah dan jangan lupa yang sopan.
Selamat mencoba. Sumber http://www.excel-id.com/