Tuesday, December 18, 2018

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

add in

Selamat mencoba!

Saturday, December 15, 2018

Membuka Sheet terkunci pada Excel aplikasi raport

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.

Friday, October 13, 2017

Aturan Penambahan s/es pada kata kerja bentuk simple

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 : 
  2. work-works, sing-sings, write-writes
  3. 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
  4. 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
  5. 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
  6. 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=

Wednesday, April 19, 2017

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.
comboboxcategory

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!