Note: The other languages of the website are Google-translated. Back to English
English English
  • dogfennau
  • Excel
  • Sut i glirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid yn Excel?

Sut i glirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid yn Excel?

Gan dybio eich bod am glirio ystod o gynnwys celloedd penodedig os yw gwerth cell arall yn cael ei newid, sut allwch chi wneud? Bydd y swydd hon yn dangos dull i chi ddatrys y broblem hon.

Clirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid gyda chod VBA


Clirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid gyda chod VBA

Fel y dangosir isod y llun, pan fydd y gwerth yng nghell A2 yn cael ei newid, bydd cynnwys yng nghell C1: C3 yn cael ei glirio'n awtomatig. Gwnewch fel a ganlyn.

1. Yn y daflen waith byddwch yn clirio cynnwys celloedd yn seiliedig ar newidiadau cell arall, cliciwch ar y dde ar y tab dalen a dewis Gweld y Cod o'r ddewislen cyd-destun. Gweler y screenshot:

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo islaw cod VBA i mewn i ffenestr y Cod.

Cod VBA: Clirio cynnwys celloedd penodedig os yw gwerth cell arall yn newid

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

Nodyn: Yn y cod, B2 yw'r gell y byddwch chi'n clirio cynnwys y gell yn seiliedig arni, a C1: C3 yw'r ystod y byddwch chi'n clirio cynnwys ohoni. Newidiwch nhw yn ôl yr angen.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

Yna gallwch weld cynnwys yn ystod C1: C3 yn cael ei glirio'n awtomatig pan fydd y gwerth yng nghell A2 yn newid fel islaw'r screenshot a ddangosir.


Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Kutools ar gyfer Excel Yn Datrys y Rhan fwyaf o'ch Problemau, Ac Yn Cynyddu Eich Cynhyrchiant erbyn
80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na
    300
    nodweddion pwerus
    . Yn cefnogi Office/Excel
    2007-2019 a 365
    . Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn
    30
    - treial am ddim diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant gan
    50%
    , ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (35)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod i glirio cell os yw un arall yn newid yn gweithio'n wych!!!! Ond mae ei angen arnaf i weithio'r ffordd arall ..... Sut mae'r cod hwnnw wedi'i ysgrifennu??


Diolch am eich help
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Scott,
Beth ydych chi'n ei olygu i weithio i'r gwrthwyneb? Wrth glirio cynnwys celloedd penodol â llaw (C1:C3), yna clirio cynnwys cell A2 yn awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo, mae hyn yn gweithio ar gyfer cell ffynhonnell sefydlog yn unig (A2), sut mae hyn yn ddeinamig fel ffynhonnell yn gell newidiol? ceisiais ysgrifennu
A=cell.row
Os Nad yw Croestorri (Targed, Ystod ("A" ac A)) yn Ddim Yna
Ystod ("C1:C3").Cynnwys Clir
Gorffennwch Os

dylai hwn wneud y gwaith o ran activecell (hy dethol) ond nid yw'n gweithio
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Rhowch gynnig ar y cod VBA isod. Diolch i chi am eich sylw.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os (Ddim yn Croestorri (Targed, Rhesi(1))) Ddim yn Ddim) A (Target.Count = 1) Yna
Ystod ("C1:C3").Cynnwys Clir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rwy'n edrych am ffordd i glirio ystod o gelloedd data pan roddir "x" mewn cell benodol. Defnyddiais y fformiwla uchod ac fe weithiodd yn berffaith ar gyfer yr un rhes honno. Y broblem yw bod angen i mi ei ymestyn i lawr i sawl rhes. Er enghraifft, os cofnodir "x" yn "D13", mae angen i mi glirio'r ystod J:13 - v:13. Dwi angen hynny hefyd i ddigwydd os yw x yn cael ei fewnbynnu yn "D14" fel yn yr ystod d:14 - v:14 i gael ei glirio. A oes ffordd i ysgrifennu hynny? Diolch am eich help!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo nid yw hyn yn gweithio i mi. Dim byd yn newid ond dim gwallau chwaith. Unrhyw awgrymiadau?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Da dydd,
Ymddiheuriadau am yr anghyfleustra. A fyddech chi'n darparu eich fersiwn Office? Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn achos A2, sut ydw i'n cyfeirio at gell o daflen waith wahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
unrhyw ffordd o wneud hyn heb VBA?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Sonia,
Heb ddod o hyd i unrhyw ateb ac eithrio VBA. Diolch am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Pa god VBA ydw i'n ei ddefnyddio os oes gen i fwrdd ac angen bylchau lluosog?

Fy mwrdd i yw B3:E7. Os yw'r cynnwys yng ngholofn B yn cael ei glirio yna hoffwn i'r data yng ngholofn C, D, E gael eu clirio ar gyfer y rhes honno. Mae gennyf yr isod ar gyfer rhes 3, ond hoffwn yr un peth yn rhesi 4,5,6 a 7.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("B3")) Yn Dim Yna
Ystod ("C3:E3").Cynnwys Clir
Gorffennwch Os
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth am un i glirio cynnwys unrhyw gell ar glic dwbl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, sut ydych chi'n ailadrodd y cod ar gyfer mwy nag un gell yn yr enghraifft, hy os ydw i'n dileu cynnwys celloedd a4 & a5, rydw i eisiau clirio cynnwys b4:z4 a b5:z5 yn y drefn honno, mae angen i mi wneud hyn am daenlen fawr gyda 1000 o resi bydd unrhyw gyngor yn cael ei werthfawrogi'n fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Julian, rydw i hefyd yn edrych am yr un peth, rhowch wybod i mi os oes gennych chi unrhyw ateb ar gyfer hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Newidiwch y rhifau yn unol â hynny
Dim i Fel Cyfanrif
Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Ar gyfer i = 2 I 10
lookrange = "A" & i
contentrange = "B" &i&":" &"C"&i
Os Ddim yn Croestorri (Targed, Ystod (lookrange)) Yn Dim Yna
Ystod (ystod cynnwys).Cynnwys Clir
Gorffennwch Os
Nesaf i
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo sagarsrinivas0312, Diolch yn fawr am y cod hwn. Rwyf eisoes yn chwilio wythnos am yr ateb hwn!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae hyn yn wych, diolch. Sut ydw i'n gwneud hyn sawl gwaith...felly clirio celloedd eraill yn seiliedig ar golofn wahanol?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
riusciresti a scrivermelo in modo che debba solo fare copia ed incolla?
non riesco veramente a farlo funzionare

Diolch yn fawr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Rwy'n ceisio clirio celloedd ychwanegol colofn A a B os dewch o hyd i gelloedd gwag yng ngholofn C o'r ddalen o'r enw "Sold" ac mae Macro yn rhedeg o'r Daflen o'r enw "Anfoneb".

Cefais islaw'r cod o wefan helpu ond ni allaf gael fy nymuniad.
helpwch fi am y peth. Sgrinlun wedi'i atodi beth rydw i eisiau.

Swm yn Glir()

Dim g Cyn Hir
Ar gyfer g = 2 I ActiveSheet.UsedRange.Rows.Count
Os Cells(g, "C").Value = "" Yna
Celloedd(g, "A").Cynnwys Clir
Celloedd(g, "B").Cynnwys Clir

Gorffennwch Os
Digwyddiadau
Swm Diwedd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn i'w weld yn gweithio os yw'r cynnwys cell penodedig yn cael ei reoli gan gell ar ddalen arall? a oes ateb i hyn?
Enghraifft gan ddefnyddio eich enwau celloedd
Os yw cell "A2" yn (= dalen 1[@[a5]] ac mae'r rhif hwn yn newid ar ddalen 1 yna mae'n newid cynnwys A2 nid yw'n clirio cynnwys yn yr ystod benodol.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-daflen waith preifat_Activate()
Os Ystod ("S2") <> Ystod ("A2").Gwerth Yna
Ystod ("S2") = Ystod ("A2"). Gwerth
Ystod ("d2:g2").Cynnwys Clir
Gorffennwch Os
Gellir amnewid 'S2' ag unrhyw gell y tu allan i'r ystod data. Yr hyn y mae'r VBA yn ei wneud yw diweddaru'r data ar gyfer 'S2' yn awtomatig, yna'r data sy'n cael ei ddiweddaru yw'r hyn sy'n rheoli'r ystod a nodwyd gennych ac a yw'n cael ei glirio ai peidio.
Dyma'r unig ffordd yr wyf wedi dod o hyd i wneud hyn yn llwyddiannus wrth ddefnyddio celloedd cyfeirnod y tu mewn a'r tu allan i'r daflen waith.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn union beth sydd ei angen arnaf ond mynd yno. Mae gen i gell wag E3.Mae gen i ddata yn B3.Pan fyddaf yn rhoi data i mewn i E3, os yw yr un fath â B3 yna mae B3 wedi'i ddileu. Gobeithio y gallwch chi fy helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A yw'n bosibl clirio cynnwys celloedd penodedig os yw'r gell sbardun yn cynnwys rhif penodol? Dywedwch, OS yw cell A1 = 1, yna clirio Celloedd A2:A4?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helô bawb,

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 amgylch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

Dim ond yn chwilio am ffordd hawdd i'w wneud felly os yw "B2" wedi dewis "Ie" o'r rhestr dilysu data, byddai cell B3 yn clirio ei ddata... ac i'r gwrthwyneb: Os yw "B3" wedi dewis "Ie" o'r rhestr dilysu data, byddai cell "B2" yn clirio ei ddata.

Yn y bôn B2 or B3 yn gallu dweud "Oes"(o'r rhestr dilysu data) ond byth ar yr un pryd, dylai un glirio'r llall.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Jeff,
Gall y cod VBA canlynol wneud ffafr i chi. Rhowch gynnig arni.
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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
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.
Melin grazie
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Pietro,
Mae'n ddrwg gennyf nad wyf yn deall eich cwestiwn yn iawn. Ydych chi'n meindio uwchlwytho sgrinlun o'ch data?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Помогите с решением, VBA не знаю. Мне нужно при изменении ячейки удалить данные из другой и чтобы это дейстовало на весь сто.
Меняю А2 удаляется из G2, меняю А3 удаляется из G3, меняю A6 удаляется из G6 и т.д.

Is-daflen Waith Breifat_Newid(Targed ByVal Fel Ystod)
Os Ddim yn Croestorri (Targed, Ystod ("A2")) Yn Dim Yna
Ystod ("G2").Cynnwys Clir
Gorffennwch Os
Is-End


Ystyr geiriau: Данный код хорош для одной ячейки, а как его размножить на все ячейки столбца?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Natal,
Gall y cod VBA canlynol eich helpu i ddatrys y broblem. Rhowch gynnig arni.

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
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

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

Lieben Gruß Mathias
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Mathias,
Os na allwch ddod o hyd i'r allwedd cyfatebol ar y bysellfwrdd. Gallwch chi glicio ar y Save botwm yn y ffenestr Microsoft Visual Basic Applications i achub y cod ac yna cau'r ffenestr hon â llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Mae'r cod isod yn gweithio fel yr hysbysebwyd, ond mae'r problemau canlynol yn codi:

Yn gyntaf, wrth newid maint y tabl wedi'i dargedu, mae holl ddata'r tabl yn cael ei glirio AC, mae pob penawdau heblaw colofn 1 yn cael eu hail-labelu i "Colofn 1, Colofn2, ac ati. AC mae'r llyfr gwaith yn cadw ei hun yn awtomatig ac yn lladd y dadwneud.

Yn ail, wrth ddileu unrhyw res tabl, rwy'n cael "gwall amser rhedeg 1004 (Methodd Gwrthbwyso Dull o Ystod gwrthrych.


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


Unrhyw syniad o beth allai fod yn bod?

Ddiolch i mewn ddyrchaf!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola, estoy trabajando una base de datos en SWYDDFA AR-LEIN a traves de ONEDRIVE, quiero que al PONER "CANCELADO" o "NOSHOW" elimine el contenido de la fila seleccionada.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Angel,
Nid yw'r cod VBA yn gweithio yn Office Online. Ymddiheuriadau am yr anghyfleustra.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL