Как очистить содержимое текстового поля при клике на него в Excel?
Обычно, чтобы очистить старое содержимое текстового поля (элемента управления ActiveX), нужно перейти в это поле, выделить весь текст и нажать Backspace или Delete. Хотите мгновенно очистить всё содержимое текстового поля? В этой статье описан простой метод на языке VBA, который позволяет сделать это всего одним двойным щелчком!
Очистка содержимого текстового поля при щелчке с помощью кода VBA
Очистка содержимого текстового поля при щелчке с помощью кода VBA
Приведённый ниже код VBA позволяет мгновенно очистить содержимое текстового поля при двойном щелчке по нему. Выполните следующие действия.
1. Если текстовое поле уже есть на листе, включите режим конструктора, нажав Разработчик > Режим конструктора. См. снимок экрана:
Либо вы можете вставить текстовое поле, нажав Разработчик > Вставить > Текстовое поле (элемент управления ActiveX). См. снимок экрана:
2. Щёлкните правой кнопкой мыши по текстовому полю и выберите в контекстном меню пункт Просмотреть код. См. снимок экрана:
3. В открывшемся окне Microsoft Visual Basic для приложений замените исходный код VBA в окне кода на приведённый ниже.
Код VBA: Очистка содержимого текстового поля при двойном щелчке по нему
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If Not iGblInhibitTextBoxEvents Then
TextBox1.Value = ""
End If
End SubПримечание: в коде TextBox1 — это имя текстового поля, содержимое которого будет очищаться. Замените его на собственное имя.
4. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
5. Отключите режим конструктора.
Теперь при двойном щелчке по текстовому полю его содержимое будет мгновенно очищаться.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
См. также:
- Как включить автоматическое выделение всего текста в текстовом поле при его выборе в Excel?
- Как включить автозаполнение текстового поля при вводе данных в Excel?
- Как объединить текст из нескольких ячеек в одно текстовое поле в Excel?
- Как отключить редактирование в текстовом поле, чтобы запретить пользователю ввод данных в Excel?
- Как отформатировать текстовое поле как процент в Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек