Cara Membuat Sendiri Fungsi Terbilang Di Ms Excel ( 2003,2007,2010,2013 Dan 2016)

Terkadang di mincrosoft excel kita memerlukan sebuah fungsi atau rumus yang dapat mengkonversi suatu angka menjadi bentuk goresan pena, misal angka yang mewakili nilai uang di ubah menjadi goresan pena terbilang untuk besarnya duit tersebut, rumus ini umumnya dipakai misalnya ketika menciptakan kuetansi, memang mampu saja menggunakan cara manual, tetapi pasti akan kewalahan bila jumlah data yang harus dikonversi sungguh banyak, salah satu cara mudah yaitu memakai fungsi khusus.

Sayangnya microsft excel tidak menawarkan fungsi yang dapat mengkonversi angka menjadi tulisan, namun tenang saja kita mampu membuatnya sendiri, alasannya adalah microsoft excel menawarkan kemudahan untuk membuat sendiri fungsi-yang kita inginkan menggunakan perintah khusus (macro), dengan macro ini semua fungsi-gungsi yang memang tidak ditawarkan mampu dibuat oleh sendiri menggunakan script khusus, salah satunya untuk mengkonversi uang menjadi goresan pena.

Untuk menciptakan fungsi terbilang sesungguhnya sudah banyak yang menyediakan, bahkan telah tersedia dalam bentuk add-in atau plugin yang siap didownload dan siap dipakai. memang untuk membuat sendiri fungsi di ms excel membutuhkan kemampuan bahasa pemrograman visual basic, sehingga pastinya yang tidak tau caranya akan kesusahan bagaimana cara membuatnya.

Tapi  jangan cemas, alasannya disini saya akan memperlihatkan suatu panduan langkah-langkah bagaimana cara menciptakan sendiri fungsi terbilang di ms excel yang mampu digunakan di semua model microsoft excel, baik microsoft excel 2003, 2007, 2010, 2013 mapun di ms excel 2017.

Cara Membuat Fungsi Terbilang di MS Excel

Berikut ialah tindakan membuat fungsi terbilang di microsoft excel:

1. Buka aplikasi microsoft excel anda

2. Kemudian buka visual basic editor caranya tekan saja tombol ALT + F11
Atau mampu melalui hidangan developer, jika menu developer tidak ada silahkan munculkan dahulu caranya, klik sajian file > options, kemudian pada dialog excel option, di bilah sajian segi kiri pilih menu Customize ribbon, lalu centang Developer.

Kemudian silahkan Ok, pada microsoft excel anda akan muncul sajian baru bernama developer.

Setelah menu tab developer muncul, silahkan klik tab developer, lalu pilih hidangan Visual basic editor.

3. Pada halaman visual basic editor, Pilih sajian 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 

Terlihat mirip gambar di bawah ini:


5. Simpan dalam format Excel macro-enable workbook, caranya pada visual basic editor pilih menu file > save book1 dan silahkan beri nama file contohnya 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 eksklusif
Ketikan saja pada cell dengan format formula =Terbilang(angka), contohnya  =Terbilang(200), maka balasannya "dua ratus rupiah"

b. Menggunakan Referensi Cell
=Terbilang (Cell), Cell ialah nama cell dalam microsft excel yang memiliki nilai dalam bentuk anga.
Misal di cell B1 aku ingin membuat goresan pena terbilang untuk angka yang terdapat di cell A1, maka perintahnya, ketikan di cell B1 perintah =Terbilang(A1), kesudahannya di cell B1 akan tampil tulisan nilai terbilang.


Demikian artikel perihal Cara Membuat Sendiri Fungsi Terbilang di MS Excel (Inggris dan Indonesia), agar bermanfaat.
Sumber http://panduanmicrosoftoffice.blogspot.com/