Permintaan Password Aplikasi Persedian Excel

Sudah lama saya tidak update content di blog ini, tahu - tahu sudah ada beberapa comment yang belum sempat saya reply. Saya mohon maaf jika komentar Anda tidak bisa langsung saya reply pada hari itu juga, hal ini bukan berarti saya malas untuk membalasnya. Tetapi hal ini dikarenakan ada beberapa kesibukan yang harus saya jalani pada kehidupan nyata saya. Namun dalam kesempatan kali ini saya mencoba meluangkan waktu saya untuk menulis lagi di blog ini. 

Tulisan kali ini saya tidak membahas ataupun mencoba membuat tutorial baru tetapi lebih menjelaskan sebuah permintaan maaf yang sekaligus dapat menjawab semua komentar yang rata-rata banyak meminta password kode VBA. Dengan berbagai alasan kebutuhan akan permintaan password kode VBA tersebut, yang pastinya saya melihat permintaan tersebut pastilah kita semua pada dasarnya ingin belajar dan mungkin dapat mengembangkan kembali aplikasi tersebut menjadi sesuai dengan kebutuhan masing-masing. 

Hal ini sangatlah wajar, saya pun merasakan seperti itu ketika mencoba mengembangkan sebuah aplikasi Excel pastinya saya akan mencari tahu kode-kode didalamnya dan akan berusaha mempelajarinya untuk dapat saya kembangkan kembali. Nah oleh karena itu karena inti tujuan awalnya sayamembuat blog ini adalah untuk berbagi semua informasi yang saya ketahui maka tidak akan sungkan juga saya membagi password kode VBA aplikasi persediaan excel ini untuk anda kembangkan. Tapi yang perlu anda ingat untuk membuat  aplikasi ini saya pun mesti memutar otak agar dapat mengembangkannya oleh karena itu jika anda pun berbaik hati dengan saya maka saya akan senang untuk berbagi password aplikasi persedian excel ini dengan anda.

Namun untuk mendapatkannya anda harus memenuhi syarat yang sudah saya tentukan. Setelah saya rasa syarat - syarat yang saya tentukan sudah anda lakukan maka saya akan mengirimkan passwordnya ke email anda. 

Apakah syaratnya ?

Karena tujuannya adaalah berbagi maka saya pun memberikan syaratnya adalah anda bersedia berbagi informasi ini kepada teman-teman lainnya, Caranya : 

1. Jika Anda punya blog juga maka kamu cukup menulis atau mereview tentang aplikasi ini dengan menyertai link asli dari aplikasi ini yaitu : http://iyanzone.blogspot.com/2014/11/membuat-aplikasi-persediaan-pakai-excel.html
2. Anda cukup berkomentar 3 kali di blog-blog yang berbeda dengan memberikan atau menambahkan link ini http://iyanzone.blogspot.com/2014/11/membuat-aplikasi-persediaan-pakai-excel.html di kolom komentar tersebut. 
3. Anda kirimkan link informasi ini http://iyanzone.blogspot.com/2014/11/membuat-aplikasi-persediaan-pakai-excel.html ke sebuah forum diskusi atau group di sosial media yang berbeda sebanyak 3 kali contohnya pada group yang ada di Facebook, komunitas Google plus atau twitter. Silahkan Anda share informasinya dengan disertai link blog ini. 

Gimana syarat-syaratnya cukup mudah bukan ? saya tidak meminta uang kepada anda. saya hanya meminta anda untuk menshare atau berbagi kepada teman-teman yang lain atas informasi ini, dan syarat ini saya rasa cukup adil. Saya membagi Anda password kode VBA aplikasi excelnya dan anda berbagi juga kepada orang lain tentang aplikasi ini dengan menyertai sumber linknya. 

Setelah anda melakukan syarat-syarat yang sudah saya tentukan maka segera anda berkomentar pada kolom komentar di bawah posting ini dengan memberikan informasi link-linknya kemana anda berbagi informasi ini dan jangan lupa tulis juga email anda karena passwordnya akan saya kirimkan ke email kamu. Jadi jangan buang-buang waktu segera penuhi syarat-syaratnya agar kamu bisa cepat juga mendapatkan passwordnya. 

Read more »

Menghapus Nilai Ganda Menggunakan VBA

Ketika dalam database Excel Anda terdiri dari banyak data (baris) dan kemungkinan terjadinya nilai ganda pasti ada, kecuali Anda membatasi atau menolak nilai ganda pada saat pengentrian data.

Akan tetapi jika sudah terlanjur mengentry data dalam jumlah banyak sedangkan Anda hanya menginginkan 1 (satu) nilai atau data yang unik (tidak ada nilai ganda), maka apakah harus mencarinya satu-persatu ??? Saya yakin pasti membutuhkan tingkat kejelian yang sangat tinggi.

Solusi yang paling tepat untuk kasus seperti di atas adalah menggunakan VBA. Dengan menggunakan kode VBA, pekerjaan yang membutuhkan waktu, kejelian, serta kesabaran tersebut, dapat dilakukan dengan sekejap mata.

Sebagai contoh, lihat ilustrasi berikut ini :

Dari data tersebut di atas tampak terlihat beberapa data atau nilai yang sama, dan untuk menghapusnya, Anda tinggal memasukkan module berikut ini di jendela VBA Anda.

Option Explicit

Sub HapusDuplikat()

Dim x As Long
Dim LastRow As Long

LastRow = Range("A65536").End(xlUp).Row
For x = LastRow To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A1:A" & x), Range("A" & x).Text) > 1 Then
Range("A" & x).EntireRow.Delete
End If
Next x

End Sub

Untuk langsung melihat hasilnya, tekan F5 di keyboard Anda, tapi sebelumnya pastikan Macro Excel Anda sedang dalam keadaan aktif (enable)

Catatan :
kode di atas 'hanya' akan menghapus nilai ganda yang terdapat di kolom A saja, artinya jika terdapat nilai ganda di kolom selain A maka kode tersebut tidak akan berhasil, solusinya adalah mengganti huruf "A" dengan huruf lain yang mewakili kolom yang anda inginkan.
Range("A65536") merupakan baris maksimal yang dimiliki oleh Excel versi 2007 ke bawah, jika Anda menggunakan versi 2007 ke atas - ada baiknya Anda menggantinya dengan nilai Range("A1048576")

Read more »

Membuat Aplikasi Persediaan Pakai Excel

Aplikasi Persediaan Excel

Sebelumnya saya pernah membahas bagaimana cara menghitung persedian optimum dengan metode EOQ untuk menetukan berapa banyak persediaan yang harus kita kontrol. Namun dalam kontrol persediaan tersebut kita perlu juga mengetahui jumlah keluar dan masuknya persediaan tersebut hal ini agar kita dapat membuat keputusan untuk membuat order kembali. Banyak sekali software yang mampu memberikan fungsi terhadap kontrol persediaan itu namun semuanya dapat Anda gunakan jika Anda membelinya, hal ini mungkin akan menjadi pertimbangan Anda juga. 

Tapi disini saya memberikan sebuah aplikasi yang dapat Anda gunakan untuk mengontrol persediaan itu secara gratis alias tidak bayar. Aplikasi ini dapat berfungsi untuk mengontrol keluar dan masuknya barang serta membuat laporan-laporan sederhana. Aplikasi ini menggunakan program Excel dengan penambahan kode-kode macro didalamnya untuk melakukan perintah-perintah yang ada didalam kontrol aplikasi ini. Dikarenakan aplikasi persediaan ini dibuat dari Excel maka pastinya dapat dengan mudah Anda gunakan karena tidak perlu menginstal software lainnya sebagai pendukungnya.

Kenapa saya katakan dapat langsung Anda gunakan ? selain tanpa harus instal software pendukung, aplikasi ini dibuat dengan menggunakan program microsoft excel yang saya yakin pastinya ketika Anda membeli sebuah komputer ataupun laptop didalamnya sudah terinstal program Excel ini ( baik yang bajakan ataupun yang original ). Namun saya tidak membahas soal bajakan atau original karena itu bagian dari privasi Anda. Yang mau saya jelaskan disini lebih pada penggunaan aplikasi persediaan ini saja. 

Pada aplikasi persediaan Excel ini ada beberapa menu yang dapat digunakan, yaitu: 

• Menu Daftar Barang. 
• Menu berisi sebuah control berupa form input barang yang berfungsi untuk menambah, menghapus atau mengedit barang yang akan disimpan pada tabel daftar barang. 

  

  Menu Daftar Barang

  

  Form Input Barang

• Menu Mutasi Barang. 
• Menu ini berisi sebuah control berupa form mutasi barang yang berfungsi untuk melakukan transaksi terhadap keluar dan masuknya barang sehingga akan menghitung sisa barang yang tersedia pada stock jurnal. 

  

  Menu Mutasi Barang

  

  Form Mutasi Barang

• Menu Laporan
• Menu ini berisi sebuah form yang berfungsi untuk membuat laporan-laporan sederhana mengenai transaksi-transaksi yang sudah dilakukan terhadap persediaan barang. Laporan-laporan ini dapat diatur berdasarkan rentang waktu dan jenis atau tipe barang yang Anda inginkan. 

Menu Laporan Barang

Form Laporan Barang

• Form About
• Form ini berfungsi untuk penjelasan detail tetang aplikasi ini. 
  

Aplikasi ini masih cukup sederhana jika untuk memenuhi kebutuhan Anda yang kompleks, namun sedikitnya sudah bisa untuk mengontrol keluar masuknya barang dan membuat sebuah laporan. 

Contoh dari file Excel hasil Tutorial Membuat Form Login di Excel ini dapat Anda downlod gratis di sini

Contoh dari file Excel hasil Tutorial Membuat Aplikasi Persediaan di Excel ini dapat Anda downlod gratis di sini 

Read more »

Tutorial Membuat Menu Baru Di Worksheet Menu Bar Excel Dengan Kode Macro VBA

Membuat Menu Baru Di Worksheet Menu Bar Excel

Tutorial kali ini judulnya panjang banget ya ??? hehehe. Saya sendiri juga bingung mau kasih judul yang pendek nya seperti apa ya ???. Begini saya kasih judul seperti ini buk

an tanpa alasan, ini agar Anda yang membaca tutorial ini nantinya bisa lebih tahu maksud atau istilah-isilah yang akan saya jelaskan di tutorial ini. Tapi jika memang Anda masih belum mengerti maksudnya, begini deh saya jelasin dulu sekalian saya kasih screen shoot nya aja ya ?.  Maksud dari menu baru ini adalah bahwa kita akan membuat suatu menu tambahan di dalam worksheet Excel dengan menggunakan kode macro VBA yang tersedia di Excel. Menu baru yang akan kita buat ini sebelumnya tidak tersedia di dalam Excel tapi di tutorial ini kita akan membuatnya sendiri dengan kode VBA Excel dan kata-kata ataupun bahasa yang di tampilkan pada menu baru ini dapat kita sesuaikan berdasarkan kebutuhan kita. Sebagai contoh disini langsung aja deh lihat screenshootnya biar jelas !!! 

Selain menggunakan kode macro VBA, untuk membuat menu juga bisa kita lakukan melalui perintah yang sudah di sediakan oleh excel sehingga kita dapat membuat custom toolbar sendiri. Namun pada tutorial kali ini saya lebih akan menjelaskan bagaimana caranya membuat menu tambahan ini dengan menggunakan kode macro VBA di Excel.  Prinsip kerja kode macro yang akan kita buat ini yaitu pada saat kita membuka suatu file excel maka secara otomatis akan ditambahkan menu baru pada Worksheet Menu Bar Excel Kita … dan sebaliknya pada saat kita tutup filenya menu-menu tersebut akan menghilang.

Ya pengertian singkatnya menurut saya ada dua macam kontrol yang bisa kita tambahkan yaitu :

1. Menu yang berupa ControlPopup dan
2. Menu Item yang berupa ControlButton

Perbedaan keduanya adalah Pada ControlPopup kita dapat menambahkan kontrol-kontrol lain, kontrol-kontrol yang dapat kita tambahkan dapat berupa ControlPopup maupun ControlButton, sedangkan pada ControlButton tidak dapat kita tambahkan kontrol lainnya. 

Sekarang kita akan menambahkan menu baru pada Worksheet Menu Bar …  sebagai contoh kita buat menu yang kita kasih nama “User Menu” yang terdiri atas :

1. SubMenu1, yang berupa ControlPopup , terdiri atas :

• MenuItem1, yang berupa ControlButton yang terhubung dengan macro1
• MenuItem2, yang berupa ControlButton yang terhubung dengan macro2
• MenuItem3, yang berupa ControlButton yang terhubung dengan macro3

2. SubMenu2, yang berupa ControlPopup , terdiri atas :

• MenuItem4, yang berupa ControlButton yang terhubung dengan macro4
• MenuItem5, yang berupa ControlButton yang terhubung dengan macro5
• SubSubMenu1, yang berupa ControlPopup , terdiri atas :
• MenuItem6, yang berupa ControlButton yang terhubung dengan macro6
• MenuItem7, yang berupa ControlButton yang terhubung dengan macro7

3. MenuItem8, yang berupa ControlButton yang terhubung dengan macro8

Sekarang kita membuat macro Auto_Close terlebih dahulu … kode-kode ini akan dijalankan pada saat WorkBook di Close … berisi kode macro yang berfungsi untuk menghilangkan menu yang dimaksud (yang saya kasik nama “User Menu”) dari Menu Bar. 

Sub Auto_Close()

On Error Resume Next

Application.CommandBars(“Worksheet Menu Bar”).Controls(“ContohMenu”).Delete

End Sub

Kode-kode untuk menyusun menu “User Menu” saya taruh di macro Auto_Open … agar setiap kali dibuka maka otomatis menu “User Menu” juga di load.

Sub Auto_Open()

      Auto_Close

      Set Menu1 = CommandBars(“Worksheet Menu Bar”).Controls.Add(Type:=msoControlPopup, Temporary:=True)

            Menu1.Caption = “&User Menu”

            Menu1.BeginGroup = True

      Set SubMenu1 = Menu1.Controls.Add(Type:=msoControlPopup, Temporary:=True)

            SubMenu1.Caption = “&Input Data″

      Set SubMenu2 = Menu1.Controls.Add(Type:=msoControlPopup, Temporary:=True)      

           SubMenu2.Caption = “&Laporan″

      Set CtrlBtn8 = Menu1.CommandBar.Controls.Add(Type:=msoControlButton, ID:=1)

            With CtrlBtn8

                  .Caption = “&Print”

                  .TooltipText = “Menu Item 8″

                  .Style = msoButtonCaption

                  .OnAction = “macro8″

                  .BeginGroup = True

            End With

      Set Ctrl1 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

      With Ctrl1      

            .Caption = “&Data Anggota”

            .TooltipText = “MenuItem 1″

            .Style = msoButtonCaption

            .OnAction = “macro1″

        End With

Set Ctrl2 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

With Ctrl2

            .Caption = “&Data Nilai”

            .TooltipText = “MenuItem 2″

            .Style = msoButtonCaption

            .OnAction = “macro2″

         End With

Set Ctrl3 = SubMenu1.CommandBar.Controls _

            .Add(Type:=msoControlButton, ID:=1)

With Ctrl3

            .Caption = “&Data Peminjaman Buku”

            .TooltipText = “MenuItem 3″

            .Style = msoButtonCaption

            .OnAction = “macro3″

End With

Set Ctrl4 = SubMenu2.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl4

            .Caption = “&Kas Perpustakaan”

            .TooltipText = “MenuItem 4″

            .Style = msoButtonCaption

            .OnAction = “macro4″

End With

Set Ctrl5 = SubMenu2.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl5

            .Caption = “&Nilai Siswa”

            .TooltipText = “MenuItem 5″

            .Style = msoButtonCaption

            .OnAction = “macro5″

End With

Set SubSubMenu1 = SubMenu2.Controls.Add(Type:=msoControlPopup, Temporary:=True)

SubSubMenu1.Caption = “&Aset Kantor″

Set Ctrl6 = SubSubMenu1.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl6

            .Caption = “&Komputer”

            .TooltipText = “MenuItem 6″

            .Style = msoButtonCaption

            .OnAction = “macro6″

End With

Set Ctrl7 = SubSubMenu1.CommandBar.Controls _

.Add(Type:=msoControlButton, ID:=1)

With Ctrl7

            .Caption = “&Printer”

            .TooltipText = “MenuItem 7″

            .Style = msoButtonCaption

            .OnAction = “macro7″

End With

End Sub

Kode-kode macro yang akan dijalankan masing-masing menu adalah sebagai berikut : 

Sub macro1()

UserForm1.Show

End Sub

Sub macro2()

      MsgBox “Jalankan kode menu Dua”, vbInformation, “Menu #2″

End Sub

Sub macro3()

      MsgBox “Jalankan kode menu Tiga”, vbInformation, “Menu #3″

End Sub

Sub macro4()

      MsgBox “Jalankan kode menu Empat”, vbInformation, “Menu #4″

End Sub

Sub macro5()

      MsgBox “Jalankan kode menu Lima”, vbInformation, “Menu #5″

End Sub

Sub macro6()

      MsgBox “Jalankan kode menu Enam”, vbInformation, “Menu #6″

End Sub

Sub macro7()

      MsgBox “Jalankan kode menu Tujuh”, vbInformation, “Menu #7″

End Sub

Sub macro8()

      MsgBox “Jalankan kode Delapan”, vbInformation, “Menu #8″

End Sub

