Diskusi tentang Excel

Rumus Excel TERBILANG Terbaru

Fungsi terbilang memang sangat dibutuhkan terutama ketika membuat kwitansi Anda bisa lihat tulisan saya tentang 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 jika 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 huruf jadi berapapun Anda menuliskan angka sampai milyaran bahkan trilyunan juga tidak masalah. VBA ini akan otomatis menerjemahkan angka yang tertulis ke dalam huruf. Lalu bagaimana membuat fungsi rumus terbilang tersebut?
Cukup mengetikkan rumus =terbilang kemudian tekan enter maka otomatis data akan menghitung dengan sendirinya.

Inilah Script VBA terbilang terbaru yang bisa 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 menu 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 menu INSERT kemudian pilih Module

rumus terbilang


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

rumus excel-terbilang









Selesai, satu buah modul untuk rumus terbilang sudah kita buat, lalu bagaimana cara menggunakannya? Silakan masuk ke Ms. Excel kemudian ketikkan angka misalnya 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 hasilnya akan seperti gambar berikut ini






Selesai.
Silakan Anda kembangkan untuk kepentingan pekerjaan di kantor Anda atau Jika ingin mempelajari untuk membuat Aplikasi berbasis VBA Ms. Excel.
Selamat mencoba, Semoga bermanfaat.

Related

Trik Excel 9106071991692993679

Post a Comment

  1. tolong aplikasi untuk bangunan rumah di lengkapi

    terima kasih

    ReplyDelete
  2. This comment has been removed by the author.

    ReplyDelete
  3. Tolong direvisi rumus excel terbilang: Satu Ratus menjadi Seratus.
    Terima kasih.

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item