Untuk menggunakan VBA untuk menutup buku kerja, gunakan metode Workbook.Close, dan untuk keluar dari Excel, gunakan metode Application.Quit.
Berikut beberapa contoh kode: Tutup buku kerja yang aktif dan tanyakan apakah akan menyimpan jika ada perubahan di buku kerja:
Copy kode kodenya sebagai berikut:
Sub TutupBuku Kerja()
Buku Kerja Aktif.Tutup
Akhiri Sub
Jika Anda ingin menghindari perintah, Anda bisa menambahkan parameter "SaveChanges", seperti menyimpan dan menutup buku kerja secara langsung:
Copy kode kodenya sebagai berikut:
Sub ClostAndSaveWorkbook()
ActiveWorkbook.Tutup Simpan Perubahan:=Benar
Akhiri Sub
Ubah "Benar" pada kode di atas menjadi "Salah" untuk menutup buku kerja secara langsung tanpa menyimpan.
Tutup semua buku kerja yang terbuka dan tanyakan apakah akan menyimpan:
Copy kode kodenya sebagai berikut:
Sub TutupSemua Buku Kerja()
Pada Kesalahan Lanjutkan Berikutnya
Buku Kerja. Tutup
Akhiri Sub
Keluar dari Excel dan diminta untuk menyimpan buku kerja yang diubah:
Copy kode kodenya sebagai berikut:
SubKeluarExcel()
Aplikasi. Keluar
Akhiri Sub
Simpan buku kerja aktif dan keluar dari Excel:
Copy kode kodenya sebagai berikut:
SubSimpanActiveWorkAndQuit()
Buku Kerja Aktif.Simpan
Aplikasi. Keluar
Akhiri Sub
Kode berikut tidak akan menanyakan apakah akan menyimpan buku kerja saat keluar dari Excel.
Simpan semua buku kerja yang terbuka dan keluar dari Excel:
Copy kode kodenya sebagai berikut:
SubSimpanSemuaDanKeluar()
Untuk Setiap wbk Di Buku Kerja
wbk.Simpan
Berikutnya
Aplikasi. Keluar
Akhiri Sub
Keluar dari Excel tanpa menyimpan perubahan apa pun:
Copy kode kodenya sebagai berikut:
SubQutiAndNoAlerts()
Application.DisplayAlerts = Salah
Aplikasi. Keluar
Akhiri Sub
Berikut adalah beberapa operasi umum di VBA:
Buka buku kerja baru
Copy kode kodenya sebagai berikut:
Buku Kerja.Tambahkan
Dapatkan nama buku kerja pertama
Copy kode kodenya sebagai berikut:
Buku Kerja(1).Nama
Dapatkan jumlah buku kerja yang terbuka
Copy kode kodenya sebagai berikut:
Buku Kerja.Hitungan
Aktifkan buku kerja terbuka kedua
Copy kode kodenya sebagai berikut:
Buku Kerja(2).Aktifkan
Aktifkan buku kerja Chap02.xls
Copy kode kodenya sebagai berikut:
Buku Kerja("Bab02.xls").Aktifkan
Buku kerja yang sedang aktif disimpan sebagai NewChap.xls
Copy kode kodenya sebagai berikut:
ActiveWorkbook.SaveAs Nama file: = "NewChap.xls"
Tutup buku kerja pertama
Copy kode kodenya sebagai berikut:
Buku Kerja(1).Tutup
Tutup buku kerja yang sedang aktif tanpa menyimpan perubahan
Copy kode kodenya sebagai berikut:
ActiveWorkbook.Tutup SimpanPerubahan:=Salah
Tutup semua buku kerja yang terbuka
Copy kode kodenya sebagai berikut:
Buku Kerja. Tutup
Jika Anda menjalankan contoh terakhir, semua buku kerja Anda kini ditutup.
Pastikan untuk membuka buku kerja baru sebelum Anda menggunakannya di lembar kerja.
Saat Anda menambahkan satu lembar kerja, Anda harus mengetahui cara menambahkan lembar kerja baru ke buku kerja, mengetahui cara memilih lembar kerja atau sekelompok lembar kerja, dan mengetahui cara memberi nama, menyalin, memindahkan, dan menghapus lembar kerja.
Di VB, setiap tugas memerlukan metode atau properti khusus.
Tambahkan lembar kerja baru
Copy kode kodenya sebagai berikut:
Lembar Kerja.Tambahkan
Dapatkan nama lembar kerja pertama
Copy kode kodenya sebagai berikut:
Lembar Kerja(1).Nama
Pilih lembar kerja bernama "Sheet3"
Copy kode kodenya sebagai berikut:
Lembar Kerja(3).Pilih
Pilih lembar kerja pertama, ketiga dan keempat
Salin kode sebagai berikut: Lembar Kerja(Array(1,3,4)).Pilih
Aktifkan lembar kerja bernama "Sheet1"
Copy kode kodenya sebagai berikut:
Lembar Kerja("Lembar1").Aktifkan
Pindahkan sheet "Sheet2" sebelum sheet "Sheet1"
Copy kode kodenya sebagai berikut:
Lembar Kerja("Sheet2").Pindahkan Sebelumnya:=Lembar Kerja("Sheet1")
Ganti nama lembar kerja "Sheet2" menjadi "Beban"
Copy kode kodenya sebagai berikut:
Lembar Kerja("Lembar2").Nama = "Beban"
Dapatkan jumlah lembar kerja di buku kerja saat ini
Copy kode kodenya sebagai berikut:
Lembar Kerja.Hitungan
Hapus lembar kerja "Beban" di buku kerja saat ini
Copy kode kodenya sebagai berikut:
Lembar Kerja("Beban").Hapus