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

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

Обычно вы можете удерживать Ctrl нажмите клавишу, чтобы выбрать несколько конкретных ячеек, а затем очистите содержимое ячейки по мере необходимости. Если вам всегда нужно время от времени очищать эти конкретные ячейки, вы можете создать кнопку очистки, чтобы очистить их одним щелчком мыши. В этой статье я расскажу о том, как создать кнопку «Очистить все», чтобы очистить определенное содержимое ячеек.

Применить кнопку, чтобы очистить конкретное содержимое ячейки с помощью кода VBA


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

Сначала вы должны создать кнопку формы, а затем применить код, наконец, привязать код к кнопке формы. Пожалуйста, сделайте следующее:

1. Нажмите Вставить > Формы > Прямоугольники , чтобы выбрать форму прямоугольника, а затем перетащите мышь, чтобы нарисовать кнопку прямоугольника в любом месте листа, как вам нужно, см. снимок экрана:

кнопка doc очистить ячейки 1

2. Затем введите текст и отформатируйте кнопку формы, как вам нужно, см. Снимок экрана:

кнопка doc очистить ячейки 2

3. Затем вы должны вставить код VBA, удерживая ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: очистить содержимое определенных ячеек:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

Внимание: В приведенном выше коде: A2, A5 указать, что он очистит ячейки в диапазоне A2: A5, а не только две ячейки по отдельности, вы можете добавить несколько диапазонов, например Диапазон («B8», «B12»). Очистить сценарий внутри кода, чтобы очистить.

4. Затем сохраните и закройте окно кода, а затем свяжите код с кнопкой формы, щелкните кнопку правой кнопкой мыши и выберите Назначить макрос, В Назначить макрос диалогового окна, выберите Клирселлс кодовое имя из Имя макроса список и щелкните OK кнопку, чтобы выйти из этого диалогового окна. Смотрите скриншот:

кнопка doc очистить ячейки 3

5. А теперь, когда вы нажимаете Очистить все Кнопка, определенные вами ячейки очищаются сразу, см. снимок экрана:

кнопка doc очистить ячейки 4


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

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

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (65)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
ДАЙТЕ ФОРМУЛЫ ДЛЯ СОХРАНЕНИЯ И ОЧИСТКИ
Этот комментарий был сведен к минимуму модератором на сайте
Это также очищает любое форматирование ячейки. Как мне это сделать, если я хочу сохранить формулы и форматирование, например затенение или границы?
Этот комментарий был сведен к минимуму модератором на сайте
измените команду с «clear» на «clearcontents», чтобы просто стереть ввод текста
Этот комментарий был сведен к минимуму модератором на сайте
как насчет цвета?
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо вам большое за эту информацию!!

Еще один совет: я добавил текстовое поле. Чтобы объединить текстовое поле с фигурой, я выбрал текстовое поле, удерживая нажатой клавишу SHIFT, а затем выбрал фигуру. С этими обоими выбранными я щелкнул правой кнопкой мыши и выбрал ГРУППУ, затем ГРУППА снова.

Когда они сгруппированы, вы все равно можете изменить текст и другое форматирование.

Чтобы разгруппировать, просто щелкните правой кнопкой мыши новую кнопку и выберите СГРУППИРОВАТЬ > РАЗГРУППИРОВАТЬ.
Этот комментарий был сведен к минимуму модератором на сайте
Или, просто щелкнув фигуру правой кнопкой мыши, вы сможете изменить форматирование и текст.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за этот код. Как очистить содержимое ячейки или в идеале заполнить его значением 0 на защищенном листе с несколькими редактируемыми ячейками? Спасибо за помощь в др.
Этот комментарий был сведен к минимуму модератором на сайте
Вместо команды очистки пример строки сверху будет выглядеть так:
Диапазон ("A2: A5") = 0
Этот комментарий был сведен к минимуму модератором на сайте
Вы можете сделать эту работу на нескольких листах?
Этот комментарий был сведен к минимуму модератором на сайте
Это тоже закрытие границы, что я могу сделать?
Этот комментарий был сведен к минимуму модератором на сайте
измените clear на clearcontents, тогда форматирование останется прежним после очистки. исчезнет только текст, а не границы и окраска и т. д.
Этот комментарий был сведен к минимуму модератором на сайте
Привет. Каков наилучший способ создать отдельные кнопки для очистки содержимого каждой строки отдельно? например, сборщик данных доволен вводом каждой второй строки, но затем ему необходимо очистить строки 3, строки 6 и строки 7. Каков наиболее эффективный способ создания кнопок для очистки таким образом, т.е. только строки?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Поместите кнопку поверх строк 3,6,7. Назначьте тот же маркер, что и выше, для каждой кнопки, чтобы очистить только эту конкретную строку.
Этот комментарий был сведен к минимуму модератором на сайте
У меня есть книга с 11 вкладками, плюс одна в начале с пометкой «Начать здесь». Я хочу создать на этой вкладке одну кнопку, которая очистит до 9 отдельных ячеек от ее содержимого или введет в нее «0» на каждой из этих вкладок. Ячейки, которые я хочу очистить, не обязательно находятся в одном и том же месте на каждой странице. Возможно ли это и как это делается? Я предполагаю, что это можно сделать в VisualBasic, но не будет ли новичку проще создать его с помощью макросов?
Этот комментарий был сведен к минимуму модератором на сайте
У меня такой же вопрос
Этот комментарий был сведен к минимуму модератором на сайте
Используйте это как шаблон скрипта:
Sub Clearcells ()
'Обновить Extendoffice 20161008
Range("b11:d22").ClearContents 'эта строка относится к странице с кнопкой макроса.
Range("'Eval Score Entry'!D2:AA2").ClearContents 'эта строка относится к другой вкладке и диапазону.
End Sub


Этот комментарий был сведен к минимуму модератором на сайте
просто я сделал то же самое на рабочем листе, он работал, когда я защищаю лист, он показывает ошибку 1004, какие-либо предложения в этом случае?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Радхешьям,
Чтобы запустить приведенный выше код на листе защиты, примените приведенный ниже код: (Примечание: измените текст «пароль» на пароль, который защищает ваш лист)
Sub ClearcellsAsProtect()
Dim xWS как рабочий лист
Dim xPsw как строка
Установите xWS = ActiveSheet
xPsw = "пароль"
On Error Resume Next
xWS.Unprotect Password:=xPsw
Диапазон("A2", "A5").Очистить
Диапазон("C10", "D18").Очистить
Диапазон («B8», «B12»). Очистить
Пароль xWS.Protect:=xPsw
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,

Какой код использовать, если мне нужно очистить только одну ячейку вместо диапазона ячеек?
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Дженнифер,
Чтобы очистить только одну ячейку, вам просто нужно изменить код VBA следующим образом: (Примечание: измените ячейку A2 на ячейку, которую вы хотите очистить)

Sub Clearcells ()
Диапазон("A2").Очистить
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Есть ли способ сохранить список проверки данных в ячейках. Например, мой список включает «Да» или «Нет», и я хотел бы сбросить ячейки до пустых, но сохранить проверку данных в фоновом режиме.
Этот комментарий был сведен к минимуму модератором на сайте
вы можете использовать = очистить.


например.

Диапазон ("A2", "A5") = Очистить
Этот комментарий был сведен к минимуму модератором на сайте
Он не работает с объединенными ячейками. :(
Этот комментарий был сведен к минимуму модератором на сайте
заменить .Очистить на = ""
Этот комментарий был сведен к минимуму модератором на сайте
Для объединенных ячеек вы имеете в виду, например, форматирование Range("A25","B25","C25")="" ?
Этот комментарий был сведен к минимуму модератором на сайте
Попробуй это,

Например: объединенные ячейки — это столбцы A и B. Вы хотите очистить строки со 2 по 5. Это будет выглядеть так, как показано ниже.

Sub Clearcells ()
Диапазон("A2:B2", "A5:B5").ClearContents
End Sub
Этот комментарий был сведен к минимуму модератором на сайте
Как это сделать в Google Таблицах, пожалуйста?
Этот комментарий был сведен к минимуму модератором на сайте
Он очищает все, включая линии границ и формат ячеек, я хочу очистить только данные.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Карам,
Чтобы только очистить данные и сохранить форматирование ячейки, примените следующий код:

Sub Clearcells ()
Диапазон("A2", "A5").ClearContents
Диапазон("C10", "D18").ClearContents
Диапазон("B8", "B12").ClearContents
End Sub

Пожалуйста, попробуйте, надеюсь, это поможет вам!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, скайян.
Теперь он работает правильно
Этот комментарий был сведен к минимуму модератором на сайте
благодарит Вас
Этот комментарий был сведен к минимуму модератором на сайте
Это форматирование, похоже, не работает для меня, продолжает выдавать мне «ошибка компиляции: ожидается: конец оператора»
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо скайян. Это было именно то, что я искал, чтобы удалить содержимое, но НЕ форматирование. Спасибо еще раз.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо за это. Есть ли способ разместить более одной кнопки очистки на одном листе? Спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
это не работает
Этот комментарий был сведен к минимуму модератором на сайте
когда кнопка команды, которую я нажимаю, удаляет, она также удаляет непрерывные ячейки, и у меня уже есть формула в них, и я не хочу их удалять
Этот комментарий был сведен к минимуму модератором на сайте
Пожалуйста, дайте марку для очистки, если содержимое ячейки меньше 4 цифровых чисел. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Привет! У меня отлично работает с этим кодом, как вы упомянули:

Sub Clearcells ()
Диапазон("A2", "A5").ClearContents
Диапазон("C10", "D18").ClearContents
Диапазон("B8", "B12").ClearContents
End Sub

Однако я хочу сохранить число «0» или процентное значение «0» для определенных ячеек. Кроме того, сохраните предыдущий выбранный цвет. Причина этого в том, что я использую эти ячейки в качестве входных ячеек и хочу использовать кнопку для очистки некоторых входных ячеек.


Заранее спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
я пытаюсь очистить определенные ячейки на нескольких вкладках. Как я могу это сделать? Я создал контрольный список, содержащий около 100 вопросов на нескольких вкладках, и трудно вернуться назад и удалить отзывы из каждой ячейки.
Здесь еще нет комментариев
Загрузить ещё
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

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

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