Vba Excel Pemula 10 : Cara buka Workbook Baru, Tambah Data, Simpan dan Tutup Workbook Melalui UserForm

Vba Excel Pemula 10 : Cara buka Workbook Baru, Tambah Data, Simpan dan Tutup Workbook Melalui UserForm - Perhatikan gambar dibawah..!! anda akan lebih paham tujuan dari posting ini.

Ketika tombol Add WorkBook diklik maka akan membuka lembaran Excel baru, tombol Add Data Range berfungsi membuka excel baru beserta menambahkan data pada cell tertentu.

Cara buka Workbook Baru, Tambah Data, Simpan

Save Workbook untuk perintah menyimpan. Close WorkBook untuk menutup aplikasi.

Ikuti langkah-langkah yang admin sajikan pada artikel ini dengan benar dan teliti. Admin sangat menyarankan membuat file percobaan atau file experiment sendiri.

Dengan membuat file percobaan atau file experiment sendiri akan dapat mempercepat memahami dan mengetahui fungsi serta alur kerja kode yang diterapkan.

Cara buka Workbook Baru, Tambah Data, Simpan dan Tutup Workbook Melalui UserForm

Buka excel dan Pilih Tab Developer selanjutnya klik Visual Basic atau dengan jalan pintas keyboard tekan secara bersamaan tombol Alt+F11.

Pada Jendela Visual Basic Tambahkan UserForm dengan Caption "Aplikasi Pemula 10" dan tambahkan CommandButton1 dengan Caption "Add WorkBook", CommandButton2 dengan Caption "Add Data To Range", CommandButton3 dengan Caption "Save WorkBook", dan CommandButton4 dengan Caption "Close WorkBook".

Klik kanan pada CommandButton1 Caption "Add WorkBook", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton1_Click()
'Vba Excel Pemula 10 : Cara buka Workbook Baru, Tambah Data, Simpan dan Tutup Workbook
'Kode ini untuk membuat Workbook baru
Workbooks.Add
End Sub

Klik kanan pada CommandButton2 Caption "Add Data To Range", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton2_Click()
'Kode ini untuk mengakses range A1 dan meletakkan Kata sample data di A1

ActiveWorkbook.Sheets("Sheet1").Range("A1") = "Sample Data"

End Sub

Klik kanan pada CommandButton3 Caption "Save WorkBook", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton3_Click()
'Kode ini untuk Rename Workbook dan menyimpannya pada Folder "c:\Temp\Text10.xls"

ActiveWorkbook.SaveAs "Test10.xls"

End Sub

Klik kanan pada CommandButton4 Caption "Close WorkBook", Pilih View Code dan masukkan Kode berikut :

Private Sub CommandButton4_Click()
'Kode ini untuk perintah menutup workbook

ActiveWorkbook.Close

End Sub

Jalankan Aplikasi dengan klik Run atau dengan tombol F5. Jalankan fungsi masing-masing. jika anda telah mengikuti dengan benar tutorial ini.

saya yakin aplikasi yang anda rancang juga berjalan seperti gambar gif diatas.

Update 03 Oktober 2016

Kode berikut untuk Copy data,Membuka dan Paste data ke WorkBook Baru dan menyimpan pada folder yang sama dengan file yang sedang aktive

Private Sub CommandButton1_Click()
'Kode Copy Data Dari Sheets Data
Sheets("Data").Range("A1:B11").Copy

'Membuat WorkBook Baru
Workbooks.Add

'Paste kedalam WorkBook Baru
ActiveSheet.Paste

'Simpan file kedalam folder yang sama
ActiveWorkbook.SaveAs FileName:=ThisWorkbook.Path & "/NewWorkbookByVBA.xlsx"

End Sub

Download : Aplikasi Pemula 10

Demikian posting Vba Excel Pemula 10 : Cara buka Workbook Baru, Tambah Data, Simpan dan Tutup Workbook Melalui UserForm. Semoga dapat dikembangkan dengan keinginan dan kebutuhan aplikasi yang sedang dirancang.

Jika punya masukan mohon bisa disampaikan pada kolom komentar.