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

Jak wyczyścić określoną zawartość komórki podczas otwierania i zamykania w skoroszycie programu Excel?

W tym artykule jest mowa o czyszczeniu określonej zawartości komórki podczas otwierania lub zamykania skoroszytu programu Excel.

Wyczyść określoną zawartość komórki przy otwieraniu i zamykaniu skoroszytu


Wyczyść określoną zawartość komórki przy otwieraniu i zamykaniu skoroszytu

Wykonaj następujące czynności, aby wyczyścić określoną zawartość komórki przy otwieraniu i zamykaniu skoroszytu.

Po pierwsze, musisz zapisać skoroszyt, który musisz wyczyścić określoną zawartość komórki podczas otwierania lub zamykania, jako skoroszyt programu Excel z włączoną obsługą makr.

1. Proszę kliknąć filet > Zapisz jako > Przeglądaj. Zobacz zrzut ekranu:

2. w Zapisz jako W oknie dialogowym wybierz folder, w którym chcesz zapisać skoroszyt, wprowadź nową nazwę do pliku Nazwa pliku w razie potrzeby wybierz Skoroszyt Excel z włączoną obsługą makr z Sawa jako typ listę rozwijaną, a następnie kliknij plik Zapisz przycisk.

3. W wyskakującym okienku Microsoft Excel w oknie dialogowym, kliknij OK przycisk, jak pokazano na poniższym zrzucie ekranu.

4. Otwórz zeszyt z włączoną obsługą makr, który właśnie zapisałeś, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

5. w Microsoft Visual Basic for Applications kliknij dwukrotnie Ten zeszyt w lewym okienku, a następnie skopiuj poniższy kod VBA do okna Code.

Kod VBA 1: Wyczyść określoną zawartość komórki w otwartym skoroszycie

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

Kod VBA 2: Wyczyść określoną zawartość komórki przy wyjściu ze skoroszytu

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

Uwagi: W powyższych kodach test, a A1: A11 to nazwa arkusza i zakres komórek, z których wyczyścisz zawartość. Zmień je według potrzeb.

6. wciśnij inny + Q klawisze, aby wyjść z Microsoft Visual Basic for Applications okno.

Odtąd podczas otwierania lub zamykania skoroszytu określona zawartość komórki w określonym arkuszu zostanie automatycznie wyczyszczona.


Podobne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (9)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Szanowni Państwo, mój arkusz jest chroniony i tylko określona komórka (do czyszczenia danych) nie jest chroniona, ale kiedy wprowadzę wartość w określonym, a następnie ponownie otworzę plik Excela, wartość zostanie wyczyszczona przez kod VBA, ale określona komórka jest chroniony, muszę odbezpieczyć komórkę, odbezpieczając arkusz, edytuj ponownie zakres edytowalny, więc proszę to naprawić.
Z góry dziękuję
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Sanjay Sharma,
Przepraszam za niedogodności. Zastosuj poniższe kody VBA i pamiętaj, aby zastąpić nazwę arkusza i zakres zgodnie ze swoimi potrzebami. Dziękuję za Twój komentarz.

Kod VBA 1:
Private Sub Workbook_Open ()
Application.EnableEvents = Fałsz
Arkusze("Arkusz1").Range("A1:A11").Value = ""
Application.EnableEvents = True
End Sub

Kod VBA 2:
Prywatny skoroszyt pomocniczy_BeforeClose (Anuluj jako Boolean)
Arkusze("Arkusz1").Range("A1:A11").Value = ""
End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Witam, dla zakresu, jak mam wpisać kod, jeśli chcę wybrać wiele zakresów lub komórek?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy ktoś może mi pomóc, jak wymazać komórki arkusza (tylko w rzędzie, a nie w całym arkuszu). Poniższy kod usuwa zawartość we wszystkich wierszach arkusza. Ale chcę, aby zawartość została wyczyszczona tylko w wierszu 9

Private Sub Workbook_Open ()

'Aktualizowany przez Extendoffice 20190712

Application.EnableEvents = Fałsz

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

Application.EnableEvents = True

End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy ktoś może mi pomóc, jak wymazać komórki arkusza (tylko w rzędzie, a nie w całym arkuszu). Poniższy kod usuwa zawartość we wszystkich wierszach arkusza. Ale chcę, aby zawartość została wyczyszczona tylko w wierszu 9



Private Sub Workbook_Open ()

'Aktualizowany przez Extendoffice 20190712

Application.EnableEvents = Fałsz

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

Application.EnableEvents = True

End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Powyższy VBA usuwa tylko wartość komórki z zakresu A1: A11. Jeśli chcesz wyczyścić tylko wartości z wiersza 9, możesz zamienić A1:A11 na 9:9. Zobacz poniższy kod.

Private Sub Workbook_Open ()

'Aktualizowany przez Extendoffice 20200522

Application.EnableEvents = Fałsz

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

Application.EnableEvents = True

End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Drodzy Przyjaciele, wypróbowałem sugerowany kod bez wpływu na open>

Private Sub Workbook_Open ()


Application.EnableEvents = Fałsz

Arkusze("Klient").Range("A9:K900").Value = ""

Application.EnableEvents = True

End Sub


Makro działa z poziomu skoroszytu, ale nie po otwarciu skoroszytu.

Każda pomoc będzie bardzo mile widziana!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć TUDOSE GELU,
Kod działa dobrze w moim przypadku.
Nie zapomnij umieścić kodu w ThisWorkbook (kod) okno i zapisz skoroszyt jako Excel z obsługą makr Zeszyt ćwiczeń.
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
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję Kryształowi! To działa.

G
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL