показать
предыдущий урок
Афиша Интервью Новинки CD и DVD новости музыки Обзоры альбомов Статьи. / Принтер штрих-кода ARGOX для аптек, баров и магазинов.
Проверку
на достижение пустой ячейки можно провести следующим образом:
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
продолжение :
