Back to Kompasiana
Artikel

Moneter

KUITANSI DENGAN FUNGSI TERBILANG PADA EXCEL

OPINI | 10 December 2011 | 10:19 Dibaca: 1300   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

Pengalaman Masa Kecil Membuat Ahok Jadi …

Hendra Wardhana | | 23 November 2014 | 22:44

Pungutan di Sekolah: Komite Sekolah Punya …

Herlina Butar-butar | | 23 November 2014 | 22:08

Masyarakat Kampung Ini Belum Mengenal KIS, …

Muhammad | | 23 November 2014 | 22:43

Saliman, Buruh Biasa yang Cepat Tangkap …

Topik Irawan | | 23 November 2014 | 16:44

Maksimalkan Potensi Diri dan Gerak Lebih …

Kompasiana | | 21 November 2014 | 12:11


TRENDING ARTICLES

Menampar SBY dengan Kebijakan Jokowi …

Sowi Muhammad | 13 jam lalu

Dengan Interpelasi, Jokowi Tidak Bisa …

Ibnu Purna | 13 jam lalu

Rangkuman Liputan Acara Kompasianival Akbar …

Tjiptadinata Effend... | 14 jam lalu

Kenaikan Harga BBM, Pandangan di Kalangan …

Indartomatnur | 14 jam lalu

Pak Jokowi Rasa Surya Paloh …

Bedjo Slamet | 18 jam lalu


HIGHLIGHT

Donor Darah di Perancis …

Bayu Teguh | 11 jam lalu

Baru 24 Tahun, Sudah Dua Kali Juara Dunia! …

Jimmy Haryanto | 11 jam lalu

Momentum Pencabutan Subsidi BBM, Memicu Dua …

Dwi Hartanto | 12 jam lalu

Mitos-mitos Seputar Kenaikan Harga BBM …

Axtea 99 | 12 jam lalu

Menggali Potensi Diri dengan Travelling …

Detha Arya Tifada | 13 jam lalu

Subscribe and Follow Kompasiana: