Untuk menyimpan file excel yang dilakukan dengan kemudahan yang telah disediakan oleh Microsoft tampaknya sudah banyak orang yang mengetahuinya, namun cara ini saya kira belum begitu banyak yang tahu kecuali mereka para master excel yang sudah betul-betul menguasai tingkat Advance.
Materi kali ini saya akan membahas bagaimana cara menyimpan file memakai useform sebagai kontrol objeknya artinya kita akan menciptakan perintah pengcodean melalui VBA ini. Untuk memahami lebih jelasnya mengenai bahan ini perhatikan gambar dibawah ini.
Gambar diatas menerangkan hasil dari coding yang akan kita buat nantinya, perhatikan gambar yang ditunjukan oleh anak panah berwarna merah tersebut merupakan kotak simpan yang telah disetting melalui VBA excel ini. Untuk dapat menciptakan menyerupai gambar diatas maka langkah yang harus dilakukan yakni kita harus mempunyai desain userform yang nantinya akan dijadikan sebagai kontrol user untuk menyimpan file kemudian tambahkan 1 buah commandbutton dan ganti captionnya menjadi "Simpan"
CommandButton "Simpan File" ini yang dijadikan objek jadi dikala di klik maka muncul kotak simpan menyerupai gambar diatas. Untuk desain userform silakan buat menyerupai gambar berikut ini
Sederhana sekali userform diatas, hanya ada 1 objek yaitu tombol "Simpan File" langkah berikutnya kita akan menciptakan coding atau perintah untuk menyimpan file tersebut dengan mekanisme Click maka silakan double klik pada tombol diatas di desain userform kemudian tuliskan coding berikut ini
Sub SimpanFile()Coding diatas merupakan mekanisme untuk menyimpan file dan kita akan memanggilnya melalui klik pada tombol "Simpan File" maka silakan tuliskan fungsi Call berikut ini
Dim Simpan As Variant
Simpan = Application.GetSaveAsFilename("TuliskanNamaFile.xlsx", _
"Excel files,*.xlsx", 1, "Pilih Folder")
If TypeName(Simpan) = "Boolean" Then Exit Sub
ActiveWorkbook.SaveAs Simpan
End Sub
Private Sub CommandButton1_Click()Silakan test dan jalankan jadwal diatas dan coba klik tombol "Simpan File" maka akan muncul sebuah kotak simpan file menyerupai gambar no 1 diatas.
Call SimpanFile
End Sub
Simak:
Pengenalan Dasar Membuat UserForm pada Excel 2010
Demikian, agar bermanfaat dan selamat mencoba Sumber http://www.excel-id.com/