Merubah angka menjadi teks atau terbilang

Membuat rumus terbilang pada excel memang sangat diperlukan apalagi kalau kita sering menggunakan data keuangan seperti membuat kwitansi, agak ribet kalau kita menuliskan angka-angka menjadi huruf secara manual.

disamping ribet penulisan angka menjadi huruf secara manual juga kurang teliti. kadang karena pekerjaan yang numpuk sehingga tingkat konsentrasi kita menurun menjadikan yang kita tulis itu menjadi salah.

Ada dua cara yang menurut saya baik untuk membuat rumus terbilang, pertama dengan menggunakan macro excel, yang kedua dengan mengupload pada menu add in.

Saya akan uraikan kedua cara tersebut.

Dengan menggunakan macro excel

1. pada menu developer pilih visual basic, setelah itu pilih menu insert module.
2. Ketikan kode berikut.

Function TeksKeAngka(ByVal n As Double) As String Dim sSatuan() Dim s As String sSatuan() = Array("nol", "satu", "dua", "tiga", "empat", "lima", "enam", "tujuh", "delapan", "sembilan", "sepuluh", "sebelas", "dua belas", "tiga belas", "empat belas", "lima belas", "enam belas", "tujuh belas", "delapan belas", "sembilan belas", "dua puluh") s = "" If n > 999 And n < 200 Then s = "seribu" n = n Mod 1000 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 199 Then s = s & sSatuan(Fix(n / 100)) & " ratus" n = n Mod 100 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 99 And n < 200 Then s = "seratus" n = n Mod 100 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If If n > 20 And n < 100 Then s = s & sSatuan(Fix(n / 10)) & " puluh" n = n Mod 10 If n = 0 Then TeksKeAngka = s Exit Function End If s = s & " " End If TeksKeAngka = s & sSatuan(n) End Function Function Terbilang(ByVal n) As String Dim sBil() sBil = Array("", "ribu", "juta", "milyar", "triliun", "quadriliun") Dim i As Integer Dim iInt As Integer Dim s As String Dim dInt As Double dInt = Fix(n) If (dInt < 2000) Then Terbilang = TeksKeAngka(CInt(dInt)) Exit Function End If i = 0 s = "" Do While dInt > 0 iInt = CInt(dInt - Fix(dInt / 1000) * 1000) If iInt <> 0 Then If Len(s) > 0 Then s = " " & s s = TeksKeAngka(iInt) & " " & sBil(i) & s End If i = i + 1 dInt = Fix(dInt / 1000) Loop Terbilang = s End Function

setelah itu save dan kita bisa coba di lembar kerja excel dengan mencoba pada sebuah cell dan masukan sebuah angka, kemudian di cell lain ketikan rumus TeksKeAngka dan lihat hasilnya.

Untuk membuat file add in maka kita tinggal save lembar kerja tadi dengan ekstensi .xla.

Setelah file *xla. terbentuk selanjutnya kita pilih menu developer kemudian kita pilih add in dan cari file *xla yang telah kita buat di bawah ini merupakan cara upload file *xla ke add in

Selamat mencoba!

Membuka Sheet terkunci pada Excel aplikasi raport

Membuka sheet terkunci sangat diperlukan ketika kita akan menelusuri permasalahan kesalahan rumus atau error data, ini berdasarkan pengalaman saya bersama teman-teman yang sedang mengerjakan aplikasi  raport. 

Kendala pertama kita selalu kepingin terburu-buru dalam menyelesaikan pekerjaan tersebut tanpa  membaca aturan atau petunjuk penggunaan aplikasi itu sendiri. sehingga raport yang kita kerjakan tidak sesuai dengan yang kita harapkan.Saya memang bukan user dari aplikasi tersebut, namun banyak teman-teman bertanya tentang masalah dari penggunaan aplikasi tersebut.

Ketika menenukan kendala saya belum bisa memberikan solusi karena aplikasi itu buatan orang lain. yang paling tahu permasalahannya tentunya si pembuat aplikasi itu. namun saya mencoba memberikan trik untuk menelusuri permasalah yaitu dengan membuka kunci sheet excelnya. setelah kuncinya terbuka tinggal dikaji rumus dan link dari pada rumus itu.

Alhamdulillah dengan menggunakan kunci ajaib pembuka sheet terkunci permasalahan tentang aplikasi raport semua bisa terkendali.

Berikut adalah langkah-langkah untuk membuka sheet yang dikunci rapat-rapat oleh pembuat aplikasi excel :

1. Klik tab developer atau dengan menekan keyboard alt + F11. sehingga tampil jendela dialog visual basic
2. kemudian klik insert module dan copykan saja kode berikut :

Sub bukasheet() Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveWorkbook.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _ & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) _ & Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) If ActiveWorkbook.ProtectStructure = False Then If ActiveWorkbook.ProtectWindows = False Then If ActiveSheet.ProtectContents = False Then Exit Sub End If End If End If Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next End Sub

Setelah itu kita tinggal klik run. insya allah sekarang sheet yang terkunci sudah bisa terbuka, setelah terbuka tinggal telusuri permasalahan link dan rumus yang ada.

contoh pengalaman saya ketika teman saya menayakan kenapa deskripsi yang tidak muncul. setelah saya kaji ternyata dengan membaca rumus bahwa deskripsi akan muncul apabila no induk tidak kosong.

Nah itulah cara untuk membuka sheet yang terkunci.