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

Istilah Pencarian: