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.

Aturan Penambahan s/es pada kata kerja bentuk simple

Bentuk kata kerja simple Present tense digunakan untuk menggambarakan kegiatan yang dilakukan secara rutin, contohnya:" I go to school everyday" namun ada perbedaan jika kita menggunakan subjek orang ketiga tunggal, maka dalam kata kerjanya harus ditambahkan s/es. 

Berdasarkan contoh di atas jika menggunakan subjek orang ketiga tunggal maka berubah menjadi : "He goes to school everyday". pada kata kerja (go) kita tambahkan es karena subjeknya orang ketiga tunggal. Nah berikuta akan saya jelaskan aturan-aturan perubahan kata kerja dengan menambahkan s/es setelah kata kerja bentuk ke satu.

1. Pada umumnya kata kerja bentuk simple present langsung ditambahkan s diakhir kata kerja tersebut : contohnya : 
work-works, sing-sings, write-writes
2. Kata kerja bentuk simple present tense yang berakhiran "ch,ss,o,s,sh,x,z ditambahkan akhiran "es" di akhir kata kerja tersebut : Contohnya :pass – passes
   teach – teaches
   reach – reaches
   fix – fixes
   do – does
   kiss – kisses
   finish – finishes
   wish -wishes
   discuss – discusses
   go – goes
3. Kata kerja bentuk simple present tense yang berakhiran "y", dan didahului oleh huruf mati atau konsonan, maka akhiran "y" diubah menjadi "i" kemudian ditambahkan"es" di akhir kata kerja tersebut. Contohnya :"study -studies
   carry – carries
   fly – flies
   reply – replies
   cry – cries
4. Kata kerja bentuk simple present tense yang berakhiran "y" dan didahului oleh huruf hidup (vocal), maka ditambahkan "s" di akhir kata kerja tersebut Contohnya :"lay – lays
   buy – buys
   play – plays
   say -says
5. penambahan "s/es" tersebut tidak berlaku jika di depan kata kerja itu ada kata kerja bantu (auxiliary) contohnya :"can read"can open
   must close
   must work

Nah itulah aturan penambahan "s/es" pada pelajaran bahasa inggris semub=

Membuat 2 buah combox saling berhubungan di excel

Pada Postingan Kali ini saya akan membahas bagaimana cara membuat dua buah combobox pada excel yang saling berhubungan satu sama lain. artinya jika pada combobox yang pertama berisi tiga opsi maka opsi yang pertama terdiri dari beberapa rincian di combobox yang kedua akan menampilkan sub item dari opsi combobox pertama, entah apa bahasanya yang penting mungkin ini adalah gambaran dari dua buah combobox yang saling berhubungan.

Atau bisa dikatakan untuk membuat combobox yang saling berhubungan itu membuat combobox berdasarkan kategori, dimana combobox yang kedua akan berubah berdasarkan kategori di combobox1. saya memberikan contoh dua buah combobox itu untuk pembuatan buku bank dimana pada buku bank itu ada dua kategori yaitu pemasukan dan pengeluaran. maka kedua item itu kita masukan dalam combobox yang pertama dengan scriptnya seperti berikut

Private Sub UserForm_Initialize() With ComboBox1 .AddItem "Pemasukan" .AddItem "Pengeluaran" End With End Sub

Kode di atas untuk membuat opsi pada combobox1 apabila userform itu aktif atau dijalankan maka combobox itu akan berisi pemasukan dan pengeluaran.

Bagaimana caranya agar combobox1 itu mempengaruhi isi daripada combobox dua maka kita tambahkan script berikut agar dua buah combobox itu saling berhubungan satu sama lain.

Private Sub ComboBox1_Change() ComboBox2.Clear With ComboBox2 Select Case ComboBox1 Case "Pemasukan" .AddItem "Setoran" .AddItem "Bunga Bank" Case "Pengeluaran" .AddItem "Penarikan" .AddItem "Pajak Bank" .AddItem "Adm Bank" End Select End With End Sub

Nah itu cara membuat 2 buah combobox saling berhubungan berdasarkan kategory,sementera kegunaan membuat menu ini agr kita tidak salah input ketika akan memasukan data yang berupa data yang berhubungan, selanjutnya untuk keperluan input data bisa dikembangkan berdasarkan kategori yang di perlukan.

Selamat Mencoba semoga bermanfaat!