Loncat ke daftar isi utama

 Bagaimana cara menerapkan tombol untuk menghapus sel tertentu di Excel?

Biasanya, Anda dapat memegang Ctrl kunci untuk memilih beberapa sel tertentu, lalu hapus konten sel yang Anda butuhkan. Jika Anda selalu perlu mengosongkan sel spesifik ini dari waktu ke waktu, Anda dapat membuat tombol hapus untuk menghapusnya hanya dengan satu klik. Pada artikel ini, saya akan berbicara tentang cara membuat tombol hapus semua untuk menghapus beberapa konten sel tertentu.

Terapkan tombol untuk menghapus konten sel tertentu dengan kode VBA

panah gelembung kanan biru Terapkan tombol untuk menghapus konten sel tertentu dengan kode VBA

Pertama, Anda harus membuat tombol bentuk, lalu menerapkan kode, terakhir, ikat kode tersebut ke tombol bentuk. Harap lakukan sebagai berikut:

1. Klik Menyisipkan > bentuk > Rectangles untuk memilih bentuk persegi panjang, dan kemudian seret mouse untuk menggambar tombol persegi panjang di mana saja dari lembar yang Anda butuhkan, lihat tangkapan layar:

tombol doc menghapus sel 1

2. Kemudian masukkan teks dan format tombol bentuk yang Anda butuhkan, lihat tangkapan layar:

tombol doc menghapus sel 2

3. Dan kemudian Anda harus memasukkan kode VBA, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hapus konten sel dari sel tertentu:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

Note: Pada kode diatas: A2, A5 menunjukkan itu akan menghapus sel dalam jangkauan A2: A5, bukan hanya dua sel satu per satu, Anda bisa menambahkan beberapa rentang, seperti Rentang ("B8", "B12"). Hapus skrip di dalam kode untuk dihapus.

4. Kemudian simpan dan tutup jendela kode, lalu tautkan kode ke tombol bentuk, klik kanan tombol, dan pilih Tetapkan Makro, Dalam Tetapkan Makro kotak dialog, pilih Clearcell nama kode dari Nama makro kotak daftar, dan klik OK tombol untuk keluar dari dialog ini. Lihat tangkapan layar:

tombol doc menghapus sel 3

5. Dan sekarang, saat Anda mengklik Batal Semua tombol, sel spesifik yang Anda tentukan dihapus sekaligus, lihat tangkapan layar:

tombol doc menghapus sel 4

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (73)
Rated 5 out of 5 · 1 ratings
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
skyyang
skyyang     El Roya
This comment was minimized by the moderator on the site
Hello, Roya,
To clear the specific cells in multiple sheet, please apply the following vba code:
Sub ClearMultipleRanges()
    Dim ws As Worksheet
    Dim sheetsToClear As Variant
    Dim cellRanges As Variant
    Dim range As Variant

    sheetsToClear = Array("Sheet1", "Sheet2", "Sheet3") ' Change the sheet names
    cellRanges = Array("A1:C3", "E1:E5", "G1:G10") ' Modify the cell ranges
    For Each ws In ThisWorkbook.Sheets
        If Not IsError(Application.Match(ws.Name, sheetsToClear, 0)) Then
            For Each range In cellRanges
                ws.range(range).ClearContents
            Next range
        End If
    Next ws
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
El Roya
El Roya
This comment was minimized by the moderator on the site
is there a way to delete data from multiple sheets with just 1 button?
Reply
0
0
kenvel
kenvel
This comment was minimized by the moderator on the site
very helpful. thanks so much
Reply
0
0
David Leão
David Leão
This comment was minimized by the moderator on the site
Hi there,

Used this, and it works like a charm.

Only problem is... my cells are different formats... Some are 0,000 some are 00,00€ and when I it CLEAR, the format goes with tue clear event.

How can I clear the cells but maintain the format of them?
Reply
0
0
skyyang
skyyang     David Leão
This comment was minimized by the moderator on the site
Hello, David,
To keep the cell formatting when clearing the cell contents, please apply the below code:
Sub ClearCellsKeepFormat()
    'Update by Extendoffice
    'This version clears the contents but keeps the cell formatting intact.
    Range("A2:A5").ClearContents
    Range("C10:D18").ClearContents
    Range("B8:B12").ClearContents
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
David Leão
David Leão     skyyang
This comment was minimized by the moderator on the site
It worked. Thanks a lot man 😄
Reply
0
0
Rated 5 out of 5
Sabrina Gomez
Sabrina Gomez
This comment was minimized by the moderator on the site
Hi how do you use this macro without interfering the data validation?
Reply
0
0
Bharat Bali
Bharat Bali
This comment was minimized by the moderator on the site
I wanted that the confirmation needed for clear button .....so that the data is not cleared by mistakenly press the "clear" tab

And i wanted to say thanks for your brilliant work....thanks a lot in advance....

wish you have a great day...
Reply
0
0
Shannon
Shannon
This comment was minimized by the moderator on the site
Hello,
I am using this on one spreadsheet, but on 3 separate tabs. Everything was working last time I had the workbook open but today it is giving me an error "Ambiguous name detected: Clearcells". Please help!
Reply
0
0
Yac23
Yac23
This comment was minimized by the moderator on the site
Hallo zusammen,
hab soweit alles gemacht zu gewiesen usw. Funktioniert auch aber sobald ich die Datei öffne funktioniert es nicht mehr und muss alles neu eingeben.

Vorab vielen Dank
Reply
0
0
Yac23
Yac23     Yac23
This comment was minimized by the moderator on the site
Meinte, nach dem schließen und dann wieder öffne.
Reply
0
0
Leslie
Leslie
This comment was minimized by the moderator on the site
Hi. I am trying to use a toggle button to clear all cells of color and text, but only the cells that contain the word “event”. And then I’d like to use the same toggle button to add the color and the word “event” back onto the spreadsheet. Can this be done?
Reply
0
0
Nol Kirchyunger
Nol Kirchyunger
This comment was minimized by the moderator on the site
Hallo,

Hoe kan ik cellen in een range met een formule intact houden met bovenstaand script?

Mvg,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hello, Nol,
Do you mean to keep the formula cells when clearing the cell contents? Could you explain your problem by using English?

Thank you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Hi Skyyang,

Thats what I mean indeed

Regards,

Nol
Reply
0
0
skyyang
skyyang     Nol Kirchyunger
This comment was minimized by the moderator on the site
Hi, Nol,,
Maybe the follwoing VBA code can help you:
Sub Clearcells()
Dim xStr As String
Dim xRgs, xRg, xRgA As Range
xStr = "A2:C3,A5:E16,F5:H10"
Set xRgs = Range(xStr)
For Each xRgA In xRgs.Areas
    For Each xRg In xRgA
        If Not xRg.HasFormula Then
            xRg.Clear
        End If
    Next
Next
End Sub


Please change the cell references to your need, and you should use the comma to separate the data range.
Please have a try, hope it can help you!
Reply
Report
0
0
Nol Kirchyunger
Nol Kirchyunger     skyyang
This comment was minimized by the moderator on the site
Thanks Skyyang, the script works like an charm! Keep up the good work
Reply
0
0
Nat
Nat     Nol Kirchyunger
This comment was minimized by the moderator on the site
Can you help me find a code that would clear the contents of merged cells but keep the formatting as well as formulas?
Thank you
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations