Tips Fungsi Terbilang Tidak Suport di Excel

aqmarofficial.com - Halo teman-teman! Selamat datang di blog saya. Saya sangat senang bisa berbagi tips, dan pengalaman dengan kalian semua. Blog ini adalah tempat di mana saya mengekspresikan diri dan berbagi berbagai hal menarik yang saya temui dalam kehidupan sehari-hari. Dari hobi, petualangan, hingga pemikiran pribadi, semuanya ada di sini. Saya berharap kalian dapat menemukan inspirasi di setiap tulisan yang saya bagikan. Jangan ragu untuk meninggalkan komentar atau berbagi pemikiran kalian.

Apa itu Fungsi Terbilang?

Fungsi TERBILANG di Excel adalah fungsi yang digunakan untuk mengubah angka atau nombor kepada bentuk teks dalam perkataan. Fungsi ini sangat berguna terutamanya dalam dokumen kewangan seperti invois atau laporan kewangan di mana jumlah wang perlu dinyatakan dalam perkataan dan bukan hanya dalam angka. Contohnya, jika anda mempunyai jumlah RM 1,234, maka fungsi TERBILANG akan menukarnya kepada "Satu Ribu Dua Ratus Tiga Puluh Empat t".

Walau bagaimanapun, Excel tidak mempunyai fungsi TERBILANG terbina dalam secara lalai. Untuk menggunakan fungsi ini, anda biasanya perlu menggunakan kod VBA (Visual Basic for Applications) atau add-in khas yang direka untuk tujuan ini. Terdapat banyak contoh kod VBA yang tersedia dalam talian yang boleh disalin dan ditampal ke dalam modul VBA Excel anda untuk menambah fungsi TERBILANG. Setelah kod dimasukkan, anda boleh menggunakan fungsi ini seperti mana-mana fungsi Excel yang lain.

Penggunaan fungsi TERBILANG bukan sahaja memudahkan pembacaan dan pengesahan jumlah wang dalam dokumen, tetapi juga mengurangkan risiko kesalahan dalam pemahaman jumlah yang dinyatakan. Ini amat penting dalam situasi di mana ketepatan maklumat kewangan adalah kritikal. Oleh itu, mengetahui cara untuk mengaplikasikan fungsi TERBILANG boleh menjadi kemahiran yang sangat berharga bagi sesiapa yang sering bekerja dengan data kewangan dalam Excel.

Solusi Fungsi Terbilang tidak Suport di Excel.

Adapun cara mengatasi fungsi terbilang tidak suport di aplikasi Microsoft Excel adalah sebagai berikut:

1. Buka Aplikasi Microsoft Excel.

2. Kelik tab Developer - kelik Menu Visual Basic "cara mengaktikan tab/menu developer" 

3. Kelik Kanan pada Area Sheet - Insert - Module

4. Kalau sudah terbuka halaman Module, Copy dan Paste Kode di bawah ini.

Kode aktivasi fungsi terbilang tidak suport "Copy dan paste kode di bawah ke dalam module"

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

Terima kasih telah meluangkan waktu untuk membaca artikel ini. Saya harap informasi yang disampaikan dapat memberi wawasan baru dan bermanfaat bagi Anda. Jangan ragu untuk meninggalkan komentar atau pertanyaan di bawah ini, saya sangat menghargai setiap masukan dan diskusi yang terjadi. Jika Anda menikmati konten ini, jangan lupa untuk berbagi dengan teman-teman Anda dan ikuti blog ini untuk mendapatkan update terbaru. Sampai jumpa di artikel selanjutnya!

Subscribe to receive free email updates: