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

Ինչպե՞ս մաքրել նշված բջջային պարունակությունը Excel- ի աշխատանքային գրքում բաց և ելքի վրա:

Այս հոդվածում խոսվում է որոշակի բջջային բովանդակության մաքրման մասին, Excel աշխատանքային գրքույկ բացելիս կամ փակելիս:

Մաքրել աշխատանքային գրքում նշված բջիջների պարունակությունը, բացեք և ելեք


Մաքրել աշխատանքային գրքում նշված բջիջների պարունակությունը, բացեք և ելեք

Խնդրում ենք արեք հետևյալը ՝ աշխատանքային գրքում բացված և դուրս գալու համար նշված բջիջների պարունակությունը մաքրելու համար:

Նախևառաջ, դուք պետք է պահեք աշխատանքային գրքույկը, որը դուք պետք է մաքրեք նշված բջիջների պարունակությունը բացման վրա կամ դուրս գաք որպես Excel մակրոտնտեսական աշխատանքային գրքույկ:

1. Խնդրում ենք կտտացնել Ֆայլ > Պահել As > Թերթել, Տեսեք,

2. Մեջ Պահել As երկխոսության տուփ, խնդրում ենք ընտրեք թղթապանակ աշխատանքային գիրքը փրկելու համար, մուտքագրեք նոր անուն Ֆայլի անուն վանդակը, որքան անհրաժեշտ է, ընտրեք Excel մակրոներով աշխատունակ գիրք - ից Սավան ՝ որպես տեսակ բացվող ցուցակը, ապա կտտացրեք այն Փրկել կոճակը:

3. Պատուհանման մեջ Microsoft Excel- ը երկխոսության տուփ, խնդրում ենք սեղմել OK կոճակը, ինչպես ցույց է տրված սքրինշոթի տակ:

4. Բացեք հենց հիմա ձեր պահած Macro-Enabled Workbook- ը, սեղմեք կոճակը ալտ + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

5. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, կրկնակի սեղմեք Այս գործառույթը ձախ պատուհանում և այնուհետև պատճենեք ներքևում գտնվող VBA կոդը կոդի պատուհանում:

VBA կոդ 1. Մաքրել աշխատանքային գրքում նշված բջիջների պարունակությունը

Private Sub Workbook_Open()
'Updated by Extendoffice 20190712
    Application.EnableEvents = False
        Worksheets("test").Range("A1:A11").Value = ""
    Application.EnableEvents = True
End Sub

VBA կոդ 2. Մաքրել նշված բջիջների պարունակությունը աշխատանքային գրքի ելքի վրա

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20190712
    Worksheets("test").Range("A1:A11").Value = ""
End Sub

ՆշումՎերոհիշյալ կոդերում փորձարկում և A1: A11- ը աշխատանքային թերթի անունն է և բջիջների տիրույթը, որից դուք մաքրելու եք բովանդակությունը: Խնդրում եմ փոխեք դրանք ըստ ձեզ անհրաժեշտության:

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

Այսուհետ, աշխատանքային գիրքը բացելիս կամ փակելիս, որոշակի աշխատանքային թերթում նշված բջիջների պարունակությունը ավտոմատ կերպով մաքրվելու է:


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


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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (9)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի պարոն/տիկին, իմ թերթիկը պաշտպանված է, և միայն նշված բջիջը (տվյալների մաքրման համար) պաշտպանված չէ, բայց երբ ես արժեքը մուտքագրում եմ նշվածի մեջ և այնուհետև նորից բացում excel ֆայլը, ապա արժեքը մաքրվում է VBA կոդով, բայց նշված բջիջը պաշտպանված եմ, ես պետք է չպաշտպանեմ բջիջը՝ չպաշտպանելով թերթիկը, նորից և նորից խմբագրեմ խմբագրվող տիրույթը, ուստի խնդրում եմ ուղղել:
Փոխանցել |
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Սանջայ Շարմա,
Կներեք անհարմարության համար։ Խնդրում ենք կիրառել ստորև ներկայացված VBA կոդերը և հիշել, որ փոխարինեք թերթի անվանումը և տիրույթը ձեր կարիքներին համապատասխան: Շնորհակալություն մեկնաբանության համար։

VBA կոդ 1:
Մասնավոր ենթագիրք_Բաց()
Application.EnableEvents = False
Աշխատանքային թերթիկներ («Թերթ 1»). միջակայք («A1:A11»). Արժեք = «»
Application.EnableEvents = Ճիշտ է
Վերջ Sub

VBA կոդ 2:
Մասնավոր ենթագիրք_BeforeClose (Չեղարկել որպես բուլյան)
Աշխատանքային թերթիկներ («Թերթ 1»). միջակայք («A1:A11»). Արժեք = «»
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ձեզ, տիրույթի համար ինչպե՞ս մուտքագրեմ կոդը, եթե ուզում եմ ընտրել մի քանի միջակայք կամ բջիջներ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է ինչ-որ մեկը ինձ օգնել, թե ինչպես բացել թերթի բջիջները (միայն անընդմեջ և ոչ ամբողջ թերթիկը): Ստորև բերված կոդը հեռացնում է թերթի բոլոր տողերի բովանդակությունը: Բայց ես ուզում եմ, որ բովանդակությունը մաքրվի միայն 9-րդ շարքում

Մասնավոր ենթագիրք_Բաց()

«Թարմացվել է Extendoffice 20190712

Application.EnableEvents = False

Աշխատանքային թերթիկներ («թեստ»). միջակայք («A1:A11»). Արժեք = «»

Application.EnableEvents = Ճիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է ինչ-որ մեկը ինձ օգնել, թե ինչպես բացել թերթի բջիջները (միայն անընդմեջ և ոչ ամբողջ թերթիկը): Ստորև բերված կոդը հեռացնում է թերթի բոլոր տողերի բովանդակությունը: Բայց ես ուզում եմ, որ բովանդակությունը մաքրվի միայն 9-րդ շարքում



Մասնավոր ենթագիրք_Բաց()

«Թարմացվել է Extendoffice 20190712

Application.EnableEvents = False

Աշխատանքային թերթիկներ («թեստ»). միջակայք («A1:A11»). Արժեք = «»

Application.EnableEvents = Ճիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն,
Վերը նշված VBA-ն մաքրում է միայն A1:A11 միջակայքի բջիջների արժեքը: Եթե ​​ցանկանում եք մաքրել միայն 9-րդ շարքի արժեքները, կարող եք փոխարինել A1:A11-ը 9:9-ով: Տես ստորև բերված կոդը:

Մասնավոր ենթագիրք_Բաց()

«Թարմացվել է Extendoffice 20200522

Application.EnableEvents = False

Աշխատանքային թերթիկներ ("փորձարկում").Range("9:9").Value = ""

Application.EnableEvents = Ճիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի ընկերներ, ես փորձեցի առաջարկված կոդը՝ առանց ազդեցության open>-ի վրա

Մասնավոր ենթագիրք_Բաց()


Application.EnableEvents = False

Աշխատանքային թերթիկներ ("Clienti"). Range ("A9:K900"). Value = ""

Application.EnableEvents = Ճիշտ է

Վերջ Sub


Մակրոն աշխատում է աշխատանքային գրքույկի ներսում, բայց ոչ այն ժամանակ, երբ բացվում է աշխատանքային գիրքը:

Helpանկացած օգնություն մեծապես գնահատելի կլինի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ԹՈՒԴՈՍԵ ԳԵԼՈՒ,
Կոդն իմ դեպքում լավ է աշխատում։
Չմոռանաք տեղադրել կոդը Այս աշխատանքային գիրքը (ծածկագիր) պատուհանում և պահեք աշխատանքային գրքույկը որպես Excel մակրո-միացված Աշխատանքային տետր.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-2.png
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/2022-oct/oct-1.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն Crystal! Աշխատում է.

G
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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