Note: The other languages of the website are Google-translated. Back to English
Մուտք Գրանցում

Ինչպե՞ս մաքրել նշված բջիջի պարունակությունը, եթե Excel- ում մեկ այլ բջջի արժեքը փոխվում է:

Ենթադրելով, որ ցանկանում եք մաքրել նշված բջիջների մի շարք, եթե այլ բջիջի արժեքը փոխվի, ինչպե՞ս կարող եք դա անել: Այս հաղորդագրությունը ձեզ ցույց կտա այս խնդիրը լուծելու մեթոդ:

Մաքրել նշված բջիջի պարունակությունը, եթե մեկ այլ բջջի արժեքը փոխվում է VBA կոդի հետ

Մաքրել նշված բջիջի պարունակությունը, եթե մեկ այլ բջջի արժեքը փոխվում է VBA կոդի հետ

Ինչպես ցույց է տրված սքրինշոթից ներքևում, երբ A2 բջիջի արժեքը փոխվում է, C1: C3 խցում պարունակությունն ինքնաբերաբար մաքրվելու է: Խնդրում եմ, արեք հետևյալ կերպ.

1. Աշխատանքային թերթում դուք կջնջեք բջիջների պարունակությունը `հիմնվելով բջիջների մեկ այլ փոփոխության վրա, աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստային ընտրացանկից: Տեսեք,

2. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք ներքևում գտնվող VBA կոդի մեջ `կոդ պատուհանում:

VBA կոդ. Մաքրել նշված բջիջի պարունակությունը, եթե այլ բջիջի արժեքը փոխվում է

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

ՆշումԿոդում `B2- ը այն բջիջն է, որի հիման վրա դուք կմաքրեք բջջի պարունակությունը, իսկ C1: C3- ը այն միջակայքն է, որից դուք կջնջեք բովանդակությունը: Խնդրում ենք փոխել դրանք, ինչպես ձեզ հարկավոր է:

3. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Դրանից հետո դուք կարող եք տեսնել C1- ի տիրույթում պարունակվող բովանդակությունը. C3- ը ավտոմատ կերպով մաքրվում է, երբ A2 բջիջի արժեքը փոխվում է, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը:

Առնչվող հոդվածներ քանակը:

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
Հները `սկզբում
Նորերը `սկզբում
մեկնաբանություններ (38)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Scott
Scott
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բջիջը ջնջելու կոդը, եթե մյուսը փոխվի, հիանալի է աշխատում!!!! Բայց ինձ պետք է, որ հակառակը աշխատի..... Ինչպե՞ս է գրված այդ կոդը??


Շնորհակալություն ձեր օգնության համար
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Scott
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Սքոթ,
Ի՞նչ նկատի ունեք աշխատել հակառակը: Երբ ձեռքով մաքրում է որոշակի բջիջների պարունակությունը (C1:C3), ապա ավտոմատ կերպով մաքրում է A2 բջիջի պարունակությունը:
պատասխանել
հաշվետվություն
0
0
Գորգ 257
Գորգ 257
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
բարև, սա աշխատում է միայն ֆիքսված աղբյուրի բջիջի համար (A2), ինչպե՞ս է դա դինամիկ կերպով, օրինակ՝ աղբյուրը փոփոխական բջիջ է: ես փորձեցի գրել
A=activecell.row
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք ("A"& A)) ոչինչ է, ապա
Տարածք ("C1:C3"): Clear Contents
Վերջ: Եթե

սա պետք է գործը կատարի ակտիվ բջիջի հետ կապված (այսինքն ընտրություն), բայց չի աշխատում
շնորհակալություն
պատասխանել
հաշվետվություն
0
0
բյուրեղապակի
բյուրեղապակի     Գորգ 257
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Խնդրում ենք փորձել ստորև բերված VBA կոդը: Շնորհակալություն մեկնաբանության համար։

Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​(Not Intersect(Target, Rows(1)) Is Nothing) And (Target.Count = 1) Ապա
Տարածք ("C1:C3"): Clear Contents
Վերջ: Եթե
Վերջ Sub
պատասխանել
հաշվետվություն
0
0
Jason
Jason
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ես միջոց եմ փնտրում մի շարք բջիջների տվյալների մաքրման համար, երբ որոշակի բջիջում մուտքագրվում է «x»: Ես օգտագործեցի վերը նշված բանաձևը և այն կատարյալ աշխատեց այդ մեկ շարքի համար: Խնդիրն այն է, որ ես պետք է երկարացնեմ այն ​​մինչև շատ տողեր: Օրինակ, եթե «D13»-ում մուտքագրված է «x», ապա ինձ պետք է ջնջել J:13 - v:13 միջակայքը: Ինձ նաև պետք է, որ դա տեղի ունենա, եթե «D14»-ում x մուտքագրվի, քանի որ ինձ անհրաժեշտ է, որ d:14 - v:14 միջակայքը մաքրվի: Դա գրելու ձև կա՞: Շնորհակալություն ձեր օգնության համար:
պատասխանել
0
0
Mac
Mac
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, սա իմ մոտ չի աշխատում: Ոչինչ չի փոխվում, բայց ոչ մի սխալ: Ինչ-որ խորհուրդներ:
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Mac
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարի օր,
Ներողություն անհանգստության համար. Կտրամադրե՞ք ձեր Office տարբերակը: Շնորհակալություն ձեր մեկնաբանության համար:
պատասխանել
հաշվետվություն
0
0
GQ
GQ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
A2-ի դեպքում ինչպե՞ս կարող եմ հղում կատարել մեկ այլ աշխատաթերթի բջիջին:
պատասխանել
0
0
Sonia
Sonia
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
որևէ կերպ դա անելու առանց VBA-ի:
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Sonia
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սոնյա,
Ոչ մի լուծում չգտա, բացի VBA-ից: Շնորհակալություն ձեր մեկնաբանության համար:
պատասխանել
հաշվետվություն
0
0
Matt
Matt
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ի՞նչ VBA կոդ եմ ես օգտագործում, եթե ունեմ աղյուսակ և մի քանի դատարկության կարիք ունեմ:

Իմ սեղանը B3:E7 է: Եթե ​​B սյունակի բովանդակությունը մաքրված է, ապա ես կցանկանայի, որ այդ տողի համար մաքրվեն C, D, E սյունակների տվյալները: Ես ունեմ ստորև նշված 3-րդ շարքի համար, բայց նույնը կցանկանայի 4,5,6 և 7-րդ շարքերում:

Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («B3»)) Ոչինչ է, ապա
Շրջանակ ("C3:E3").ClearContents
Վերջ: Եթե
Վերջ Sub
պատասխանել
0
0
Stephen
Stephen
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչ վերաբերում է մեկին, որը պարզապես մաքրում է ցանկացած բջիջի բովանդակությունը կրկնակի սեղմումով:
պատասխանել
հաշվետվություն
0
0
Julian
Julian
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, ինչպես եք կրկնում կոդը մեկից ավելի բջիջների համար օրինակում, այսինքն, եթե ես ջնջեմ a4 և a5 բջիջների բովանդակությունը, ես ուզում եմ համապատասխանաբար մաքրել b4:z4 և b5:z5 բովանդակությունը, ես պետք է դա անեմ: 1000 տող ունեցող մեծ աղյուսակի համար ցանկացած խորհուրդ շատ կգնահատվի
պատասխանել
0
0
Սամիրը
Սամիրը     Julian
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Ջուլիան, ես նույնպես փնտրում եմ նույնը, խնդրում եմ ինձ տեղյակ պահեք, եթե դրա համար որևէ լուծում ունեք:
պատասխանել
0
0
Սագար Սրինիվաս
Սագար Սրինիվաս     Julian
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Խնդրում ենք համապատասխանաբար փոխել թվերը
Dim i Որպես ամբողջ թիվ
Private Sub Worksheet_Change (ByVal Target as Range)
i = 2-ից 10-ի համար
lookrange = «A» և i
contentrange = «B» & i & «:» & «C» & i
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք (տեսակետ)) Ոչինչ է, ապա
Range(contentrange).ClearContents
Վերջ: Եթե
Հաջորդ i
Վերջ Sub
պատասխանել
հաշվետվություն
0
0
ԼորեԲ
ԼորեԲ     Սագար Սրինիվաս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն sagarsrinivas0312, շատ շնորհակալություն այս ծածկագրի համար: Ես արդեն մեկ շաբաթ փնտրում եմ այս լուծումը:
պատասխանել
0
0
pm
pm     Սագար Սրինիվաս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հիանալի է, շնորհակալություն: Ինչպե՞ս կարող եմ դա անել մի քանի անգամ... այդքան մաքրել այլ բջիջները՝ հիմնված տարբեր սյունակի վրա:
պատասխանել
0
0
Matthew
Matthew     Սագար Սրինիվաս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
riusciresti a scrivermelo in modo che debba solo fare copia ed incolla?
non riesco veramente a farlo funzionare

Շատ շնորհակալություն
պատասխանել
0
0
ԲՈԼՈՐ
ԲՈԼՈՐ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Ես փորձում եմ մաքրել A և B սյունակների լրացուցիչ բջիջները, եթե գտնեմ «Վաճառված» անունով թերթի C սյունակում դատարկ բջիջներ, իսկ մակրո-ն գործարկվում է «Invoice» անունով թերթից:

Ես ստացել եմ ներքևի կոդը օգնող կայքից, բայց չեմ կարող ստանալ իմ ուզածը:
խնդրում եմ օգնեք ինձ այդ հարցում: Սքրինշոթը կցված է այն, ինչ ուզում եմ:

Գումարը հստակ ()

Dim g Քանի դեռ
g = 2 համար ActiveSheet.UsedRange.Rows.Count
If Cells(g, "C").Value = "" Այնուհետեւ
Բջիջներ (g, «A»): Clear Contents
Բջիջներ (g, «B»): Clear Contents

Վերջ: Եթե
հաջորդ
Վերջնական գումար
պատասխանել
հաշվետվություն
0
0
Միկրոֆոն
Միկրոֆոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա չի աշխատում, եթե նշված բջիջի բովանդակությունը վերահսկվում է մեկ այլ թերթիկի բջիջի կողմից: կա՞ սրա ուղղումը:
Օրինակ՝ օգտագործելով ձեր բջիջների անունները
Եթե ​​«A2» բջիջը (=sheet1[@[a5]] է, և այս թիվը փոխվում է 1-ին թերթում, ապա փոխում է A2-ի բովանդակությունը, այն չի մաքրում բովանդակությունը նշված տիրույթում:
պատասխանել
0
0
James
James     Միկրոֆոն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Մասնավոր ենթաթերթ_Ակտիվացնել()
If Range("S2") <> Range("A2").Value then
Range("S2") = Range("A2").Արժեք
Տարածք ("d2:g2").ClearContents
Վերջ: Եթե
«S2»-ը կարող է փոխարինվել տվյալների տիրույթից դուրս գտնվող ցանկացած բջիջով: Այն, ինչ անում է VBA-ն, ինքնաբերաբար թարմացնում է «S2»-ի տվյալները, այնուհետև թարմացվում է այն, թե ինչն է վերահսկում ձեր նշած տիրույթը և արդյոք այն մաքրվում է, թե ոչ:
Սա միակ միջոցն է, որը ես գտել եմ հաջողությամբ դա անելու համար, երբ օգտագործում եմ հղված բջիջները ինչպես աշխատաթերթում, այնպես էլ դրա սահմաններից դուրս:
պատասխանել
հաշվետվություն
0
0
Էնդրյու Մեթյուս
Էնդրյու Մեթյուս
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ոչ այնքան, ինչ ինձ պետք է, բայց հասնել այնտեղ: Ես ունեմ դատարկ E3 բջիջ: Ես ունեմ տվյալներ B3-ում: Երբ ես տվյալները դնում եմ E3-ում, եթե դրանք նույնն են, ինչ B3-ը, ապա B3-ը ջնջվում է: Հուսով եմ, որ դուք կարող եք օգնել ինձ:
պատասխանել
հաշվետվություն
0
0
Սայմոն Քրոուլի
Սայմոն Քրոուլի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավո՞ր է ջնջել նշված բջիջի պարունակությունը, եթե ձգանման բջիջը պարունակում է որոշակի թիվ: Ասենք, ԵԹԵ բջիջ A1 = 1, ապա ջնջե՞լ A2:A4 բջիջները:
պատասխանել
0
0
Ադոնիսը
Ադոնիսը
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև բոլորին

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 շրջակա.
պատասխանել
0
0
Jeff
Jeff
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Պարզապես հեշտ միջոց է փնտրում այն ​​դարձնելու համար, այնպես որ, եթե «B2»-ն ընտրել է «Այո»-ն տվյալների վավերացման ցանկից, B3 բջիջը կջնջի իր տվյալները… և հակառակը. Եթե «B3»-ն ընտրել է «Այո»-ն: տվյալների վավերացման ցուցակը, «B2» բջիջը կջնջեր իր տվյալները:

Ըստ էության B2 or B3 կարող է ասել «այո»(տվյալների վավերացման ցանկից) բայց երբեք միևնույն ժամանակ, մեկը մյուսին պետք է մաքրի.
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Jeff
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն effեֆֆ,
Հետևյալ VBA կոդը կարող է ձեզ լավություն անել: Խնդրում եմ փորձեք:
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
պատասխանել
հաշվետվություն
0
0
Պիետրո
Պիետրո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Buongiorno, avrei bisogno di cancellare una serie di caselle (un rettangolo, quindi su più righe e colonne) բազային al valore di un'altra cella-ում: es: se la cella A2 è inferiore di 12, il quadrato con vertici opposto C2: F4 venga cancellato:
Գրազի միլլ
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Պիետրո
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Պիետրո,
Կներեք, ես այնքան էլ չեմ հասկանում ձեր հարցը: Դեմ ե՞ք վերբեռնել ձեր տվյալների սքրինշոթը:
պատասխանել
հաշվետվություն
0
0
Natalia
Natalia
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փնտրեք լուծումը, VBA-ն չգիտի: Мне нужно при изменении ячейки удалить данные из другой и чтобы это дейстовало на весь столбец.
Меняю А2 удаляется из G2, меняю А3 удаляется из G3, меняю А6 удаляется из G6 и т.д.

Private Sub Worksheet_Change (ByVal Target as Range)
Եթե ​​խաչմերուկ չէ (Թիրախ, միջակայք («A2»)) Այն ժամանակ ոչինչ չէ
Շրջանակ ("G2").ClearContents
Վերջ: Եթե
Վերջ Sub


Данный код хорош для одной ячейки, а как его размножить на все ячейки столбца?
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Natalia
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Նատալյա,
Հետևյալ VBA կոդը կարող է օգնել ձեզ լուծել խնդիրը: Խնդրում եմ, փորձեք:

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
պատասխանել
հաշվետվություն
0
0
Mathias
Mathias
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

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.

Լիբեն Գրուս Մաթիաս
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     Mathias
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն Մաթիաս,
Եթե ​​ստեղնաշարի վրա չեք գտնում համապատասխան ստեղնը: Դուք կարող եք պարզապես սեղմել Փրկել կոճակը Microsoft Visual Basic հավելվածների պատուհան կոդը պահպանելու համար և այնուհետև ձեռքով փակեք այս պատուհանը:
պատասխանել
հաշվետվություն
0
0
ՋՍեբ Լ.
ՋՍեբ Լ.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Ստորև բերված կոդը աշխատում է այնպես, ինչպես գովազդվում է, բայց առաջանում են հետևյալ խնդիրները.

Նախ՝ թիրախավորված աղյուսակը չափափոխելիս աղյուսակի բոլոր տվյալները ջնջվում են AND, բոլոր վերնագրերը, բացի սյունակ 1-ից, կրկին պիտակավորվում են «Column1, Column2, և այլն»: ԵՎ աշխատանքային գրքույկը ինքնաբերաբար պահպանում է իր lef-ը և սպանում է հետարկել:

Երկրորդ, աղյուսակի ցանկացած տող ջնջելիս ես ստանում եմ «Գործարկման ժամանակի սխալ 1004» (օբյեկտի տիրույթի մեթոդի շեղումը ձախողվեց:


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


Կա՞ պատկերացում, թե ինչ կարող է լինել սխալ:

Thanks in advance!
պատասխանել
0
0
հրեշտակ
հրեշտակ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hola, estoy trabajando una base de datos en OFFICE ONLINE a traves de ONEDRIVE, quiero que al PONER «CANCELADO» կամ «NOSHOW» elimine el contenido de la fila seleccionada.
պատասխանել
0
0
բյուրեղապակի
բյուրեղապակի     հրեշտակ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև հրեշտակ,
VBA կոդը չի աշխատում Office Online-ում: Ներողություն անհանգստության համար.
պատասխանել
հաշվետվություն
0
0
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հյուր
Հրապարակում որպես հյուր
Մուտք
×
Գնահատեք այս գրառումը.
Նորից դնել
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից