Dengan mengikuti panduan lengkap di atas, mulai dari persiapan, download file atau .XLAM , mengaktifkan macro settings, hingga memasukkan file add-in ke WPS Spreadsheet, Anda dapat menghemat waktu sekaligus menghindari kesalahan penulisan manual pada dokumen-dokumen penting seperti invoice, kwitansi, faktur pajak, laporan keuangan, dan dokumen resmi lainnya.
Downloading and integrating the Terbilang add-in into WPS Office Spreadsheet is a highly effective way to eliminate manual typing errors in financial documentation. By leveraging Excel's .xla compatibility, WPS Office users can enjoy seamless automation without needing expensive software upgrades. Follow the steps above to install it once, and enjoy automated text generation for all your future invoices and accounting reports. download add in terbilang wps office
Function Terbilang(ByVal n As Variant) As String Dim units As Variant units = Array("", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas") If Not IsNumeric(n) Then Terbilang = "" Exit Function End If n = CLng(n) Select Case True Case n < 12 Terbilang = units(n) Case n < 20 Terbilang = Terbilang(n - 10) & " belas" Case n < 100 Terbilang = Terbilang(Int(n / 10)) & " puluh" & IIf(n Mod 10 <> 0, " " & Terbilang(n Mod 10), "") Case n < 200 Terbilang = "seratus" & IIf(n - 100 <> 0, " " & Terbilang(n - 100), "") Case n < 1000 Terbilang = Terbilang(Int(n / 100)) & " ratus" & IIf(n Mod 100 <> 0, " " & Terbilang(n Mod 100), "") Case n < 2000 Terbilang = "seribu" & IIf(n - 1000 <> 0, " " & Terbilang(n - 1000), "") Case n < 1000000 Terbilang = Terbilang(Int(n / 1000)) & " ribu" & IIf(n Mod 1000 <> 0, " " & Terbilang(n Mod 1000), "") Case n < 1000000000 Terbilang = Terbilang(Int(n / 1000000)) & " juta" & IIf(n Mod 1000000 <> 0, " " & Terbilang(n Mod 1000000), "") Case Else Terbilang = "jumlah terlalu besar" End Select End Function Dengan mengikuti panduan lengkap di atas, mulai dari