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

Hoe de gespecificeerde celinhoud wissen bij openen en afsluiten in Excel-werkmap?

Dit artikel heeft het over het wissen van gespecificeerde celinhoud bij het openen of sluiten van een Excel-werkmap.

Wis de gespecificeerde celinhoud in de werkmap, open en sluit af


Wis de gespecificeerde celinhoud in de werkmap, open en sluit af

Ga als volgt te werk om de gespecificeerde celinhoud in de werkmap te wissen en af ​​te sluiten.

Ten eerste moet u de werkmap opslaan die u nodig hebt om de gespecificeerde celinhoud te wissen bij het openen of afsluiten als een Excel-werkmap met macro's.

1. Klik alstublieft Dien in > Opslaan als > Blader. Zie screenshot:

2. In de Opslaan als dialoogvenster, selecteer een map om de werkmap op te slaan, voer een nieuwe naam in het Bestandsnaam selecteer naar behoefte Excel-werkmap met ingeschakelde macro's van de Sava als type vervolgkeuzelijst en klik vervolgens op het Opslaan knop.

3. In het opduiken Microsoft Excel dialoogvenster, klik dan op het OK knop zoals hieronder getoond screenshot.

4. Open de werkmap met ingeschakelde macro's die u zojuist hebt opgeslagen en druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

5. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek in het linkerdeelvenster en kopieer vervolgens de VBA-code naar het codevenster.

VBA-code 1: Wis de gespecificeerde celinhoud in de geopende werkmap

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

VBA-code 2: wis de gespecificeerde celinhoud bij het verlaten van de werkmap

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

Opmerking:: In de bovenstaande codes, test en A1: A11 is de werkbladnaam en het celbereik waarvan u de inhoud wilt wissen. Wijzig ze indien nodig.

6. druk de anders + Q toetsen om het Microsoft Visual Basic voor toepassingen venster.

Vanaf nu wordt bij het openen of sluiten van de werkmap de opgegeven celinhoud in een bepaald werkblad automatisch gewist.


Gerelateerde artikelen:


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (9)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Geachte heer / mevrouw, mijn blad is beveiligd en alleen de gespecificeerde cel (voor het wissen van gegevens) is niet beveiligd, maar wanneer ik de waarde in de gespecificeerde invoer en vervolgens het Excel-bestand opnieuw open, wordt de waarde gewist door VBA-code, maar de gespecificeerde cel is beveiligd, ik moet de beveiliging van de cel opheffen door de beveiliging van het blad op te heffen. Bewerk het bewerkbare bereik opnieuw en opnieuw, dus corrigeer alstublieft.
Bij voorbaat bedankt
Deze opmerking is gemaakt door de moderator op de site
Hallo Sanjay Sharma,
Sorry voor het ongemak. Pas de onderstaande VBA-codes toe en vergeet niet om de bladnaam en het bereik naar uw behoeften te vervangen. Bedankt voor je reactie.

VBA-code 1:
Private Sub Workbook_Open ()
Application.EnableEvents = False
Werkbladen ("Blad1"). Bereik ("A1:A11"). Waarde = ""
Application.EnableEvents = Waar
End Sub

VBA-code 2:
Private Sub Workbook_BeforeClose (Annuleren als Boolean)
Werkbladen ("Blad1"). Bereik ("A1:A11"). Waarde = ""
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, voor het bereik hoe moet ik de code invoeren als ik meerdere bereiken of cellen wil selecteren?
Deze opmerking is gemaakt door de moderator op de site
Kan iemand me helpen hoe cellen van het blad leeg te maken (alleen in een rij en niet het hele blad). Onderstaande code verwijdert de inhoud in alle rijen van het blad. Maar ik wil dat de inhoud alleen in rij wordt gewist9

Private Sub Workbook_Open ()

'Bijgewerkt door' Extendoffice 20190712

Application.EnableEvents = False

Werkbladen ("test"). Bereik ("A1: A11"). Waarde = ""

Application.EnableEvents = Waar

End Sub
Deze opmerking is gemaakt door de moderator op de site
Kan iemand me helpen hoe cellen van het blad leeg te maken (alleen in een rij en niet het hele blad). Onderstaande code verwijdert de inhoud in alle rijen van het blad. Maar ik wil dat de inhoud alleen in rij wordt gewist9



Private Sub Workbook_Open ()

'Bijgewerkt door' Extendoffice 20190712

Application.EnableEvents = False

Werkbladen ("test"). Bereik ("A1: A11"). Waarde = ""

Application.EnableEvents = Waar

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De bovenstaande VBA wist alleen de celwaarde van het bereik A1: A11. Als u alleen de waarden in rij 9 wilt wissen, kunt u A1:A11 vervangen door 9:9. Zie onderstaande code.

Private Sub Workbook_Open ()

'Bijgewerkt door' Extendoffice 20200522

Application.EnableEvents = False

Werkbladen ("test"). Bereik ("9:9"). Waarde = ""

Application.EnableEvents = Waar

End Sub
Deze opmerking is gemaakt door de moderator op de site
Beste vrienden, ik heb de voorgestelde code geprobeerd zonder effect op open>

Private Sub Workbook_Open ()


Application.EnableEvents = False

Werkbladen ("Clienti"). Bereik ("A9: K900"). Waarde = ""

Application.EnableEvents = Waar

End Sub


De macro werkt wel vanuit de werkmap, maar niet wanneer de werkmap wordt geopend.

Alle hulp zou zeer gewaardeerd worden!
Deze opmerking is gemaakt door de moderator op de site
Hallo TUDOSE GELU,
De code werkt in mijn geval goed.
Vergeet niet de code in de ThisWorkbook (code) venster en sla de werkmap op als een Excel-macro ingeschakeld Werkboek.
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
Deze opmerking is gemaakt door de moderator op de site
Bedankt Kristal! Het werkt.

G
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL