Cum se șterge conținutul celulei specificat dacă valoarea altei celule se modifică în Excel?
Presupunând că doriți să ștergeți o gamă de conținuturi de celule specificate dacă se schimbă valoarea altei celule, cum puteți face? Această postare vă va arăta o metodă de rezolvare a acestei probleme.
Ștergeți conținutul celulei specificat dacă valoarea altei celule se modifică cu codul VBA
Ștergeți conținutul celulei specificat dacă valoarea altei celule se modifică cu codul VBA
După cum se arată în imaginea de mai jos, când valoarea din celula A2 este modificată, conținutul din celula C1: C3 va fi șters automat. Vă rugăm să faceți următoarele.
1. În foaia de lucru veți șterge conținutul celulei pe baza modificărilor altei celule, faceți clic dreapta pe fila foaie și selectați Afișați codul din meniul contextual. Vedeți captura de ecran:
2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți sub codul VBA în fereastra Cod.
Cod VBA: Ștergeți conținutul celulei specificat dacă se schimbă valoarea altei celule
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
notițe: În cod, B2 este celula pe care se va șterge conținutul celulei, iar C1: C3 este intervalul din care se va șterge conținutul. Vă rugăm să le schimbați după cum aveți nevoie.
3. apasă pe Alt + Q tastele pentru a închide Microsoft Visual Basic pentru aplicații fereastră.
Apoi, puteți vedea conținutul din intervalul C1: C3 este șters automat atunci când valoarea din celula A2 se modifică după cum se arată în imaginea de mai jos.
Legate de articole:
- Cum se șterge conținutul casetei combinate cu cod VBA în Excel?
- Cum se șterge conținutul și formatarea în același timp în celulele din Excel?
- Cum se șterge conținutul intervalului denumit în Excel?
- Cum se șterg valorile restricționate din celulele din Excel?
- Cum se șterge conținutul celulei specificat la deschidere și ieșire din registrul de lucru Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!