Защита от ошибок при вводе данных

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

При работе с приложением установить защиту (проверку правильности вводимых данных) можно с помощью команды Проверка… меню Данные (диапазон ячеек, для которых устанавливаются правила ввода данных должен быть предварительно выделен). В диалоговосм окне команды на вкладке «Параметры» можно выбрать тип значений, которым могут содержаться в ячейках выделенного диапазона, и множество допустимых значений (например: диапазон – для чисел, даты, времени; длину – для строки и т.п.). На вкладке «Сообщение для ввода» можно ввести текст сообщения, которое будет служить подсказкой при переходе к вводу данных в ячейку выделенного диапазона. Реакцию на неправильный ввод можно определить с помощью вкладки «Сообщение об ошибке», на которой можно указать вид действия, являющегося реакцией Excel на неправильный ввод («Останов», «Предупреждение» или «Сообщение»), а также заголовок диалогового окна и текст выводимого в случае неправильного ввода ссобщения.

Ниже приведен текст макроса, задающего правила ввода данных в ячейки выделенного перед его выполнением диапазона:

Sub Проверка()

With Selection.Validation

.Delete

.Add Type:=xlValidateWholeNumber, _

AlertStyle:=xlValidAlertStop, _

Operator:=xlBetween, Formula1:="0", Formula2:="12"

.IgnoreBlank = False

.InCellDropdown = True

.InputTitle = "Количество отработанных часов:"

.ErrorTitle = "Ошибка ввода"

.InputMessage = "Допустимы целые числа от 0 до 12"

.ErrorMessage = _

"Данные введены неправвильно!" & Chr(10) _

& "Допустимы только целые числа от 0 до 12!"

.ShowInput = True

.ShowError = True