√ Rumus Excel Terbilang Terbaru

Fungsi terbilang memang sangat diharapkan terutama saat menciptakan kwitansi Anda dapat lihat goresan pena aku perihal Aplikasi Kwitansi Excel Versi Update 2015-3 Ketika Anda memasukan angka Rp. 5000 maka fungsi terbilang ini akan otomatis menuliskan data "Lima Ribu Rupiah" nah inilah yang dimaksud dengan terbilang. Bisa dibayangkan jikalau Anda menuliskan banyak data angka kemudian menuliskan juga terbilang nya. Hal ini akan sangat merepotkan dan membutuhkan waktu yang cukup lama.

Rumus Excel terbilang ini merupakan rumus yang dibantu dengan script VBA untuk menghasilkan hitungan angka berupa data karakter jadi berapapun Anda menuliskan angka hingga milyaran bahkan trilyunan juga tidak masalah. VBA ini akan otomatis menerjemahkan angka yang tertulis ke dalam huruf. Lalu bagaimana menciptakan fungsi rumus terbilang tersebut?
Cukup mengetikkan rumus =terbilang kemudian tekan enter maka otomatis data akan menghitung dengan sendirinya.

Inilah Script VBA terbilang terbaru yang dapat Anda gunakan.

Option Explicit
'Fungsi Utama
Function Terbilang(ByVal MyNumber)
    Dim Rupiah, 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 Rupiah 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 Rupiah = Temp & Place(Count) & Rupiah
        If Len(MyNumber) > 3 Then
            MyNumber = Left(MyNumber, Len(MyNumber) - 3)
        Else
            MyNumber = ""
        End If
        Count = Count + 1
    Loop
    Select Case Rupiah
        Case ""
            Rupiah = "Nihil"
        Case "One"
            Rupiah = "Satu Rupiah"
         Case Else
            Rupiah = Rupiah & " Rupiah"
    End Select
    Terbilang = Rupiah
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
        Result = GetDigit(Mid(MyNumber, 1, 1)) & " Ratus "
    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

 

Langkah Membuat Rumus TERBILANG.

Pertama silakan masuk ke VBA editor dari sajian Developer kemudian View Code atau lebih cepat silakan tekan combinasi ALT+F11 maka akan otomatis akan masuk ke Microsoft Visual Basic for Aplication (VBA). kemudian
Langkah kedua, silakan buat satu buah Module dengan cara klik sajian INSERT kemudian pilih Module

Langkah berikutnya silakan copy script VBA diatas kedalam Modul yang telah Anda sisipkan tadi kemudian pastekan

Selesai, satu buah modul untuk rumus terbilang sudah kita buat, kemudian bagaimana cara menggunakannya? Silakan masuk ke Ms. Excel kemudian ketikkan angka contohnya di cell A1 Rp. 10000 dan sebelah kanannya ketikkan rumus =terbilang(A1) maka akan menghasilkan hitungan dari angka 10000 tersebu dengan hasil "Sepuluh Ribu Rupiah"

Tekan Enter kemudian lihat kesudahannya akan menyerupai gambar berikut ini

Selesai.
Silakan Anda kembangkan untuk kepentingan pekerjaan di kantor Anda atau Jika ingin mempelajari untuk menciptakan Aplikasi berbasis VBA Ms. Excel.
Selamat mencoba, Semoga bermanfaat.
Sumber http://www.excel-id.com/