Loncat ke daftar isi utama

Bagaimana cara menghapus konten sel tertentu jika nilai sel lain berubah di Excel?

Misalkan Anda ingin menghapus rentang konten sel tertentu jika nilai sel lain diubah, bagaimana Anda bisa melakukannya? Posting ini akan menunjukkan kepada Anda metode untuk mengatasi masalah ini.

Hapus konten sel yang ditentukan jika nilai sel lain berubah dengan kode VBA

Hapus konten sel yang ditentukan jika nilai sel lain berubah dengan kode VBA

Seperti gambar di bawah ini, ketika nilai di sel A2 diubah, konten di sel C1: C3 akan dihapus secara otomatis. Silakan lakukan sebagai berikut.

1. Pada lembar kerja Anda akan menghapus isi sel berdasarkan perubahan sel lain, klik kanan tab lembar dan pilih Lihat kode dari menu konteks. Lihat tangkapan layar:

2. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode VBA di bawah ini ke jendela Kode.

Kode VBA: Hapus konten sel tertentu jika nilai sel lain berubah

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2")) Is Nothing Then
        Range("C1:C3").ClearContents
    End If
End Sub

Note: Dalam kode, B2 adalah sel tempat Anda akan menghapus konten sel berdasarkan, dan C1: C3 adalah rentang konten yang akan Anda hapus. Harap ubah sesuai kebutuhan Anda.

3. tekan lain + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

Kemudian Anda dapat melihat konten dalam rentang C1: C3 dihapus secara otomatis ketika nilai di sel A2 berubah seperti gambar di bawah ini.

Artikel terkait:

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 (38)
No ratings yet. Be the first to rate!
Stefan
Stefan
This comment was minimized by the moderator on the site
Hallo,

Dankesch枚n f眉r die Hilfe.


LG Stefan
Reply
0
0
Stefan
Stefan
This comment was minimized by the moderator on the site
Hallo,
ich m枚chte das Makro bitte so erweitern, wenn ich in B2 klicke, das nur C2 gel枚scht wird, wenn ich in B3 klicke dann soll nur C3 gel枚scht werden usw. bis B100 dann soll nur C100 gel枚scht werden.
Und das soll auch wechelseitig funktionieren.
Wenn ich in C2 klicke dann soll nur B2 gel枚scht werden usw.

Vielen Dank im Vorraus

LG Stefan




Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220721
If Target.Cells.Count > 1 Then Exit Sub
If (Not Intersect(Target, Range("B2")) Is Nothing) And (Target.Value = "Yes") Then
Range("B3").ClearContents
Else
If (Not Intersect(Target, Range("B3")) Is Nothing) And (Target.Value = "Yes") Then
Range("B2").ClearContents
End If
End If
End Sub
Reply
0
0
crystal
crystal     Stefan
This comment was minimized by the moderator on the site
Hi Stefan,

The following VBA can acheive: when the value of column A is changed, the corresponding cell in column C of the same row will be cleared.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20221013
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("A:A")
    Set xRight = Target.Offset(0, 3)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.ClearContents
    End If
End Sub
Reply
Report
0
0
Angel
Angel
This comment was minimized by the moderator on the site
Hola, estoy trabajando una base de datos en OFFICE ONLINE a traves de ONEDRIVE, quiero que al PONER "CANCELADO" o "NOSHOW" elimine el contenido de la fila seleccionada.
Reply
0
0
crystal
crystal     Angel
This comment was minimized by the moderator on the site
Hi Angel,
The VBA code does not work in Office Online. Sorry for the inconvenience.
Reply
Report
0
0
JSeb L.
JSeb L.
This comment was minimized by the moderator on the site
Hello,
The code below works as advertised but, the following problems occurs:

Firstly, when resizing the targeted table, all the table data is cleared AND, all but column 1 headers are re-labelled to "Column1, Column2, etc. AND the workbook autosave itslef and kills the undo.

Secondly, when deleting any table row, I get a "Run-time error 1004 (Method Offset of object Range failed.


Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F3:F500")) Is Nothing Then
     Target.Offset(0, 1).ClearContents
    ElseIf Not Intersect(Target, Range("G3:G500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
        Target.Offset(0, 2).ClearContents
    ElseIf Not Intersect(Target, Range("H3:H500")) Is Nothing Then
        Target.Offset(0, 1).ClearContents
    End If
End Sub


Any idea of what could be wrong?

Thanks in advance!
Reply
0
0
Mathias
Mathias
This comment was minimized by the moderator on the site
Hallo,

Zu Punkt 3.
Die Taste "Andere" Finde ich nicht auf meiner Windows Tastatur. Ich Habe Strg, Alt, Tab... allerdings die Taste Andere gibt es auf meiner Tastatur leider nicht.

Lieben Gru脽 Mathias
Reply
0
0
crystal
crystal     Mathias
This comment was minimized by the moderator on the site
Hi Mathias,
If you can't find the corresponding key on the keyboard. You can just click the Save button in the Microsoft Visual Basic Applications window to save the code and then manually close this window.
Reply
Report
0
0
袧邪褌邪谢褜褟
袧邪褌邪谢褜褟
This comment was minimized by the moderator on the site
袩芯屑芯谐懈褌械 褋 褉械褕械薪懈械屑, VBA 薪械 蟹薪邪褞. 袦薪械 薪褍卸薪芯 锌褉懈 懈蟹屑械薪械薪懈懈 褟褔械泄泻懈 褍写邪谢懈褌褜 写邪薪薪褘械 懈蟹 写褉褍谐芯泄 懈 褔褌芯斜褘 褝褌芯 写械泄褋褌芯胁邪谢芯 薪邪 胁械褋褜 褋褌芯谢斜械褑.
袦械薪褟褞 袗2 褍写邪谢褟械褌褋褟 懈蟹 G2, 屑械薪褟褞 袗3 褍写邪谢褟械褌褋褟 懈蟹 G3, 屑械薪褟褞 A6 褍写邪谢褟械褌褋褟 懈蟹 G6 懈 褌.写.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
Range("G2").ClearContents
End If
End Sub


袛邪薪薪褘泄 泻芯写 褏芯褉芯褕 写谢褟 芯写薪芯泄 褟褔械泄泻懈, 邪 泻邪泻 械谐芯 褉邪蟹屑薪芯卸懈褌褜 薪邪 胁褋械 褟褔械泄泻懈 褋褌芯谢斜褑邪?
Reply
0
0
crystal
crystal     袧邪褌邪谢褜褟
This comment was minimized by the moderator on the site
Hi 袧邪褌邪谢褜褟,
The following VBA code can help you solve the problem. Please give it a try.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20221013
    Dim xRight As Range
    Dim KeyCells As Range
    Set KeyCells = Range("A:A")
    Set xRight = Target.Offset(0, 6)
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        xRight.ClearContents
    End If
End Sub
Reply
Report
0
0
Pietro
Pietro
This comment was minimized by the moderator on the site
Buongiorno, avrei bisogno di cancellare una serie di caselle (un rettangolo, quindi su pi霉 righe e colonne) in base al valore di un'altra cella. es: se la cella A2 猫 inferiore di 12, il quadrato con vertici opposto C2 : F4 venga cancellato.
Grazie mille
Reply
0
0
crystal
crystal     Pietro
This comment was minimized by the moderator on the site
Hi Pietro,
Sorry I don't quite understand your question. Do you mind uploading a screenshot of your data?
Reply
Report
0
0
Jeff
Jeff
This comment was minimized by the moderator on the site
Hello,

Just looking for an easy way to make it so if "B2" has selected "Yes" from the data validation list, cell B3 would clear it's data... and vice-versa: If "B3" has selected "Yes" from the data validation list, cell "B2" would clear it's data.

Basically B2 or B3 can say "Yes" (from the data validation list) but never at the same time, one should clear the other.
Reply
0
0
crystal
crystal     Jeff
This comment was minimized by the moderator on the site
Hi Jeff,
The following VBA code can do you a favor. Please give it a try.
Private Sub Worksheet_Change(ByVal Target As Range)
'Updated by Extendoffice 20220721
If Target.Cells.Count > 1 Then Exit Sub
    If (Not Intersect(Target, Range("B2")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B3").ClearContents
        Else
        If (Not Intersect(Target, Range("B3")) Is Nothing) And (Target.Value = "Yes") Then
        Range("B2").ClearContents
    End If
    End If
End Sub
Reply
Report
0
0
Adonis
Adonis
This comment was minimized by the moderator on the site
Bonjour tout le monde,

Besoin d'aide, j'ai besoin d'effacer le contenu d'une cellule de la colonne "I" si la cellule (de la m锚me ligne) de la colonne "O" =0, sur environ 2000 lignes avec des titres tout le 10 lignes environ.
Reply
0
0
Simon Crawley
Simon Crawley
This comment was minimized by the moderator on the site
Is it possible to clear specified cell contents if the trigger cell contains a specific number? Say, IF cell A1 = 1, then clear Cells A2:A4?
Reply
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