Senin, 30 Juni 2025

Script Macro Penghapusan Data di Excel

No comments

Membersihkan data secara manual di Excel bisa memakan waktu dan rawan kesalahan, terutama jika Anda bekerja dengan banyak sheet atau data yang berubah-ubah. Dengan menggunakan macro VBA, Anda dapat menghapus data dengan satu klik, mulai dari mengosongkan sel hingga menghapus baris berdasarkan kondisi tertentu.

1. Apa Itu Macro Penghapusan Data?

Macro penghapusan data adalah skrip VBA di Excel yang digunakan untuk menghapus isi sel, baris, kolom, atau bahkan seluruh sheet secara otomatis. Fungsi ini berguna saat Anda ingin mereset form, menghapus data lama, atau membersihkan data yang tidak sesuai.

2. Macro untuk Menghapus Semua Data di Sheet

Berikut adalah contoh script untuk menghapus semua isi data di sebuah worksheet:


Sub HapusSemuaData()
    Sheets("Data").Cells.ClearContents
    MsgBox "Semua data berhasil dihapus!"
End Sub

Penjelasan:

  • Sheets("Data") menunjuk ke sheet bernama "Data"
  • .Cells.ClearContents akan menghapus isi sel tanpa menghapus format

3. Macro Menghapus Data Tertentu (berdasarkan kolom)

Misalnya, Anda ingin menghapus semua baris di mana kolom C berisi kata “Hapus”:


Sub HapusBarisDenganKriteria()
    Dim i As Long
    With Sheets("Data")
        For i = .Cells(.Rows.Count, 3).End(xlUp).Row To 2 Step -1
            If .Cells(i, 3).Value = "Hapus" Then
                .Rows(i).Delete
            End If
        Next i
    End With
    MsgBox "Baris dengan kriteria 'Hapus' telah dihapus."
End Sub

Penjelasan:

  • Kolom ke-3 (kolom C) diperiksa satu per satu
  • Jika ditemukan “Hapus”, maka baris tersebut akan dihapus
  • Menggunakan Step -1 agar penghapusan tidak menyebabkan index lompat

4. Macro Menghapus Data pada Range Tertentu

Contoh: Hapus isi dari range A2:D100


Sub BersihkanRange()
    Sheets("Data").Range("A2:D100").ClearContents
    MsgBox "Range A2:D100 telah dibersihkan."
End Sub

5. Macro Menghapus Seluruh Sheet Kecuali Sheet Tertentu

Script ini akan menghapus semua sheet kecuali "Master":


Sub HapusSemuaSheetKecualiMaster()
    Dim ws As Worksheet
    Application.DisplayAlerts = False
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Master" Then
            ws.Delete
        End If
    Next ws
    Application.DisplayAlerts = True
    MsgBox "Semua sheet selain 'Master' telah dihapus."
End Sub

6. Menambahkan Tombol Penghapusan di Sheet

  1. Masuk ke tab Developer
  2. Klik Insert → Button (Form Control)
  3. Tempatkan tombol di worksheet
  4. Pilih macro seperti HapusSemuaData atau lainnya

FAQ

  • Apakah macro bisa menghapus format juga?
    Ya, gunakan .Clear jika ingin menghapus isi, format, dan komentar.
  • Bagaimana menghindari penghapusan data yang tidak sengaja?
    Tambahkan dialog konfirmasi dengan If MsgBox(...) = vbYes Then
  • Bisa digunakan untuk form input?
    Ya, sangat cocok untuk menghapus data isian form di Excel.

Related Posts

Related Resources

Tags: #MacroExcel #PenghapusanData #VBAScript #AutomasiExcel #ExcelTips

0 komentar:

Posting Komentar