Assalamu'alaikum
Ilmu baru ni bro, memang gak terlalu pening tapi sedikit memudahkan kita
Cara membuat rumus terbilang di excel , seper ini
Kalau kamu maksud terbilang otomatis, contoh rumus sederhananya seperti ini (dengan bantuan fungsi VBA, karena Excel tidak punya fungsi terbilang bawaan):
Langkah-langkah buat angka otomatis jadi teks (terbilang)
Function Terbilang(ByVal x As Double) As String
Dim angka As Variant, huruf As Variant
Dim hasil As String
angka = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan")
If x < 10 Then
hasil = angka(x)
ElseIf x < 20 Then
hasil = angka(x - 10) & " Belas"
ElseIf x < 100 Then
hasil = angka(Int(x / 10)) & " Puluh " & angka(x Mod 10)
Else
hasil = x
End If
Terbilang = Application.WorksheetFunction.Trim(hasil)
End Function
Tutup editor (Alt + Q) lalu Di sel E3, tulis rumus: =Terbilang(e3)
0 Comments:
Posting Komentar
Monggo sarannya