Maaf Mr. Kid,
kalo boleh saya mnt dikirimkan attachmentnya saja karena saya tidak bisa buka
internet di kantor.
Terima kasih.
----- Original Message -----
From: Mr. Kid
To: BeExcel
Sent: Thursday, May 23, 2013 5:34 PM
Subject: Re: [belajar-excel] {Disarmed} Formula Excel Konversi Rupiah dari
Angka ke Huruf
Coba berkunjung ke website milis, dan masuk ke folder files (butuh YahooID) :
http://tech.groups.yahoo.com/group/belajar-excel/files/
kemudian unduh file bernama :
TerbilangTanpaMakro_1.zip
Wassalam,
Kid.
2013/5/23 Yvonne <yvo...@astridogroup.com>
Waktu itu sudah pernah dibahas di milis cara konversi angka ke huruf namun
melalui makro.
Kalo boleh, saya minta share contoh formula biasa saja tanpa makro untuk
konversi angka ke huruf karena saya kesulitan untuk buka web mencari file email
di database milis.
Terima kasih.
----- Original Message -----
From: Haps
To: belajar-excel@yahoogroups.com
Sent: Sunday, December 11, 2011 5:57 AM
Subject: Re: [belajar-excel] Macro Excel Konversi Rupiah dari Angka ke
Huruf
Terima kasih links nya,
Sebenarnya tidak perlu jauh-jauh, di milis ini juga sudah sering
dibicarakan mengenai
"'TERBILANG" (=istilah untuk "proses mengkonversi ANGKA ke KATA-KATA ,
MISAL 1
MENJADI "SATU")
File nya pun sebagian besar sudah di 'awetkan' di Link FILES. Tidak di
proteksi karena
memang diberikan sebagai pembelajaran
Selain proses penterjemahannya dgn MAKRO (seperti *.XLA yg di tunjuk oleh
pak Kuswo)
di milis ini malah sudah sering pula membicarakan * TERBILANG TANPA MAKRO
( = langsung dengan FORMULA, baik dengan ataupun tanpa dibantu Define
Name )
* Terbilang dlm Bahasa Inggris
* Terbilang khsus 999,99 (terbilang nilai rapor)
Barangkali pak Kuswo perlu melihat-lihat sebentar, sebagai perbandingan...
http://tech.groups.yahoo.com/group/belajar-excel/files/
http://milis-belajar-excel.1048464.n5.nabble.com/belajar-excel-Terbilang-Nilai-untuk-memudahkan-penulisan-Rapor-td4337673.html
dan manyak lagi...
Btw.., file yg kami unduh dari link tunjukan pak Kuswo ternyata
VBAProjectnya di LOCKED.
Rupanya si pembuat hanya memberikan alat, bukan termasuk pembelajarannya.
Tetapi setelah dilihat "dengan cara mengintip"nya; kelihatan vba-code
(makro)nya hanya
seperti ini (ditayangkan di sini bermaksud sebagai pembelajaran)
'---------- modul standar----------------------
Option Explicit
Dim strHasil As String
Public Function Kwitansi(ByVal nNilai As Currency) As String
Dim Grade As Variant
Dim strTerbilang As String
Dim strPart As String
Dim iGrade As Byte
Grade = Array("Milyar ", "Juta ", "Ribu ", "")
strTerbilang = ""
If Len(CStr(nNilai)) > 12 Then
strTerbilang = "Melewati batas konversi"
Else
strPart = Format(nNilai, String(12, "0"))
For iGrade = 1 To 4
If Val(Mid(strPart, (iGrade - 1) * 3 + 1, 3)) > 0 Then
strHasil = ""
Call GetRatus(Mid(strPart, (iGrade - 1) * 3 + 1, 3), iGrade)
strTerbilang = strTerbilang & strHasil
strTerbilang = strTerbilang & Grade(iGrade - 1)
End If
Next iGrade
End If
Kwitansi = strTerbilang & " Rupiah"
End Function
Sub GetRatus(ByVal strPart As String, ByVal iGrade As Byte)
Dim Angka1 As Variant, Angka2 As Variant
Dim i As Integer
Dim nTemp As Byte
Angka1 = Array("Satu ", "Dua ", "Tiga ", "Empat ", _
"Lima ", "Enam ", "Tujuh ", "Delapan ", "Sembilan ")
Angka2 = Array("Ratus ", "Puluh ", "")
For i = 1 To 3
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 1 Then
If i = 1 Then
strHasil = "Seratus "
ElseIf i = 2 Then
i = i + 1
nTemp = Val(Mid(strPart, i, 1))
If nTemp = 0 Then
strHasil = strHasil & "Sepuluh "
ElseIf nTemp = 1 Then
strHasil = strHasil & "Sebelas "
Else
strHasil = strHasil & Angka1(nTemp - 1) & "Belas "
End If
ElseIf Val(strPart) = 1 And iGrade = 3 Then
strHasil = strHasil & "Se"
Else
strHasil = strHasil & "Satu "
End If
ElseIf nTemp <> 0 Then
strHasil = strHasil + Angka1(nTemp - 1) + Angka2(i - 1)
End If
Next i
End Sub
Public Function KwitansiUcase(ByVal nNilai As Currency)
KwitansiUcase = UCase(Kwitansi(nNilai))
End Function
'----------------------------
Sedikit kesimpulan:
[] Max angka (bilangan) yg dapat diproses = 999 999 999 999 (belum bisa
menangai bilangan ordo trilyun), tidak menterjemhkan bagian pecahan
(angka
setelah tanda_pemisah_Desimal)
[] bagian bilangan pecahan dibulatkan ke satuan penuh
[] penyebutan 1000 = ("Seribu") tertulisnya ("SeRibu")
[] karena kata "Rupiah" sudah di hardcoded di vba-code nya maka jika Anda
ingin menterjemahkan: 189765 yang bukan menunjukkan nilai dalam Rupiah
anda akan mengalami sedikit kesulitan
=Substitute(Kwitansi(189765), "Rupiah", "Pikul")
2011/12/10 Udi Kusworo <udikusw...@yahoo.com>
> Bagi yang sering kerjanya berkaitan dengan keuangan dan menggunakan
excel, coba baca artikel ini, barangkali bermanfaat.
>
http://exceltrik.wordpress.com/2011/12/10/macro-excel-konversi-rupiah-dari-angka-ke-huruf/
