Оптимизируем код макроса

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


Скачать  исходник  41 кбПроверку на достижение пустой ячейки можно провести следующим образом:

If ActiveCell.Value <> Empty Then действие №1 Else действие №2

____В нашем случае мы поступим так, в самом начале подпрограммы поставим метку, пусть это будет слово Begin (Начало), а в самом конце подпрограммы вставим проверку. И если ячека будет не пуста, то отправимся снова к началу. В этом случае код, написанный на предыдущем уроке, можно будет переделать следующим образом:

Sub проверка()
Begin:
x = ActiveCell.Formula
If Left(x, 1) = "=" Then ActiveCell.Cells(, 2).Activate Else Selection.ClearContents: ActiveCell.Cells(, 2).Activate
If ActiveCell.Value <> Empty Then Goto Begin
End Sub

А можно и так: (вместо метки Begin просто вставляем число 1)

Sub проверка()
1: x = ActiveCell.Formula
If Left(x, 1) = "=" Then ActiveCell.Cells(, 2).Activate Else Selection.ClearContents: ActiveCell.Cells(, 2).Activate
If ActiveCell.Value <> Empty Then Goto 1

End Sub

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

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

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

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

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

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

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

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

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

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

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

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