Skip to main content

Fungsi Terbilang | Excel Macro VBA

Berikut adalah rumus fungsi terbilang yang dapat diinstal pada Excel Macro VBA 

Copy Script ini, Lalu Paste di lembar Module

Function terbilang(nilai)
 Bilangan = Format(Str(nilai), "000000000000")
 milyaran = Mid(Bilangan, 1, 3)
 Jutaan = Mid(Bilangan, 4, 3)
 Ribuan = Mid(Bilangan, 7, 3)
 Satuan = Mid(Bilangan, 10, 3)
 
 If milyaran = "000" Then
  mil = ""
 Else
  milyar = Bilang(milyaran)
  mil = milyar + "Milyar "
 End If
 
 If Jutaan = "000" Then
  jut = ""
 Else
  Juta = Bilang(Jutaan)
  jut = Juta + "Juta "
 End If
 
 If Ribuan = "000" Then
  rib = ""
 Else
  Ribu = Bilang(Ribuan)
  rib = Ribu + "Ribu "
 End If
 
 If Satuan = "000" Then
  sat = ""
 Else
  SAtu = Bilang(Satuan)
  sat = SAtu
 End If
 
 terbilang = + mil + jut + rib + sat + " Rupiah"
End Function

Function Bilang(Masukan)
 Ratus = Left(Masukan, 1)
 Puluh = Mid(Masukan, 2, 1)
 SS = Right(Masukan, 1)
 
 Select Case Ratus
  Case "0"
   Rat = ""
  Case " "
   Rat = ""
  Case "1"
   Rat = "Seratus "
  Case "2"
   Rat = "Dua Ratus "
  Case "3"
   Rat = "Tiga Ratus "
  Case "4"
   Rat = "Empat Ratus "
  Case "5"
   Rat = "Lima Ratus "
  Case "6"
   Rat = "Enam Ratus "
  Case "7"
   Rat = "Tujuh Ratus "
  Case "8"
   Rat = "Delapan Ratus "
  Case "9"
   Rat = "Sembilan Ratus "
 End Select
 
 Select Case Puluh
  Case "0"
   Pul = ""
  Case " "
   Pul = ""
  Case "1"
   Pul = ""
  Case "2"
   Pul = "Dua Puluh "
  Case "3"
   Pul = "Tiga Puluh "
  Case "4"
   Pul = "Empat Puluh "
  Case "5"
   Pul = "Lima Puluh "
  Case "6"
   Pul = "Enam Puluh "
  Case "7"
   Pul = "Tujuh Puluh "
  Case "8"
   Pul = "Delapan Puluh "
  Case "9"
   Pul = "Sembilan Puluh "
 End Select
 
 If Puluh = "1" Then
  Select Case SS
   Case ""
    SSatu = ""
   Case "0"
    SSatu = "Sepuluh"
   Case "1"
    SSatu = "Sebelas"
   Case "2"
    SSatu = "Dua Belas "
   Case "3"
    SSatu = "Tiga Belas "
   Case "4"
    SSatu = "Empat Belas "
   Case "5"
    SSatu = "Lima Belas "
   Case "6"
    SSatu = "Enam Belas "
   Case "7"
    SSatu = "Tujuh Belas "
   Case "8"
    SSatu = "Delapan Belas "
   Case "9"
    SSatu = "Sembilan Belas "
  End Select
 Else
  Select Case SS
   Case ""
    SSatu = ""
   Case "0"
    SSatu = ""
   Case "1"
    SSatu = "Satu "
   Case "2"
    SSatu = "Dua "
   Case "3"
    SSatu = "Tiga "
   Case "4"
    SSatu = "Empat "
   Case "5"
    SSatu = "Lima "
   Case "6"
    SSatu = "Enam "
   Case "7"
    SSatu = "Tujuh "
   Case "8"
    SSatu = "Delapan "
   Case "9"
    SSatu = "Sembilan "
  End Select
 End If
 Bilang = Rat + Pul + SSatu
End Function


Comments

Post a Comment

Popular posts from this blog

