Mengkodekan dan Mendekode Harga Barang

Posted by

Pertanyaan Dari : Joni

*bos..bisakah kita membuat harga barang dengan kode? misalnya gini,,kode saya
S=1
D=2
T=3
0=0 saya pengen agar di tabel excel,,ketika saya memasukkan kode DT00,bisa langsung di artikan dengan 2300…kira@ bisa ga ya?
Dan kemudian saya jawab, BISA
Berikut ini saya berikan 1 program untuk mendekode dan meng-encode

Const Secret = "SDTOMBILA0"
Function DecodeHarga(Harga As String) As Long
 Panj = Len(Harga)
 Harga = UCase(Harga)
 Nilai = 0
 j = Panj
 For i = 1 To Panj
 Huruf = Mid(Harga, i, 1)
 NilaiHuruf = InStr(1, Secret, Huruf, vbTextCompare)
 If NilaiHuruf = 10 Then NilaiHuruf = 0
 Nilai = Nilai + NilaiHuruf * 10 ^ (j - 1)
 j = j - 1
 Next i
 DecodeHarga = Nilai
End Function
Function EncodeHarga(Harga As Long) As String
 Panj = Len(CStr(Harga))
 Nilai = ""
 For i = 1 To Panj
 Angka = Mid(Harga, i, 1)
 If Angka = 0 Then Angka = 10
 Huruf = Mid(Secret, Angka, 1)
 Nilai = Nilai & Huruf
 Next i
 EncodeHarga = Nilai
End Function

Itu adalah kode Decode dan Encode
Kalau decode, artinya merubah dari kode menjadi angka, dan encode, mengkodekan angka menjadi kode harga
Silahkan buka VBA, insert new module, dan copykan fungsi diatas pada modul, lalu simpan filenya sebagai xlsm
Oh iya, anda bisa merubah nilai Secret, yang penting 10 angka yang masing-masing hurufnya tidak sama. Contoh, BUNGAKECIL.
Yang perlu diingat, adalah nilai 10 mewakili 0. Jadi angka 0 di belakang sendiri.
Pemakaiannya seperti fungsi excel biasa, mulai dengan =, lalu tulis EncodeHarga(, klik sel yang berisi angka , tulis kurung tutup, tekan enter

Contoh Pemakaian

decode-encode
Source : http://harisaryono.com/2012/06/mengkodekan-dan-mendekode-harga-barang/


DR.CB
MS. Office TutorialUpdated at : March 30, 2013

1 comments: