Cara Membuat Sendiri Fungsi Terbilang di MS Excel ( 2003,2007,2010,2013 dan 2016)

Terkadang di mincrosoft excel kita membutuhkan 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 uang tersebut, rumus ini biasanya dipakai misalnya ketika menciptakan kuetansi, memang mampu saja menggunakan cara manual, namun tentu akan kerepotan kalau jumlah data yang harus dikonversi sangat banyak, salah satu cara simpel yaitu menggunakan fungsi khusus.

Sayangnya microsft excel tidak menyediakan fungsi yang dapat mengkonversi angka menjadi tulisan, tapi tenang saja kita bisa menciptakannya sendiri, lantaran microsoft excel menyediakan akomodasi untuk menciptakan 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 goresan pena.

Fungsi terbilang ms excel

Untuk membuat fungsi terbilang sebenarnya sudah banyak yang menyediakan, bahkan sudah tersedia dalam bentuk add-in atau plugin yang siap didownload dan siap dipakai. memang untuk menciptakan sendiri fungsi di ms excel membutuhkan keahlian bahasa pemrograman visual basic, sehingga tentu saja yang tidak tau caranya akan kesulitan bagaimana cara menciptakannya.

Tapi  jangan khawatir, lantaran disini aku akan memberikan sebuah tutorial langkah-langkah bagaimana cara menciptakan 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 ialah langkah-langkah 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 menu developer, kalau menu developer tidak ada silahkan munculkan dulu caranya, klik menu file > options, kemudian pada dialog excel option, di bilah hidangan sisi kiri pilih hidangan Customize ribbon, lalu centang Developer.

Kemudian silahkan Ok, pada microsoft excel anda akan muncul sajian gres berjulukan developer.

Setelah sajian tab developer muncul, silahkan klik tab developer, kemudian pilih hidangan Visual basic editor.



3. Pada halaman visual basic editor, Pilih menu insert > module

4. Kemudian Tulis atau copy paste instruksi 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 seolah-olah 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 memakai fungsi terbilang anda

Cara Menggunakan Fungsi terbilang di atas sangat sederhana.

a. Bisa memakai hidangan 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), misalnya  =Terbilang(200), maka risikonya "dua ratus rupiah"

b. Menggunakan Referensi Cell
=Terbilang (Cell), Cell yaitu nama cell dalam microsft excel yang mempunyai nilai dalam bentuk anga.
Misal di cell B1 saya ingin membuat tulisan terbilang untuk angka yang terdapat di cell A1, maka perintahnya, dikalan di cell B1 perintah =Terbilang(A1), risikonya di cell B1 akan tampil tulisan nilai terbilang.


Demikian artikel perihal Cara Membuat Sendiri Fungsi Terbilang di MS Excel (Inggris dan Indonesia), supaya bermanfaat.