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.


      Berlangganan update artikel terbaru via email:

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

      Post a Comment

      Komentar Anda Sangat Menentukan Kelangsungan Blog ini

      Iklan Atas Artikel

      Iklan Tengah Artikel 1

      Iklan Tengah Artikel 2

      Iklan Bawah Artikel