Back to Kompasiana
Artikel

Moneter

KUITANSI DENGAN FUNGSI TERBILANG PADA EXCEL

OPINI | 10 December 2011 | 10:19 Dibaca: 1327   Komentar: 10   1

Pada pembuatan Kuitansi adalah selalu memakai terjemah dari angka ke kata-kata. Tidak perlu dijelaskan kenapa Angka harus ditulis ulang Dengan Huruf. “Ude dari sono nye.. ” He he…

MEMBUAT FUNGSI TERBILANG

Kali ini saya Repost tentang Fungsi Terbilang.  Maksudnya tidak lain hanyalah membantu buat yang belum pernah atau belum memiliki atau belum tahu caranya bahwa terjemah Angka ke Dengan Huruf bisa dibuat otomatis. (Maaf buat rekan2 yg udah mengerti :) )

Fungsi Terbilang ini saya tulis pada Modul VBA di Macro Excel. Adapun rincian kodenya sebagai berikut :

Public Function Terbilang(MyNum As String) As String
Dim BitNum(18) As Integer
Dim TalkNum(18) As String
Dim BitOfText(18) As String
Dim BitOfNum As Integer
Dim LenMyNum As Integer
Dim TextBuffer As String
Dim MyLoop As Integer
Dim ResultBuffer
ResultBuffer = ""
BitOfNum = 0
Terbilang = "'"
LenMyNum = Len(MyNum)


If Val(MyNum) > 999999999999999# Then GoTo ResultError
For MyLoop = LenMyNum To 1 Step -1
BitNum(MyLoop) = Val(Mid$(MyNum, MyLoop, 1))
BitOfNum = BitOfNum + 1
GoSub TheBit
Next MyLoop


For MyLoop = 1 To LenMyNum
TextBuffer = TextBuffer + TalkNum(MyLoop) + BitOfText(MyLoop)
Next MyLoop
Terbilang = TextBuffer
Terbilang = UCase(Terbilang) & "RUPIAH"
Exit Function


TheBit:
Select Case BitOfNum
Case 1: BitOfText(MyLoop) = ""
Case 2, 5, 8, 11, 14, 17: BitOfText(MyLoop) = "puluh "
Case 3, 6, 9, 12, 15, 18: BitOfText(MyLoop) = "ratus "
Case 4: BitOfText(MyLoop) = "ribu "
Case 7: BitOfText(MyLoop) = "juta "
Case 10: BitOfText(MyLoop) = "milyar "
Case 13: BitOfText(MyLoop) = "trilyun "
Case 16: BitOfText(MyLoop) = "bilyun "
End Select


Select Case BitNum(MyLoop)
Case 0: TalkNum(MyLoop) = "": BitOfText(MyLoop) = ""
Case 1
Select Case BitOfNum
Case 1, 4, 7, 10, 13, 16
TalkNum(MyLoop) = "satu "
If BitOfNum = 4 And BitOfNum = LenMyNum Then TalkNum(MyLoop) = "se"
Case 2, 5, 8, 11, 14, 17
If BitNum(MyLoop + 1) = 0 Then TalkNum(MyLoop) = "se"
If BitNum(MyLoop + 1) = 1 Then
TalkNum(MyLoop) = "se"
TalkNum(MyLoop + 1) = "belas "
BitOfText(MyLoop) = ""
End If
If BitNum(MyLoop + 1) > 1 Then
TalkNum(MyLoop) = TalkNum(MyLoop + 1)
TalkNum(MyLoop + 1) = "belas "
BitOfText(MyLoop) = ""
End If
Case 3, 6, 9, 12, 15, 18
TalkNum(MyLoop) = "se"
End Select
Case 2: TalkNum(MyLoop) = "dua "
Case 3: TalkNum(MyLoop) = "tiga "
Case 4: TalkNum(MyLoop) = "empat "
Case 5: TalkNum(MyLoop) = "lima "
Case 6: TalkNum(MyLoop) = "enam "
Case 7: TalkNum(MyLoop) = "tujuh "
Case 8: TalkNum(MyLoop) = "delapan "
Case 9: TalkNum(MyLoop) = "sembilan "
End Select


