Membuat Terbilang Pada Microsoft Word

 


Berikut adalah cara membuat terbilang pada Microsoft Word 

1. Buka Microsoft Word, klik New , lalu pilih Blank Document



2. Kemudian tekan ALT + F11 untuk masuk ke Visual Basic Editor, lalu klik pada ThisDocument



3.  Selanjutnya klik kanan pada project, lalu pilih Insert  , kemudian klik Module



4. Copy Script dibawah ini ke editor module tersebut

Sub FTerbilang()
Selection.Text = Terbilang(Selection.Text)
End Sub

Function Terbilang(n As Double) As String
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 1000000000 To 999999999999#
        Terbilang = Terbilang(Fix(n / 1000000000)) + " Milyar" + Terbilang(n - (Int(n / 1000000000) * 1000000000))
    Case Else
        Terbilang = "Terbilang Error"
End Select
If Minus = True Then
    Terbilang = "Minus" + Terbilang
End If
Exit Function
terbilang_error:
MsgBox Err.Description, vbCritical, "Terbilang Error"
End Function



5. Cara Menjalankan Terbilang 

5.1. Buat Text Angka , contoh 234000 (tanpa titik atau pemisah ribuan)

5.2. Blok angka tersebut

5.3. Kemudian tekan ALT + F8 untuk menjalankan Macronya

5.4. Pilih Terbilang kemudian pilih Run


5.5. Maka Hasil Text angka 234000 berubah menjadi Dua ratus tiga puluh empat ribu


6. Menambahkan Menu Untuk Fungsi Terbilang

Jika kesulitan menjalankan Fungsi terbilang tersebut harus menekan ALT + F8 setiap ingin menjalankan fungsi ini, maka membuat Sortcut atau Tombol Menu untuk memudahkan dalam menggunakan fungsi terbilang tersebut. 

6.1. Masuk Ke Customize Ribbon, klik kanan pada Menu Ribbon kemudian pilih Customize RibbonCustomize ribbon



6.2. Buat New Group di Home dan Rename “Terbilang”, Untuk memudahkan Pada Main Tabs pilih Home, agar Tombol Fungsi Terbilang mudah di akses, Buat New Group dan Rename menjadi Terbilang

6.3. Pilih Macro dan Add Fungsi Terbilang, Setelah Group Terbilang dibuat tambahkan Fungsi Terbilang ke dalamnya. Jangan lupa Rename dan Beri sebuah Icon menarikCustomize ribbon 2



6.4. Tampilan Hasil .