Friday, September 30, 2016

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. Save Workbook untuk perintah menyimpan. Close WorkBook untuk menutup aplikasi.


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.


Komentar Anda Sangat Menentukan Kelangsungan Blog ini
EmoticonEmoticon