Bagaimana cara menghapus seluruh lembar menggunakan vba?

Untuk menghapus seluruh lembar menggunakan kode VBA sekaligus, Anda perlu menggunakan dua hal, pertama adalah metode CLEAR dan kemudian CELLS untuk merujuk ke semua sel di lembar kerja.

Hapus lembar aktif

Katakanlah jika Anda ingin menghapus semua isi lembar aktivasi, kodenya akan seperti di bawah ini.

 Cells.Clear

Ketika Anda menjalankan kode ini, kode ini akan menghapus semuanya dari semua sel di lembar aktif, seperti yang telah saya sebutkan, kami menggunakan clear untuk merujuk ke seluruh lembar kerja dan clear untuk menghapusnya.

Hapus lembar tertentu

Ada satu hal yang harus Anda perhatikan bahwa untuk menghapus suatu sheet, sheet tersebut harus diaktifkan. Jadi misalkan Anda ingin menghapus “Sheet1”, kodenya akan seperti:

 Sheets("Sheet1").Activate Cells.Clear

Dalam kode ini, baris pertama mengaktifkan “Sheet1” dan baris kedua menghapus semuanya.

Hal-hal lain yang perlu dibersihkan

Anda juga dapat menggunakan metode di bawah ini untuk menghapus berbagai hal.

 Cells.ClearContents 'to clear contents Cells.ClearComments 'to clear Comments Cells.ClearFormats 'to clears formatting Cells.ClearHyperlinks 'to clear hyperlinks Cells.ClearNotes 'to clear notes Cells.ClearOutline 'to clears outline

Hapus lembar dari buku kerja tertentu

Kode di bawah ini bisa merujuk ke buku kerja “Buku1” dan menghapus lembar “Lembar1”. Namun pastikan buku kerja terbuka pada saat menjalankan kode ini .

 Workbooks("Book1").Sheets("Sheet1").Activate Cells.Clear

Kode ini pertama-tama mengaktifkan “Sheet1” buku dan menghapusnya.

Hapus lembar dari buku kerja yang tertutup

Dan pada kode di bawah ini, kita mengacu pada “Sheet1” dari “file sampel” buku kerja, yang disimpan di lokasi tertentu.

 Sub vba_clear_sheet() Dim wb As Workbook Application.ScreenUpdating = False Set wb = Workbooks.Open("C:\Users\Dell\Desktop\sample-file.xlsx") wb.Sheets("Sheet1").Activate Cells.Clear wb.Close SaveChanges:=True Application.ScreenUpdating = False End Sub