Analisis Laporan Keuangan UMKM

  .. Let’s Study! Have a nice day! Merajut Asa Meraih Cita-Cita Semangat Belajar Menggapai Masa Depan Cerah Mata Kuliah Analisis Laporan Keuangan UMKM Dosen Pengampu Dwi Putri Restuti, M. E. Deskripsi Mata Kuliah Pembelajaran dari mata kuliah Analisis Laporan Keuangan UMKM adalah memberikan wawasan sebagai pengguna laporan keuangan dalam analisis dan proses evaluasi prospek ekonomi dan risiko perusahaan pada analisis bisnis yang berguna dalam pengambilan keputusan bisnis, yang meliputi analisis laporan keuangan berdasarkan hasil pengukuran rasio keuangan likuiditas, solvabilitas, aktivitas dan profitabilitas. RPS File RPS Analisis Laporan Keuangan UMKM   Introduction Moderasi Beragama Tracer Study Materi Pembelajaran 1.    Pengantar Analisis Laporan Keuangan (Sub CP-MK1) 2.    Metode Analisis Laporan Keuangan (Sub CP-MK1) 3.    Analisis Laporan Laba Rugi (Sub CP-MK1) 4.    Analisis Laporan Arus Kas (Sub CP-MK1) 5.    Anal...
Post a Comment
Read more

Dasar-Dasar Akuntansi

.. Let’s Study! Have a nice day! Merajut Asa Meraih Cita-Cita Semangat Belajar Menggapai Masa Depan Cerah Mata Kuliah Dasar-Dasar Akuntansi Dosen Pengampu Dwi Putri Restuti, M. E. Deskripsi Mata Kuliah Pembelajaran dari mata kuliah Dasar-Dasar Akuntansi adalah memberikan wawasan tentang konsep-konsep dasar akuntansi dan hubungannya dengan pengambilan keputusan, penerapan siklus akuntansi pada perusahaan sektor jasa, dagang dan manufaktur. Mahasiswa belajar   pengertian, fungsi, teori, profesi akuntansi; konsep PDA; mekanisme penjurnalan; posting ke buku besar; neraca saldo; jurnal penyesuaian; kertas kerja; laporan keuangan; jurnal penutup; jurnal pembalik dan proses pengambilan keputusan berdasarkan informasi keuangan. RPS File RPS Dasar-Dasar Akuntansi Introduction Islam Rahmatan Lil 'Alamin   Moderasi Beragama Tracer Study Materi Pembelajaran 1. Konsep Dasar Akuntansi 2. Katogeri Akun dan Persamaan Dasar Akuntansi 3. Pedoman Pengisian Akun 4.  Jurnal Umum Perusahaa...
Post a Comment
Read more

Praktikum Portofolio dan Pasar Modal Syariah

.. Let’s Study! Have a nice day! Merajut Asa Meraih Cita-Cita Semangat Belajar Menggapai Masa Depan Cerah Mata Kuliah Praktikum Portofolio dan Pasar Modal Syariah Dosen Pengampu Dwi Putri Restuti, M. E. Deskripsi Mata Kuliah Pembelajaran dari mata kuliah Praktikum Portofolio dan Pasar Modal Syariah adalah mahasiswa belajar tentang konsep dasar investasi dan portofolio sehingga mampu melakukan analisis terhadap berbagai jenis bentuk investasi keuangan yang ada di pasar modal dan pasar uang. Berdasarkan analisis yang dilakukan diharapkan mahasiswa memiliki kemampuan untuk memberikan masukan terkait pengambilan keputusan investasi berdasarkan penilaian sekuritas keuangan, pembentukan portofolio dan evaluasi kinerja portofolio. RPS File RPS Praktikum Portofolio dan Pasar Modal Syariah   Introduction Islam Rahmatan Lil 'Alamin   Moderasi Beragama Tracer Study Materi Pembelajaran 1. Dasar-Dasar Investasi dan Portofolio (Sub CP-MK1) 2. Pasar Modal dan Go Public (Sub CP-MK1) 3. Saha...
Post a Comment
Read more