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

Как очистить указанное содержимое ячейки при открытии и выходе из книги Excel?

В этой статье говорится об очистке указанного содержимого ячейки при открытии или закрытии книги Excel.

Очистить указанное содержимое ячейки при открытии книги и выходе


Очистить указанное содержимое ячейки при открытии книги и выходе

Пожалуйста, сделайте следующее, чтобы очистить указанное содержимое ячейки при открытии и выходе из книги.

Во-первых, вам необходимо сохранить книгу, которую необходимо очистить от содержимого указанной ячейки при открытии или выходе в качестве книги с поддержкой макросов Excel.

1. Щелкните Файл > Сохранить как > Приложения. Смотрите скриншот:

2. в Сохранить как диалоговом окне выберите папку для сохранения книги, введите новое имя в Имя файла коробка, как вам нужно, выберите Excel Macro-Enabled Workbook из Сава как тип раскрывающийся список, а затем щелкните Сохраните кнопку.

3. Во всплывающем Microsoft Excel диалоговое окно, щелкните OK как показано на скриншоте ниже.

4. Откройте книгу с поддержкой макросов, которую вы только что сохранили, нажмите кнопку другой + 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

Внимание: В приведенных выше кодах test и A1: A11 - это имя рабочего листа и диапазон ячеек, из которого вы очистите содержимое. Пожалуйста, измените их по своему усмотрению.

6. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

Отныне при открытии или закрытии книги содержимое указанной ячейки на определенном листе будет очищаться автоматически.


Статьи по теме:


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (9)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Уважаемый сэр/мадам, мой лист защищен, и только указанная ячейка (для очистки данных) не защищена, но когда я ввожу значение в указанное значение, а затем повторно открываю файл excel, значение очищается кодом VBA, но указанная ячейка защищено, мне нужно снять защиту ячейки, сняв защиту листа, снова и снова редактируйте редактируемый диапазон, поэтому, пожалуйста, исправьте.
заранее спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет Санджай Шарма,
Извините за неудобства. Примените приведенные ниже коды VBA и не забудьте заменить имя листа и диапазон в соответствии с вашими потребностями. Спасибо за ваш комментарий.

Код VBA 1:
Private Sub Workbook_Open ()
Application.EnableEvents = False
Рабочие листы ("Лист1"). Диапазон ("A1: A11"). Значение = ""
Application.EnableEvents = True
End Sub

Код VBA 2:
Private Sub Workbook_BeforeClose (Отменить как логическое)
Рабочие листы ("Лист1"). Диапазон ("A1: A11"). Значение = ""
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, для диапазона, как мне ввести код, если я хочу выбрать несколько диапазонов или ячеек?
Этот комментарий был сведен к минимуму модератором на сайте
Может кто-нибудь помочь мне, как очистить ячейки листа (только в строке, а не весь лист). Ниже код удаляет содержимое во всех строках листа. Но я хочу, чтобы содержимое очищалось только в строке9

Private Sub Workbook_Open ()

'Обновлено Extendoffice 20190712

Application.EnableEvents = False

Рабочие листы ("тест"). Диапазон ("A1: A11"). Значение = ""

Application.EnableEvents = True

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Может кто-нибудь помочь мне, как очистить ячейки листа (только в строке, а не весь лист). Ниже код удаляет содержимое во всех строках листа. Но я хочу, чтобы содержимое очищалось только в строке9



Private Sub Workbook_Open ()

'Обновлено Extendoffice 20190712

Application.EnableEvents = False

Рабочие листы ("тест"). Диапазон ("A1: A11"). Значение = ""

Application.EnableEvents = True

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Приведенный выше VBA очищает только значение ячейки диапазона A1: A11. Если вы хотите очистить только значения в строке 9, вы можете заменить A1:A11 на 9:9. См. приведенный ниже код.

Private Sub Workbook_Open ()

'Обновлено Extendoffice 20200522

Application.EnableEvents = False

Рабочие листы ("тест"). Диапазон ("9:9"). Значение = ""

Application.EnableEvents = True

End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Дорогие друзья, я попробовал предложенный код, но это не повлияло на open>

Private Sub Workbook_Open ()


Application.EnableEvents = False

Рабочие листы ("Клиенты"). Диапазон ("A9: K900"). Значение = ""

Application.EnableEvents = True

End Sub


Макрос работает внутри книги, но не при ее открытии.

Любая помощь будет принята с благодарностью!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, ТУДОСЕ ГЕЛУ,
Код работает хорошо в моем случае.
Не забудьте вставить код в ThisWorkbook (Код) окно и сохраните книгу как 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
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо Кристалл! Оно работает.

G
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL