Note: The other languages of the website are Google-translated. Back to English

Conas ábhar cille sonraithe a ghlanadh má athraíonn luach cille eile in Excel?

Má ghlactar leis gur mhaith leat raon ábhar sonrach cille a ghlanadh má athraítear luach cille eile, conas is féidir leat a dhéanamh? Taispeánfaidh an post seo modh duit chun an fhadhb seo a réiteach.

Glan ábhar sonraithe cille má athraíonn luach cille eile le cód VBA


Glan ábhar sonraithe cille má athraíonn luach cille eile le cód VBA

Mar a thaispeántar thíos an scáileán, nuair a athraítear an luach i gcill A2, glanfar an t-ábhar i gcill C1: C3 go huathoibríoch. Déan mar a leanas le do thoil.

1. Sa bhileog oibre glanfaidh tú ábhar cille bunaithe ar athruithe cille eile, cliceáil ar dheis ar an táb bileog agus roghnaigh Féach an cód ón roghchlár comhthéacs. Féach an pictiúr:

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cóipeáil agus greamaigh faoi bhun chód VBA isteach i bhfuinneog an Chóid.

Cód VBA: Glan ábhar sonraithe cille má athraíonn luach cille eile

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

nótaí: Sa chód, is é B2 an chill a ghlanfaidh tú ábhar na cille bunaithe air, agus is é C1: C3 an raon a ghlanfaidh tú ábhar uaidh. Athraigh iad de réir mar is gá duit.

3. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

Ansin is féidir leat an t-ábhar i raon C1 a fheiceáil: Glantar C3 go huathoibríoch nuair a athraíonn an luach i gcill A2 mar atá faoi bhun an scáileáin a thaispeántar.


Earraí gaolmhara:


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (38)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An cód chun cill a ghlanadh má oibríonn athrú eile go hiontach!!!! Ach teastaíonn uaim é chun oibriú ar an mbealach eile ..... Conas a scríobhtar an cód sin??


Go raibh maith agat as do chabhair
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Scott a chara,
Cad atá i gceist agat oibriú ar bhealach eile? Nuair a ghlantar de láimh inneachar cealla áirithe (C1:C3), ansin ábhar cille A2 a ghlanadh go huathoibríoch?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, oibríonn sé seo do chill foinse seasta amháin (A2), conas a dhéanann sé seo go dinimiciúil cosúil le cill inathraithe foinse? rinne mé iarracht scríobh
A=activecell.row
Mura dtrasnaíonn (Sprioc, Raon ("A" & A)) Ní dhéanfaidh aon ní Ansin
Raon ("C1:C3").ClearContents
Deireadh Má

ba cheart go ndéanfadh sé seo an jab maidir le activecell (ie roghnú) ach níl sé ag obair
go raibh maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-Lá,
Bain triail as an gcód VBA thíos. Go raibh maith agat as do thuairim.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura bhfuil (Sprioc, Rónna(1)) Rud ar bith) Agus (Target.Count = 1) Ansin
Raon ("C1:C3").ClearContents
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, táim ag lorg bealach chun raon cealla sonraí a ghlanadh nuair a chuirtear "x" isteach i gcill áirithe. D'úsáid mé an fhoirmle thuas agus d'oibrigh sé go foirfe don tsraith amháin sin. Is í an fhadhb atá ann go gcaithfidh mé é a leathnú síos go dtí go leor sraitheanna. Mar shampla, má chuirtear "x" isteach i "D13", teastaíonn uaim an raon J:13 - v:13 a ghlanadh. Teastaíonn sé sin uaim freisin má chuirtear x isteach i "D14" mar atá i gá dom an raon d:14 - v:14 a ghlanadh. An bhfuil bealach ann chun é sin a scríobh? Go raibh maith agat as do chabhair!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit níl sé seo ag obair domsa. Ní athraíonn aon rud ach gan aon earráidí ach an oiread. Aon leideanna?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dea-lá,
Leithscéal as an míchaoithiúlacht. An gcuirfeá do leagan Office ar fáil? Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
I gcás A2, conas a dhéanaim tagairt do chill ó bhileog oibre eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
aon bhealach chun é seo a dhéanamh gan VBA?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Sonia,
Ní bhfuarthas réiteach ar bith ach amháin i gcás VBA. Go raibh maith agat as do thuairim.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cén cód VBA a úsáidim má tá tábla agam agus má tá gá agam le bearnaí iolracha?

Is é mo bhord B3:E7. Má tá an t-ábhar i gcolún B glanta ba mhaith liom na sonraí i gcolún C, D, E a ghlanadh don ró sin. Tá an ceann thíos agam do shraith 3, ach ba mhaith liom an rud céanna i ró 4,5,6 agus 7.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura Trasnaíonn (Sprioc, Raon ("B3")) An bhfuil aon rud ansin
Raon ("C3:E3").ClearContents
Deireadh Má
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad mar gheall ar cheann amháin chun ábhar aon chillín a ghlanadh ar chliceáil dúbailte?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, conas a dhéanann tú an cód a athdhéanamh le haghaidh níos mó ná cill amháin sa sampla, ie má scriosaim inneachar cealla a4 & a5, ba mhaith liom ábhar b4:z4 & b5:z5 faoi seach a ghlanadh, ní mór dom é seo a dhéanamh le haghaidh scarbhileog mhór le 1000 sraitheanna beifear buíoch as aon chomhairle
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Julian, táim ag lorg an rud céanna freisin, cuir in iúl dom má tá aon réiteach agat air seo.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Athraigh na huimhreacha dá réir le do thoil
Dim i Mar Slánuimhir
Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Do i = 2 Go 10
lookrange = "A" &i
contentrange = "B" &i&":" &"C"&i
Mura dtrasnaíonn (Sprioc, Raon (lookrange)) Ní dhéanfaidh aon ní Ansin
Raon (raon ábhar).ClearContents
Deireadh Má
Ar Aghaidh i
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit sagarsrinivas0312, Go raibh míle maith agat as an gcód seo. Tá mé ag cuardach seachtaine cheana féin don réiteach seo!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá sé seo iontach, go raibh maith agat. Conas a dhéanaim é seo go minic… cealla eile a ghlanadh bunaithe ar cholún eile?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
riasciresti agus scrivermelo i modo le debba solo fare copia ed incolla?
neamh riesco veramente agus farlo funzionare

go raibh míle maith agat
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Haigh,
Táim ag iarraidh cealla breise de cholún A agus B a ghlanadh má aimsítear cealla bána i gcolún C den bhileog darb ainm "Sold" agus ritheann Macra ó Bhileog darb ainm "Sonrasc".

Fuair ​​​​mé faoin gcód ó shuíomh cabhrach ach ní féidir liom an méid atá ag teastáil a fháil.
le do thoil cabhrú liom faoi. gabháil scáileáin cad ba mhaith liom.

Suim Glan()

Dim g Chomh fada
Le haghaidh g = 2 Go ActiveSheet.UsedRange.Rows.Count
Má Cealla(g, "C").Value = "" Ansin
Cealla(g, "A").ClearContents
Cealla(g, "B").ClearContents

Deireadh Má
Ar Aghaidh
Suim Deiridh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ní cosúil go n-oibríonn sé seo má tá an t-ábhar cille sonraithe á rialú ag cill ar bhileog eile? an bhfuil réiteach ann dó seo?
Sampla ag baint úsáide as d'ainmneacha cille
Má tá cill "A2" (= bileog 1[@[a5]] agus má athraíonn an uimhir seo ar bhileog 1 ansin athraíonn sé a bhfuil in A2 ní ghlanann sí an t-inneachar sa raon sonraithe.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Fo-bhileog Oibre Príobháideach_ Gníomhachtaigh()
Má Raon ("S2") <> Raon ("A2").Luach Ansin
Raon ("S2") = Raon ("A2").Luach
Raon ("d2: g2").ClearContents
Deireadh Má
Is féidir aon chill lasmuigh den raon sonraí a chur in ionad 'S2'. Is é an rud atá á dhéanamh ag an VBA ná na sonraí le haghaidh 'S2' a nuashonrú go huathoibríoch agus ansin is iad na sonraí atá á nuashonrú ná an méid a rialaíonn tú raon sonraithe agus cibé an bhfaigheann nó nach bhfuil sé glanta.
Is é seo an t-aon bhealach a d'aimsigh mé é seo a dhéanamh go rathúil agus cealla tagartha á n-úsáid laistigh agus lasmuigh den bhileog oibre.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Níl go leor cad is gá dom ach a fháil ann.Tá cill folamh E3.I bhfuil sonraí i B3.Nuair a chuir mé sonraí isteach E3, má tá sé mar an gcéanna le B3 scriostar B3.Hope is féidir leat cabhrú liom amach.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir inneachar sonraithe cille a ghlanadh má tá uimhir shainiúil sa truicearchill? Abair, MÁS cill A1 = 1, ansin glan Cealla A2:A4?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit gach duine,

Besoin d'aide, j'ai besoin d'effacer le contenu d'une cellule de la colonne "I" si la cealla (de la même ligne) de la colonne "O" =0, sur environ 2000 lignes avec des titres tout le 10 lignes timpeallacht.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Níl ort ach bealach éasca a lorg chun é a dhéanamh mar sin má tá "Tá" roghnaithe ag "B2" ón liosta bailíochtaithe sonraí, ghlanfadh cill B3 a shonraí ... agus a mhalairt: Má roghnaigh "B3" "Tá" ón liosta bailíochtaithe sonraí. liosta bailíochtaithe sonraí, soiléireodh cill "B2" a shonraí.

Go bunúsach B2 or B3 is féidir a rá "Is ea"(ón liosta bailíochtaithe sonraí) ach ní ag an am céanna riamh, ba chóir go soiléir an ceann eile.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Jeff,
Is féidir leis an gcód VBA seo a leanas bhfabhar a thabhairt duit. Bain triail as le do thoil.
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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Buongiorno, avrei bisogno di cancellare una serie di caselle (un rettangolo, quindi su più righe agus 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 ceal.
Muilinn grazie
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Pietro,
Tá brón orm nach dtuigim do cheist go hiomlán. An miste leat gabháil scáileáin de do shonraí a uaslódáil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Помогите с решением, VBA не знаю. Мне нужно при измении ячейки удалить danные из другой agus чтобы это дейстовало на весь стоь.
Меняю А2 удаляется из G2, меняю А3 удаляется agus G3, меняю A6 удаляется из G6 и т.д.

Fo-Bileog Oibre Príobháideach_Change (Sprioc ByVal Mar Raon)
Mura Trasnaíonn (Sprioc, Raon ("A2")) An bhfuil aon rud ansin
Raon ("G2").ClearContents
Deireadh Má
Fo Deireadh


Данный код хорош для одной ячейки, а как его размножить на все ячейки столбца?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a Natalya,
Is féidir leis an gcód VBA seo a leanas cabhrú leat an fhadhb a réiteach. Bain triail as, le do thoil.

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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,

Zu Punc 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
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Mathias,
Mura bhfuil tú in ann an eochair chomhfhreagrach a aimsiú ar an méarchlár. Is féidir leat ach cliceáil ar an Sábháil cnaipe sa Fuinneog Feidhmchláir Microsoft Visual Basic chun an cód a shábháil agus ansin an fhuinneog seo a dhúnadh de láimh.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit,
Oibríonn an cód thíos mar a fógraíodh ach tarlaíonn na fadhbanna seo a leanas:

Ar an gcéad dul síos, nuair a dhéantar an tábla spriocdhírithe a athrú, déantar na sonraí tábla go léir a ghlanadh AGUS, déantar na ceannteidil go léir seachas ceannteidil cholún 1 a athlipéadú go "Colún 1, Colún 2, etc. AGUS sábhálfaidh an leabhar oibre é féin agus maraíonn sé an cealú.

Ar an dara dul síos, nuair a bhíonn aon ró tábla á scriosadh, faighim “Earráid am Rith 1004 (Theip ar Fritháireamh Modh an Réimse réad.


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


Aon smaoineamh cad a d'fhéadfadh a bheith mícheart?

Go raibh maith agat roimh ré!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, is é an bonn sonraí atá ag OIFIG AR LÍNE agus ONEDRIVE ag taisteal, ach go bhfuil an PONER "CANCELADO" nó "NOSHOW" chun deireadh a chur leis an rogha roghnaithe.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit aingeal,
Ní oibríonn an cód VBA in Office Online. Leithscéal as an míchaoithiúlacht.
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL