Iklan
  • Februari 2018
    S S R K J S M
    « Agu    
     1234
    567891011
    12131415161718
    19202122232425
    262728  
  • Komentar Terbaru

    Mahavatar Ratu Adil… di Rahasia Teknik Bercinta Titik…
    zoel di Rahasia Teknik Bercinta Titik…
  • Info pengunjung

  • Penilaian

    Penilaian anda
      by : Survey Creator
    1. Arsip

    Fungsi terbilang excel

    MEMBUAT FUNGSI TERBILANG MICROSOFT EXCEL 2000

    Fungsi terbilang disini adalah fungsi untuk mengkonversi angka menjadi terbilang. Contoh angka 2500 akan dikonversi menjadi dua ribu lima ratus, fungsi ini banyak digunakan untuk membuat faktur, nota atau kwitansi. Untuk membuat fungsi ini di Microsoft Excel caranya sebagai berikut:

    • Buat document baru, atau buka document yang sudah ada dan ingin diberi fungsi terbilang ini. Kemudian buka Microsoft Visual Basic Editor dari menu Tools > Macro > Visual Basic Editor atau langsung tekan tombol Alt + F11.

    Buat sebuah module baru dengan cara klik menu Insert > Module kemudian tambahkan script berikut. :
    Option Explicit

    Public Function TERBILANG(x As Double) As String
    Dim tampung As Double
    Dim teks As String
    Dim bagian As String
    Dim i As Integer
    Dim tanda As Boolean

    Dim letak(5)
    letak(1) = "ribu "
    letak(2) = "juta "
    letak(3) = "milyar "
    letak(4) = "trilyun "

    If (x < 0) Then
    TERBILANG = ""
    Exit Function
    End If

    If (x = 0) Then
    TERBILANG = "nol"
    Exit Function
    End If

    If (x < 2000) Then
    tanda = True
    End If
    teks = ""

    If (x >= 1E+15) Then
    TERBILANG = "Nilai terlalu besar"
    Exit Function
    End If

    For i = 4 To 1 Step -1
    tampung = Int(x / (10 ^ (3 * i)))
    If (tampung > 0) Then
    bagian = ratusan(tampung, tanda)
    teks = teks & bagian & letak(i)

    End If
    x = x - tampung * (10 ^ (3 * i))
    Next

    teks = teks & ratusan(x, False)
    TERBILANG = teks
    End Function

    Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
    Dim tmp As Double
    Dim bilang As String
    Dim bag As String
    Dim j As Integer

    Dim angka(9)
    angka(1) = "se"
    angka(2) = "dua "
    angka(3) = "tiga "
    angka(4) = "empat "
    angka(5) = "lima "
    angka(6) = "enam "
    angka(7) = "tujuh "
    angka(8) = "delapan "
    angka(9) = "sembilan "


    Dim posisi(2)
    posisi(1) = "puluh "
    posisi(2) = "ratus "


    bilang = ""

    For j = 2 To 1 Step -1
    tmp = Int(y / (10 ^ j))
    If (tmp > 0) Then
    bag = angka(tmp)

    If (j = 1 And tmp = 1) Then
    y = y - tmp * 10 ^ j
    If (y >= 1) Then
    posisi(j) = "belas "
    Else
    angka(y) = "se"
    End If

    bilang = bilang & angka(y) & posisi(j)
    ratusan = bilang
    Exit Function
    Else
    bilang = bilang & bag & posisi(j)
    End If
    End If
    y = y - tmp * 10 ^ j
    Next

    If (flag = False) Then
    angka(1) = "satu "
    End If
    bilang = bilang & angka(y)
    ratusan = bilang

    End Function

    ————————————————————————–

    • Tutup kembali Visual Basis Editor dan kembali ke lembar kerja excel, coba ketikkan angka sembarang di sembarang tempat. Misal di cell C5 ketikkan 1250200 (nb: Maksimal 2147483647)
    • Atau jika anda bingung cara memasukkan Function diatas download MS Excel add-ins di sini dan tambahkan lewat menu tools > Add-Ins

     

    • Browse hasil extract file yang barusan di download, sampai Add-Ins terbilang masuk dalam daftar Add-Ins

    • Kemudia di cell yang yang lain / tempat menaruh hasil terbilang ketikkan formula =terbilang(C5)
    • Kemudian di cell tersebut akan muncul hasil terbilang yaitu satu juta dua ratus lima puluh ribu dua ratus

    • Jika ingin di belakang hasil terbilang ada kata Rupiah tambahkan di dalam formula =terbilang(C5) & “Rupiah”

     

    Iklan

    Tinggalkan Balasan

    Isikan data di bawah atau klik salah satu ikon untuk log in:

    Logo WordPress.com

    You are commenting using your WordPress.com account. Logout / Ubah )

    Gambar Twitter

    You are commenting using your Twitter account. Logout / Ubah )

    Foto Facebook

    You are commenting using your Facebook account. Logout / Ubah )

    Foto Google+

    You are commenting using your Google+ account. Logout / Ubah )

    Connecting to %s

    %d blogger menyukai ini: