Excel VBA ограничение на ввод

программирование excel VBA

Здравствуйте. Как сделать ограничение на ввод в ячейки значений? От 0 до 999999. Если число больше 999999 - ставить 0. Проверка данных не подходит мало того, что по условиям, так еще и при растяжке ячеек через маркер или просто копирования, значения идут 1000000 1000001 и так далее (только когда их пытаешься изменить - уже выбивает, а если не изменяешь - то ничего не выбивает).
Я вот что написал:

Private Sub Worksheet_Change(ByVal Target As Range)

iValue = Target
If iValue >= 1000000 Then
Target.Value = "0"
Exit Sub
End If
End Sub

Это хорошо, но все таки осталась проблема с заполнением ряда или копированием (только теперь вылетают ерроры макроса). Что делать?

Примечание:
Я не через макрос, как видишь, а через эвент на листе.
Data validation? Читать умеем?
"Проверка данных не подходит мало того, что по условиям, так еще и при растяжке ячеек через маркер или просто копирования, значения идут 1000000 1000001 и так далее (только когда их пытаешься изменить - уже выбивает, а если не изменяешь - то ничего не выбивает)."

Примечание:
Note: Data validation is not foolproof. It can be circumvented by pasting data into the cell, or by choosing Edit|Clear|ClearAll

Для любителей английским пошвырятся. Прям хочется заминусовать, я что же, зря расписывал ? :Х

Примечание:
Это тоже не работает, чуваки. Я ведь сказал, что проверка данных здесь не поможет!

Примечание:
http://www.salen.org.ua/?p=780
Лучший ответ - мой лично. Всем спасибо.

Примечание:
Zexo, вроде ясно выразился ;)
Закрываю вопрос)
Ответы:
Не надо макросов, data validation
а если так :
выделяем нужную ячейки(и)
меню
Данные => Проверка => Параметры
Тип данных: Действительное
Значение : Меньше
Максимум :100000
ОК
Автор, молодец, что разобрался. Действительно data validation (извини уж за английский термин, никогда не пользовался русским экселем) не работает при протяжке, очень забавный эффект, раньше не видел.


14 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.