Cara Membuat Rumus Terbilang Sendiri Di Microsoft Excel

Cara Membuat Rumus Terbilang Sendiri Di Microsoft Excel. Untuk merubah angka atau bilangan menjadi huruf pada excel kita dapat menulis manual, tetapi jika datanya berjumlah banyak tentu akan sangat merepotkan, untuk itu ada cara lain yaitu dengan cara mempergunakan rumus terbilang.

Cara Membuat Rumus Terbilang Sendiri Pada Microsft Excel
Fungsi Rumus terbilang adalah Untuk mengkonversi bilangan atau angka pada excel menjadi huruf secara otomatis, kita bisa menggunakan Fungsi Addin ( baca Cara Membuat Fungsi Terbilang di Excel,) atau dengan cara membuat rumus fungsi terbilang sendiri.

Pada posting kali ini admin coba Cara Membuat Rumus Fungsi Terbilang Sendiri Di Excel Untuk membuat fungsi terbilang sendiri silahkan ikuti langkah langkah berikut
  1. Buat Dokumen baru di Microsoft Excel
  2. Kemudian pilih Developer lalu visual basic, bila menu Developer tidak tampil maka aktifkan terlebih dahulu silahkan baca Cara Mengaktifkan Menu Developer di Excel , Atau tekan tombol Alt + F11 pada keyboard
    Cara Membuat Rumus Terbilang Sendiri Pada Microsft Excel
  3. Setelah menu visual basic terbuka Pilih Insert kemudian klik Module
    Cara Membuat Rumus Terbilang Sendiri Pada Microsft Excel
  4. Pada menu module ketikan atau kopykan kode dibawah ini 
  5. Function Terbilang(n As Long) As String 'max 2.147.483.647
    Dim satuan As Variant, Minus As Boolean
    On Error GoTo terbilang_error
    satuan = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
    If n < 0 Then
    Minus = True
    n = n * -1
    End If
    Select Case n
    Case 0 To 11
    Terbilang = " " + satuan(Fix(n))
    Case 12 To 19
    Terbilang = Terbilang(n Mod 10) + " Belas"
    Case 20 To 99
    Terbilang = Terbilang(Fix(n / 10)) + " Puluh" + Terbilang(n Mod 10)
    Case 100 To 199
    Terbilang = " Seratus" + Terbilang(n - 100)
    Case 200 To 999
    Terbilang = Terbilang(Fix(n / 100)) + " Ratus" + Terbilang(n Mod 100)
    Case 1000 To 1999
    Terbilang = " Seribu" + Terbilang(n - 1000)
    Case 2000 To 999999
    Terbilang = Terbilang(Fix(n / 1000)) + " Ribu" + Terbilang(n Mod 1000)
    Case 1000000 To 999999999
    Terbilang = Terbilang(Fix(n / 1000000)) + " Juta" + Terbilang(n Mod 1000000)
    Case Else
    Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n Mod 1000000000)
    End Select
    If Minus = True Then
    Terbilang = "Minus" + Terbilang
    End If
    Exit Function
    terbilang_error:
    MsgBox Err.Description, vbCritical, "^_^Terbilang Error"
    End Function
  6. Kemudian simpan dengan cara Klik File lalu Klik Save Book beri nama sesuai selera,kemudian klik Save. Akan tampil notifikasi klik Yes
    Cara Membuat Rumus Terbilang Sendiri Pada Microsft Excel
  7. Silahkan tutup halaman Microsoft Visual Basic kemudian silahkan dicoba.
Semoga bermanfaat sukses selalu

Previous
« Prev Post