Prasyarat:
Pada materi sebelumnya, kita sudah belajar bagaimana mengisi sebuah cell atau Range dengan menggunakan VBA.
Selain mengisi, salah satu fungsi yang tentu bisa dilakukan oleh Macro VBA adalah kemampuannya untuk menghapus isi dari cells atau range tertentu.
Ada 7 fungsi utama yang bisa digunakan untuk menghapus isi cells didalam Worksheet dengan VBA, dimana ketiga fungsi ini akan melakukan penghapusan dengan cara yang berbeda-beda.
fungsi-fungsi tersebut diantara adalah :
Dalam menghapus isi sebuah range atau cells, hanya diperlulan 2 langkah saja
Apa saja perbedaan fungsi-fungsi diatas ?
Metode Clear digunakan untuk menghapus seluruh format dan isi dari cells atau range yang dipilih.
Ini mencakup penghapusan format currency, text, formula, gambar, dan objek lainnya yang mungkin ada di dalam cells tersebut.
Lebih mudahnya, clear ini akan menghapus semuanya baik isi ataupun format yang ada pada Cells atau range tersebut.
Contoh penggunaan metode Clear:
Sub ClearCells()
Range("A1:B10").Clear
'Menghapus isi dan format dari range A1:B10
End Sub
Metode ClearContents hanya menghapus isi dari cells atau range yang dipilih dan Format yang ada pada cells atau range tersebut dibiarkan tetap ada.
Ini artinya ClearContents tidak menghapus format atau conditional formating yang mungkin ada di dalam cells tersebut.
Jadi, jika hanya ingin menghapus isi yang ada di dalam cells tanpa mengubah format yang sudah ada, maka ClearContents akan lebih pas.
Contoh penggunaan metode ClearContents:
Sub ClearCellContents()
Range("A1:B10").ClearContents ' Menghapus isi (tetapi mempertahankan format) dari sel A1:B10
End Sub
Metode ClearFormats digunakan untuk menghapus semua format dari cells atau range yang dipilih, tanpa menghapus isi atau rumus di dalamnya.
Ini berguna jika ingin menghapus format seperti warna, Font tebal, atau format Currency, tetapi tetap mempertahankan data, rumus atau isi yang ada pada cells tersebut.
Contoh penggunaan metode ClearFormats:
Sub ClearCellFormats()
Range("A1:B10").ClearFormats ' Menghapus format dari sel A1:B10
End Sub
Jawaban :
Sub HapusCells()
Worksheets("Report").Range("D3,F3,H3").ClearContents
End Sub
Jawaban :
Sub HapusFormat()
Worksheets("Input").Range("A1:J100").ClearFormats
End Sub