If BitNum(MyLoop)  0 Then
If BitOfNum = 5 Or BitOfNum = 6 Then BitOfText(LenMyNum - 3) = "ribu "
If BitOfNum = 8 Or BitOfNum = 9 Then BitOfText(LenMyNum - 6) = "juta "
If BitOfNum = 11 Or BitOfNum = 12 Then BitOfText(LenMyNum - 9) = "milyar "
If BitOfNum = 14 Or BitOfNum = 15 Then BitOfText(LenMyNum - 12) = "trilyun "
End If
Return
ResultError:
Terbilang = "ERR()"
Exit Function
End Function

Anda harus menulisnya pada modul VBA di Excel.  Caranya:

13235106411794612961

Ingat: Macro Harus ENABLE

1. Tekan ALT dan F11 bersamaan, atau pilih menu Tools - Macro - Visual Basic Editor

1323510848464724699

Tekan ALT-F11 utk buka VBA Editor

2. Lalu pada This Workbook klik kanan, pilih Insert , pilih Module

13235109071603101518

Buatkan Modul, caranya Klik Kanan - Insert - Module

1323511027682312237

Tulislah Kode-kode Fungsi Terbilang di module

3. Pada Module1, mulailah menuliskan semua kode diatas tadi.

4. Lalu simpanlah.

Cara pemakaian fungsi Terbilang ini adalah sama dengan Fungsi yang sudah ada di Excel , misal fungsi Sum() yang dituliskan pada Cell dengan format penulisan ‘ =SUM(A1:A1o) ‘. Nha, untuk Fungsi terbilang ini juga sama, yaitu dituliskan pada Cell dengan format penulisan ‘ =Terbilang(A1) ‘. Lihat contoh pada gambar.

13235111591808627192

Test Fungsi Terbilang pada sheet Excel

Begitulah caranya, sangat simple.

————————————————————————

MENYATUKAN FUNGSI TERBILANG KE ‘TUBUH’ EXCEL

13235112722147155838

Simpan Module Fungsi Terbilang sebagai Addins

Cara yang lebih praktis adalah menjadikan Fungsi Terbilang sebagai bagian dari ‘Tubuh’ Excel. Lho kok bisa?? Bisa! Perhatikan caranya sebagai berikut :
1. Bukalah File Excel yang baru saja kita buat tadi. Yaitu File Excel yang sudah berisi Modul Terbilang.

2. Lalu klik File pilih Save As, lalu pada Jenis Extension pilih Excel Addin (.xla). Klik Ok.

Maka secara otomatis Fungsi Terbilang yang barusan kita buat tadi , sudah menyatu dengan tubuh Excel. Sehingga setiap saat Anda bisa menggunakan Fungsi Terbilang ini dengan mudah. Yaitu dengan menuliskan sesuai format penulisan ‘ =Terbilang(A1) ‘. Dimana cell A1 berisi Angka yang akan diubah menjadi Dengan Huruf nya.
SEKIAN , SEMOGA BERMANFAAT

Tags:

 
Kompasiana adalah Media Warga. Setiap berita/opini di Kompasiana menjadi tanggung jawab Penulis.
Siapa yang menilai tulisan ini?
    -
Processing data ..
Tulis Tanggapan Anda
Guest User


HEADLINE ARTICLES

Laporan dari Kupang, Sambutan Sederhana …

Opa Jappy | | 20 December 2014 | 16:29

Pendekar Tongkat Emas, Karya Anak Bangsa …

Murda Sulistya | | 20 December 2014 | 15:53

5 Alasan Berhenti Menggunakan Styrofoam, …

Gede Surya Marteda | | 20 December 2014 | 12:17

Be a Role Model : Do it Now and Start From …

Fifin Nurdiyana | | 20 December 2014 | 14:14

Blog Competition Coca-Cola Sampai Akhir …

Kompasiana | | 24 November 2014 | 20:22


TRENDING ARTICLES

Konyol, @estiningsihdwi Bantah Sanggahannya …

Gatot Swandito | 15 jam lalu

Jangan Nodai Sukacita Natal Kami dengan …

Sahroha Lumbanraja | 17 jam lalu

Presiden Jokowi-Wapres JK Atasi Korban …

Musni Umar | 18 jam lalu

Dihina “Kampret”, Pilot Garuda …

Felix | 18 jam lalu

Salahkah Menteri Rini Menjual Gedung BUMN? …

Daniel Setiawan | 19 jam lalu


Subscribe and Follow Kompasiana: