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

Hvordan ryddes specificeret celleindhold ved åbning og afslutning i Excel-projektmappe?

Denne artikel taler om at rydde specificeret celleindhold, når du åbner eller lukker en Excel-projektmappe.

Ryd det angivne celleindhold på projektmappen, åbn og afslut


Ryd det angivne celleindhold på projektmappen, åbn og afslut

Gør som følger for at rydde specificeret celleindhold på projektmappen åben og afslut.

For det første skal du gemme den projektmappe, som du har brug for for at rydde specificeret celleindhold ved åbning eller afslutning som en Excel Makro-aktiveret projektmappe.

1. Klik venligst filet > Gem som > Gennemse. Se skærmbillede:

2. i Gem som Vælg en mappe for at gemme projektmappen, indtast et nyt navn i Filnavn vælg Excel-makroaktiveret projektmappe fra Sava som type rullelisten, og klik derefter på Gem .

3. I popping up Microsoft Excel Klik på dialogboksen OK knap som vist nedenstående skærmbillede.

4. Åbn den makroaktiverede projektmappe, du lige har gemt, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

5. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook i venstre rude, og kopier derefter under VBA-kode til kodevinduet.

VBA-kode 1: Ryd det angivne celleindhold i projektmappen åben

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

VBA-kode 2: Ryd specificeret celleindhold ved afslutning af projektmappe

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

Bemærk: I ovenstående koder er test og A1: A11 det regnearknavn og celleområde, du vil rydde indholdet fra. Skift dem, som du har brug for.

6. Tryk på andre + Q taster for at afslutte Microsoft Visual Basic til applikationer vindue.

Fra nu af, når du åbner eller lukker projektmappen, ryddes det angivne celleindhold i bestemte regneark automatisk.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Sorter kommentarer efter
Kommentarer (9)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Kære herr/fru, mit ark er beskyttet, og kun specificeret celle (til datarydning) er ikke beskyttet, men når jeg indtaster værdien i den angivne og derefter genåbner excel-filen, ryddes værdien af ​​VBA-kode, men den angivne celle er beskyttet, jeg er nødt til at fjerne beskyttelsen af ​​cellen ved at fjerne beskyttelsen af ​​arket, rediger det redigerbare område igen og igen, så ret det.
Tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Sanjay Sharma,
Beklager ulejligheden. Anvend venligst nedenstående VBA-koder og husk at udskifte arknavnet og rækkevidden til dine behov. Tak for din kommentar.

VBA kode 1:
Privat underarbejdsbog_Åben()
Application.EnableEvents = False
Worksheets("Sheet1").Range("A1:A11").Value = ""
Application.EnableEvents = True
End Sub

VBA kode 2:
Privat underarbejdsbog_BeforeClose(Annuller som boolesk)
Worksheets("Sheet1").Range("A1:A11").Value = ""
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, for området, hvordan skal jeg indtaste koden, hvis jeg vil vælge flere område eller celler?
Denne kommentar blev minimeret af moderatoren på webstedet
Kan nogen hjælpe mig med at slette celler i ark (kun i en række og ikke hele ark). Nedenstående kode fjerner indholdet i alle rækker af arket. Men jeg ønsker kun, at indholdet skal ryddes i række 9

Privat underarbejdsbog_Åben()

'Opdateret af Extendoffice 20190712

Application.EnableEvents = False

Arbejdsark("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kan nogen hjælpe mig med at slette celler i ark (kun i en række og ikke hele ark). Nedenstående kode fjerner indholdet i alle rækker af arket. Men jeg ønsker kun, at indholdet skal ryddes i række 9



Privat underarbejdsbog_Åben()

'Opdateret af Extendoffice 20190712

Application.EnableEvents = False

Arbejdsark("test").Range("A1:A11").Value = ""

Application.EnableEvents = True

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Ovenstående VBA fjerner kun celleværdien for området A1:A11. Hvis du kun vil slette værdierne i række 9, kan du erstatte A1:A11 med 9:9. Se nedenstående kode.

Privat underarbejdsbog_Åben()

'Opdateret af Extendoffice 20200522

Application.EnableEvents = False

Arbejdsark("test").Range("9:9").Value = ""

Application.EnableEvents = True

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Kære venner Jeg prøvede den foreslåede kode uden effekt på åben>

Privat underarbejdsbog_Åben()


Application.EnableEvents = False

Arbejdsark("Clienti").Range("A9:K900").Value = ""

Application.EnableEvents = True

End Sub


Makroen virker inde fra projektmappen, men ikke når projektmappen åbnes.

Enhver hjælp ville være meget værdsat!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej TUDOSE GELU,
Koden fungerer godt i mit tilfælde.
Glem ikke at sætte koden i Denne arbejdsbog (kode) vindue, og gem projektmappen som en Excel Macro-aktiveret Arbejdsbog.
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
Denne kommentar blev minimeret af moderatoren på webstedet
Tak Crystal! Det virker.

G
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL