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

Kako počistiti določeno vsebino celice pri odpiranju in izhodu v Excelovem delovnem zvezku?

Ta članek govori o čiščenju določene vsebine celice pri odpiranju ali zapiranju Excelovega delovnega zvezka.

Počistite določeno vsebino celice v delovnem zvezku, odprto in izhodno


Počistite določeno vsebino celice v delovnem zvezku, odprto in izhodno

Naredite naslednje, da počistite določeno vsebino celice v delovnem zvezku, ki se odpre in izstopi.

Najprej morate shraniti delovni zvezek, ki ga želite počistiti, če želite določeno vsebino celice odpreti ali zapreti kot delovni zvezek z omogočeno makro Excel.

1. Prosim kliknite file > Shrani kot > Brskanje. Oglejte si posnetek zaslona:

2. V Ljubljani Shrani kot v pogovornem oknu izberite mapo, v katero želite shraniti delovni zvezek, vnesite novo ime v Ime datoteke izberite, če želite Excelov delovni zvezek z omogočeno makro Iz Sava kot tip in nato kliknite spustni seznam Shrani gumb.

3. V pojavnem oknu Microsoft Excel pogovorno okno, kliknite OK , kot je prikazano spodaj.

4. Odprite Delovni zvezek z omogočenimi makronaredbami, ki ste ga pravkar shranili, pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

5. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite Ta delovni zvezek v levo podokno in nato pod kodo VBA kopirajte v okno Code.

Koda VBA 1: Počistite odprto vsebino celice v delovnem zvezku

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

Koda VBA 2: ob izhodu iz delovne zvezke počistite določeno vsebino celice

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

Opombe: V zgornjih kodah preizkusite in A1: A11 je ime delovnega lista in obseg celic, iz katerih boste počistili vsebino. Prosimo, spremenite jih po potrebi.

6. Pritisnite druga + Q tipke za izhod iz Microsoft Visual Basic za aplikacije okno.

Od zdaj naprej se bo pri odpiranju ali zapiranju delovnega zvezka določena vsebina celic na določenem delovnem listu samodejno počistila.


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (9)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani, moj list je zaščiten in samo določena celica (za brisanje podatkov) ni zaščitena, vendar ko vnesem vrednost v določeno in nato ponovno odprem excel datoteko, se vrednost počisti s kodo VBA, vendar je navedena celica zaščiteno, moram odstraniti zaščito celice tako, da odstranim zaščito lista, znova in znova uredite obseg, ki ga je mogoče urejati, zato prosim popravite.
Hvala vnaprej
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Sanjay Sharma,
Oprostite za nevšečnosti. Uporabite spodnje kode VBA in ne pozabite zamenjati imena lista in obsega glede na svoje potrebe. Hvala za vaš komentar.

VBA koda 1:
Zasebni delovni zvezek_Open()
Application.EnableEvents = False
Delovni listi("List1").Razpon("A1:A11").Vrednost = ""
Aplikacija EnableEvents = True
End Sub

VBA koda 2:
Private Sub Workbook_BeforeClose(Prekliči kot Boolean)
Delovni listi("List1").Razpon("A1:A11").Vrednost = ""
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, kako naj vnesem kodo za obseg, če želim izbrati več obsegov ali celic?
Ta komentar je moderator na spletnem mestu minimiziral
Ali mi lahko kdo pomaga, kako izprazniti celice lista (samo v vrsti in ne celotnega lista). Spodnja koda odstrani vsebino v vseh vrsticah lista. Vendar želim, da se vsebina počisti samo v vrstici 9

Zasebni delovni zvezek_Open()

'Posodobil Extendoffice 20190712

Application.EnableEvents = False

Delovni listi("test").Razpon("A1:A11").Vrednost = ""

Aplikacija EnableEvents = True

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Ali mi lahko kdo pomaga, kako izprazniti celice lista (samo v vrsti in ne celotnega lista). Spodnja koda odstrani vsebino v vseh vrsticah lista. Vendar želim, da se vsebina počisti samo v vrstici 9



Zasebni delovni zvezek_Open()

'Posodobil Extendoffice 20190712

Application.EnableEvents = False

Delovni listi("test").Razpon("A1:A11").Vrednost = ""

Aplikacija EnableEvents = True

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Zgornji VBA počisti samo vrednost celice obsega A1:A11. Če želite počistiti samo vrednosti v 9. vrstici, lahko A1:A11 zamenjate z 9:9. Oglejte si spodnjo kodo.

Zasebni delovni zvezek_Open()

'Posodobil Extendoffice 20200522

Application.EnableEvents = False

Delovni listi("test").Razpon("9:9").Vrednost = ""

Aplikacija EnableEvents = True

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Dragi prijatelji, poskusil sem predlagano kodo brez učinka na open>

Zasebni delovni zvezek_Open()


Application.EnableEvents = False

Delovni listi("Clienti").Range("A9:K900").Vrednost = ""

Aplikacija EnableEvents = True

End Sub


Makro sicer deluje znotraj delovnega zvezka, vendar ne, ko se delovni zvezek odpre.

Vsaka pomoč bi bila zelo hvaležna!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo TUDOSE GELU,
Koda v mojem primeru deluje dobro.
Ne pozabite vnesti kode v ThisWorkbook (koda) in shranite delovni zvezek kot Omogočen makro za Excel Delovni zvezek.
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
Ta komentar je moderator na spletnem mestu minimiziral
Hvala Crystal! Deluje.

G
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL