5 JENIS RUMUS MERUBAH ANGKA KE HURUF

Merubah Angka Menjadi Huruf biasanya digunakan dalam Kuwitansi, Raport, Slip dan lain sebagainya.

Nah untuk mempercepat merubah Angka Ke Huruf kita bisa menggunakan rumus excel dan AddIns.

Berikut 5 Jenis Cara Merubah Angka Menjadi Huruf :

RUMUS SUBSTITUTE TIDAK PAKAI KOMA


Rumusnya adalah

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(F4;"# ");0;"Nol ");1;"Satu ");2;"Dua ");3;"Tiga ");4;"Empat ");5;"Lima ");6;"Enam ");7;"Tujuh ");8;"Delapan ");9;"Sembilan ");",";" ");" ";" ";1)

PAKAI MODULE (Tapi Cell Rujukan Formatnya Harus Text)


  1. Tekan ALT+F11 masuk jendela VBA excel
  2. Buat 1 buah module dan pastekan kode macro dibawah ini
  3. Function TerbilangAngka(Angka As String) As String Angka = CStr(Angka) Dim kar As Integer, i As Integer, kata As String kar = Len(Angka) For i = 1 To kar Select Case Mid(Angka, i, 1) Case Is = 1 kata = "satu" Case Is = 0 kata = "nol" Case Is = 2 kata = "dua" Case Is = 3 kata = "tiga" Case Is = 4 kata = "empat" Case Is = 5 kata = "lima" Case Is = 6 kata = "enam" Case Is = 7 kata = "tujuh" Case Is = 8 kata = "delapan" Case Is = 9 kata = "sembilan" Case Is = "," kata = "koma" Case Is = "." kata = "titik" Case Is = ">" kata = "lebih besar dari" Case Is = "<" kata = "lebih kecil dari" End Select TerbilangAngka = TerbilangAngka & " " & kata Next i TerbilangAngka = Trim(TerbilangAngka) End Function
  4. Kemudian di cell target silahkan ketik rumus UDF seperti ini =TerbilangAngka(F14)

RUMUS SUBSTITUTE 2 ANGKA DI BELAKANG KOMA


Rumusnya adalah

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(F41;"#,00 ");0;"Nol ");1;"Satu ");2;"Dua ");3;"Tiga ");4;"Empat ");5;"Lima ");6;"Enam ");7;"Tujuh ");8;"Delapan ");9;"Sembilan ");",";"Koma ");" ";" ";1)

PAKAI MODULE


  1. Tekan ALT+F11 Masuk ke jendela VBA
  2. Buat 1 buah module dan pastekan kode macro dibawah ini kedalam module
  3. Function salam(Angka As Double) As String Dim satuan As Variant Dim StrAngka As String satuan = Array("Nol", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan") StrAngka = CStr(Format(Angka, "#,##0.0")) For i = 1 To Len(Left(StrAngka, InStr(1, StrAngka, ",") + 2)) Select Case Mid(StrAngka, i, 1) Case 0 To 9 salam = salam + " " + satuan(Int(Mid(StrAngka, i, 1))) Case "," salam = salam + " Koma" Case "-" salam = "Minus " + salam Case Else salam = "" + salam End Select Next salam = Replace(salam, " ", " ") End Function
  4. Kemudian ketikkan di cell rumus sperti ini di cell yg Anda inginkan contoh =salam(F32)

RUMUS SUBSTITUTE 1 ANGKA DI BELAKANG KOMA


Rumusnya adalah

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(TEXT(F23;"#,0 ");0;"Nol ");1;"Satu ");2;"Dua ");3;"Tiga ");4;"Empat ");5;"Lima ");6;"Enam ");7;"Tujuh ");8;"Delapan ");9;"Sembilan ");",";"Koma ");" ";" ";1)

DOWNLOAD SAMPEL FILE

Demikian dari kami, semoga artikel ini bermanfaat.

"Kami Selalu Berusaha Memberikan Yang Terbaik Dan Original Untuk Anda"

Jabat Erat@Hak Cipta 2015

Subscribe to receive free email updates:

0 Response to "5 JENIS RUMUS MERUBAH ANGKA KE HURUF"