Как автоматически очистить ячейку


показать предыдущий урок

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

ПРИМЕЧАНИЕ:Обратите внимание на то, что что буква "ж" в слове "содержимое" подчеркнута - это нам подсказка на то, что данное действие можно произвести по горячей клавише, которой и является эта буква.


Sub Макрос2()
' Макрос2 Макрос
' Макрос записан 27.11.2005 (Александр)

Range("D16").Select
Selection.ClearContents
End Sub

Заменив значение D16 на D17 и запустив макрос на исполнение, обнаружим, что очищается ячейка D17. Даже не зная английского, приходим к выводу, что макрос


Range("D16").Select - выбирает ячейку, а строка Selection.ClearContents - ее очищает.

Для знающих английский даже и экспериментировать не прийдется: им и так все будет ясно.

Таким образом продвигаясь по вновь вставленной строке слева направо и проверяя ее содержимое на наличие знака равенства, будем знать, что нам делать. Если знак равенства стоит, значит, в этой ячейке формула, ее не будем трогать, а если нет, применим к ней команду - Selection.ClearContents . А вдруг понадобится не очистить, а обнулить, что ж, если нужно, то занесем 0. Вот код, который это сделает: ActiveCell.Value = 0 (дословно звучит так, значение активной ячейки приравнять нулю, ну или примерно так)


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

продолжение :

СПРАВОЧНИК ДЛЯ ВАС

Как запустить редактор VBA...

Не знаете, как создать форму...

Не знаете, как подключить макросы ...

Вы не знаете как открыть окно свойств...

Инструментальную панель как открыть...

Автоматическая запись макроса...

Создание своей кнопки и ее подключение к макросу на выполнение...

Как провести проверку на работоспособность созданой кнопки...

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

 
Рейтинг@Mail.ru
 главная с чего начать готовые программы задачи с решениями карта
Copyright © СОМИТ, А.Козлов, 2005 г