terbilang

  1. 11 bulan yang lalu

    Ass...
    Dear mas master
    mohon dapat dibantu file terlampir terdapat macro terbilang, saya mau menambahkan akhiran tulisan "Rupiah".
    kira2 yang harus ditambahkan pada script yang mana nya yah.......

    terima kasih

  2. Caton

    5 Jan 2018 Terverifikasi Indonesia + 13.250 Poin

    Karena lampirannya gak ada, saya prediksi pake formula saja:

    =Terbilang(A5) & " Rupiah"

    Itu klo macronya berupa UDF (User Defined Function)... ;)

  3. Mohon maaf mas caton file lampiran ketinggalan....

  4. Caton

    6 Jan 2018 Terverifikasi Indonesia + 13.250 Poin
    Di sunting 11 bulan yang lalu oleh Caton

    Mas @Nafis2006 buka VBE dan tampilkan kode VBA untuk Module2. Pada prosedur Terbilang, temukan baris script berikut:

    Function Terbilang(nNumber As Double) As String
       ...
       Terbilang = cHuruf
       
    End Function

    dan modifikasi baris tersebut menjadi:

    Function Terbilang(nNumber As Double) As String
       ...
       Terbilang = cHuruf & " Rupiah"   
    End Function

    atau agar hasilnya lebih rapi,

    Function Terbilang(nNumber As Double) As String
       ...
       Terbilang = WorksheetFunction.Proper(cHuruf) & " Rupiah"   
    End Function

    Demikian... ;)

  5. mantap.... terima kasih mas.... jadi nambah ilmu....
    met sukses selalu....

 

atau Mendaftar untuk ikut berdiskusi!