Friday, October 7, 2016

VBA Excel Pemula 21 : Cara Save dan Close Aplikasi VBA Excel Melalui UserForm

Informasi yang cepat yang mudah kita akses pada masa sekarang. Belajar Vba Excel secara mandiri secara otodidak dengan berbagai tutorial di internet. membaca dan mencoba selanjutnya share di internet. Melihat tanggapan dari berbagai orang dari file yang kita share di internet akan membuat kita terus belajar dan mencoba. Begitulah cara saya mempelajari Vba Excel. Semua posting di blog saya ini cuma hasil membaca dan mencoba selanjutnya saya share di blog ini agar orang lain bisa mempelajarinya dan menunggu tanggapan di kolom komentar. 

VBA Excel Pemula 21 : Save dan Close Aplikasi VBA Excel Melalui UserForm - Perhatikan gambar gif dibawah..!! Pada gambar dibawah terlihat dua tombol Save dan Close yang bertujuan menyimpan perubahan pada Workbook dan menutup Aplikasi. Tombol Save & Exit 1 prosedur yang dijalankan hanya save dan menutup aplikasi. Tombol Save & Exit 2 prosedur yang dijalankan memberikan peringatan terlebih dahulu pada pengguna apakah yakin akan menutup aplikasi dan memberikan pilihan Yes atau No. Bila pilihan Yes aplikasi disimpan dan di tutup, dan bila pilihan yang dipilih No maka aplikasi masih beroperasi.


Berikut  Syntax VBA Save Workbook
Workbooks(“Your Workbook Name”).Save()

Berikut  Syntax VBA Close Workbook

Workbooks(“Your Workbook Name”).Close()

Cara Save dan Close Aplikasi VBA Excel Melalui UserForm Sebagai Berikut :
  • Buka Excel, buat data seperti terlihat pada gambar gif diatas, dan selanjutnya Pilih Tab Developer, klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol  Alt+F11. Jangan lupa disave dengan format Enable Macro atau Binary
  • Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 21" dan tambahkan  CommandButton1 dengan Caption "Save & Close 1", dan CommandButton2 dengan Caption "Save & Close 2.
  • Klik kanan pada CommandButton1 dengan Caption "Save & Close 1", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
  • Klik kanan pada CommandButton2 dengan Caption "Save & Close 2", Pilih View Code dan masukkan Kode berikut :
Private Sub CommandButton2_Click()
If MsgBox("Anda Yakin Akan Keluar dan Menyimpan Data..?? : ", vbYesNo + 48, "Konfirmasi") = vbYes Then
ActiveWorkbook.Close savechanges:=True
Else
MsgBox "Batal Keluar..!! Aplikasi Masih Akan Beroperasi..!!!", 64, "Aplikasi Pemula 21"
End If
End Sub
  • Selesai..!! Gampang bukan..!! Uji aplikasi yang dengan mengklik Run atau menekan tombol F5 pada keyboard. Bila rancangan aplikasi dan penempatan kode telah di ikuti dengan benar makan aplikasi akan berjalan dengan baik sebagaimana terlihat pada gif diatas. 
Download : Aplikasi Pemula 21

Demikian VBA Excel Pemula 21 : Cara Save dan Close Aplikasi VBA Excel Melalui UserForm. Semoga dapat dikembangkan dan disesuaikan dengan kebutuhan aplikasi. Bagi anda yang ingin share kode lain dan lebih mantap silahkan di tulis pada kotak komentar posting ini.

Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon