Home / rumus excel

5 JENIS RUMUS MERUBAH ANGKA KE HURUF

Post a Comment
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
  3. 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
  3. 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

Post a Comment for "5 JENIS RUMUS MERUBAH ANGKA KE HURUF"

Post a Comment