Sayangnya microsft excel tidak menyediakan fungsi yang dapat mengkonversi angka menjadi tulisan, tapi tenang saja kita bisa membuatnya sendiri, karena microsoft excel menyediakan fasilitas untuk membuat sendiri fungsi-yang kita inginkan menggunakan perintah khusus (macro), dengan macro ini semua fungsi-gungsi yang memang tidak disediakan bisa dibuat oleh sendiri menggunakan script khusus, salah satunya untuk mengkonversi uang menjadi tulisan.
Untuk membuat fungsi terbilang sebenarnya sudah banyak yang menyediakan, bahkan sudah tersedia dalam bentuk add-in atau plugin yang siap didownload dan siap digunakan. memang untuk membuat sendiri fungsi di ms excel membutuhkan keahlian bahasa pemrograman visual basic, sehingga tentu saja yang tidak tau caranya akan kesulitan bagaimana cara membuatnya.
Tapi jangan khawatir, karena disini saya akan memberikan sebuah tutorial langkah-langkah bagaimana cara membuat sendiri fungsi terbilang di ms excel yang dapat digunakan di semua versi microsoft excel, baik microsoft excel 2003, 2007, 2010, 2013 mapun di ms excel 2017.
Cara Membuat Fungsi Terbilang di MS Excel
Berikut adalah langkah-langkah membuat fungsi terbilang di microsoft excel:2. Kemudian buka visual basic editor caranya tekan saja tombol ALT + F11
Atau bisa melalui menu developer, jika menu developer tidak ada silahkan munculkan dulu caranya, klik menu file > options, kemudian pada dialog excel option, di bilah menu sisi kiri pilih menu Customize ribbon, lalu centang Developer.
Setelah menu tab developer muncul, silahkan klik tab developer, kemudian pilih menu Visual basic editor.
3. Pada halaman visual basic editor, Pilih menu insert > module
4. Kemudian Tulis atau copy paste kode macro di bawah ini:
Option Explicit
'Main Function
Function Terbilang(ByVal MyNumber)
Dim Dollars, Cents, Temp
Dim DecimalPlace, Count
ReDim Place(9) As String
Place(2) = " Ribu "
Place(3) = " Juta "
Place(4) = " Miliar "
Place(5) = " Triliun "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert cents and set MyNumber to dollar amount.
If DecimalPlace > 0 Then
Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
End If
Count = 1
Do While MyNumber <> ""
Temp = GetHundreds(Right(MyNumber, 3))
If Temp <> "" Then Dollars = Temp & Place(Count) & Dollars
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) - 3)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
If (Cents = "") Then
Dollars = Dollars & " Rupiah"
Else
Dollars = Dollars
End If
End Select
Select Case Cents
Case ""
Cents = ""
Case "One"
Cents = " and One Cent"
Case Else
Cents = " Koma " & Cents & " Rupiah"
End Select
Terbilang= Dollars & Cents
End Function
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
If Mid(MyNumber, 1, 1) = 1 Then
Result = " Seratus "
Else
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Ratus "
End If
End If
' Convert the tens and ones place.
If Mid(MyNumber, 2, 1) <> "0" Then
Result = Result & GetTens(Mid(MyNumber, 2))
Else
Result = Result & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = Result
End Function
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
Case 10: Result = "Sepuluh"
Case 11: Result = "Sebelas"
Case 12: Result = "Dua Belas"
Case 13: Result = "Tiga Belas"
Case 14: Result = "Empat Belas"
Case 15: Result = "Lima Belas"
Case 16: Result = "Enam Belas"
Case 17: Result = "Tujuh Belas"
Case 18: Result = "Delapan Belas"
Case 19: Result = "Sembilan Belas"
Case Else
End Select
Else ' If value between 20-99...
Select Case Val(Left(TensText, 1))
Case 2: Result = "Dua Puluh "
Case 3: Result = "Tiga Puluh "
Case 4: Result = "Empat Puluh "
Case 5: Result = "Lima Puluh "
Case 6: Result = "Enam Puluh "
Case 7: Result = "Tujuh Puluh "
Case 8: Result = "Delapan Puluh "
Case 9: Result = "Sembilan Puluh "
Case Else
End Select
Result = Result & GetDigit _
(Right(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function GetDigit(Digit)
Select Case Val(Digit)
Case 1: GetDigit = "Satu"
Case 2: GetDigit = "Dua"
Case 3: GetDigit = "Tiga"
Case 4: GetDigit = "Empat"
Case 5: GetDigit = "Lima"
Case 6: GetDigit = "Enam"
Case 7: GetDigit = "Tujuh"
Case 8: GetDigit = "Delapan"
Case 9: GetDigit = "Sembilan"
Case Else: GetDigit = ""
End Select
End Function
5. Simpan dalam format Excel macro-enable workbook, caranya pada visual basic editor pilih menu file > save book1 dan silahkan beri nama file misalnya terbilang.xlsx. dan pada Opsi save as type pilih Excel Macro-Enable workbook.
6. Kembali ke halaman kerja MS Excel anda, Anda siap menggunakan fungsi terbilang anda
Cara Menggunakan Fungsi terbilang di atas sangat sederhana.
a. Bisa menggunakan menu Formulas > Insert functions
Lalu pilih user defined dan pilih nama fungsi yang kita buat di visual basic editor sebelumnya:
a. Cara langsung
Ketikan saja pada cell dengan format formula =Terbilang(angka), misalnya =Terbilang(200), maka hasilnya "dua ratus rupiah"
b. Menggunakan Referensi Cell
=Terbilang (Cell), Cell adalah nama cell dalam microsft excel yang memiliki nilai dalam bentuk anga.
Misal di cell B1 saya ingin membuat tulisan terbilang untuk angka yang terdapat di cell A1, maka perintahnya, ketikan di cell B1 perintah =Terbilang(A1), hasilnya di cell B1 akan tampil tulisan nilai terbilang.
Demikian artikel tentang Cara Membuat Sendiri Fungsi Terbilang di MS Excel (Inggris dan Indonesia), semoga bermanfaat.
sumber :panduanmicrosoftoffice.blogspot.com
 ){kind=link}
Social Plugin