Kode-kode diatas tidak usah dicopy … tapi file Excel hasil contoh tutoril ini di download aja karena ada kodenya lengkap dengan keterangannya juga. Semoga bermanfaat untuk Anda. 

Tertarik dengan tulisan ini, Anda dapat mendownlod gratis di sini 

Contoh dari file Excel hasil Tutorial  Membuat Menu Baru Di Worksheet Menu Bar Excel ini dapat Anda downlod gratis di sini 

Read more »

Pengertian Kode Macro VBA If Else Di Excel

Pengertian Kode Macro VBA If Else Di Excel 

Kode macro VBA di Excel berbagai macam tipe dan jenisnya tergantung pada situasi dan kondisi kode macro yang akan digunakan. Sejak tahun 1993, Excel telah memiliki bahasa pemrograman Visual Basic for Applications (VBA), yang dapat menambahkan kemampuan Excel untuk melakukan automatisasi di dalam Excel dan juga menambahkan fungsi-fungsi yang dapat didefinisikan oleh pengguna (user-defined functions/UDF) untuk digunakan di dalam worksheet. Selain itu, Excel juga dapat merekam semua yang dilakukan oleh pengguna untuk menjadi [macro], sehingga mampu melakukan automatisasi beberapa tugas. VBA juga mengizinkan pembuatan form dan kontrol yang terdapat di dalam worksheet untuk dapat berkomunikasi dengan penggunanya. 

Dalam penggunaannya seringkali kode macro dari fungsi If dan Else yang sering digunakan. Fungsi IF pada VBA Excel merupakan salah satu dari struktur kontrol, struktur kontrol adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program. Fungsi IF Else sangat banyak kegunaannya dalam pemrograman Macro VBA Excel seperti untuk pembuatan Form Login atau bisa juga untuk Validasi TextBox dan masih banyak lagi kegunaannya. 

Ada beberapa cara penulisan untuk menggunakan fungsi If Else di VBA Excel dan informasi ini saya kutip dari www.rumusexcel.com bisa menjadi referensi juga untuk Anda untuk belajar Excel 

IF<kondisi>THEN<buka program>END IF

Penulisan kode di atas jika dijabarkan maka akan mendapatkan suatu logika bila <kondisi> bernilai True maka <buka program >  akan dikerjakan.

IF<kondisi>THEN

  <buka program 1>

ELSE

  <buka program 2>

END IF

Penulisan kode di atas jika dijabarkan maka akan mendapatkan suatu logika bila < kondisi > bernilai True maka <buka program 1> yang akan dikerjakan, tetapi bila <kondisi> bernilai False maka  <buka program 2> yang akan dikerjakan.

IF<kondisi 1>THEN

   <buka program 1> 

  ELSEIF<kondisi 2> THEN

   <buka program 2> 

  ELSE

   <buka program 3>

  END IF 

Penulisan kode di atas jika dijabarkan maka akan mendapatkan suatu logika Bila < kondisi 1>bernilai True maka <buka program 1>  akan dikerjakan, bila < kondisi 2> bernilai True maka <buka program 2>  akan dikerjakan dan bila  < kondisi 1> dan < kondisi 2> bernilai False maka <buka program 3> yang akan di kerjakan.

Contoh sederhana penggunaan IF Else adalah sebagai berikut: 

1. Buka Aplikasi Microsoft Excel. 
2. Tekan tombol Alt+F11 untuk menampilkan jendela Microsoft Visual Basic. 
3. Klik kanan pada Sheet1(Sheet1) pada VBAProject dan pilih view code. 
   
4. Kemudian masukkan script dibawah ini: ( lihat contoh pada gambar ) 
   

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") = 1 Then
     Range("B1") = "Warna kuning"
     Range("A1").Interior.ColorIndex = 6
ElseIf Range("A1") = 2 Then
     Range("B1") = "warna hijau"
     Range("A1").Interior.ColorIndex = 4
ElseIf Range("A1") = 3 Then
     Range("B1") = "warna merah"
     Range("A1").Interior.ColorIndex = 3
End If
End Sub 

    

     5. Setelah selesai, coba ketikkan angka 1, 2 dan 3 pada Sheet 1 Cell A1 maka hasilnya akan seperti terlihat pada gambar animasi di bawah ini:

       6. Terakhir jika ingin menyimpannya silahkan pilih ekstensi *.xlsm atau *.xlsb.

Tertarik dengan tulisan ini, Anda dapat mendownlod gratis di sini 

Contoh dari file Excel hasil Tutorial  kode If Else di Excel ini dapat Anda downlod gratis di sini 

Read more »