Запретить ввод в ячейку (знаков:=,-,. слова нет)
Mark1976
Дата: Суббота, 03.09.2016, 14:33 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Приветствую всех. Отправляю в АУ файлик с мониторингом. Каждый раз внизу указываю, что запрещено вводить числа в таком виде как: 20= или 20-00 или 20.00, а также если цены нет слова НЕТ не писать. Но все равно они умудряются это делать. Данные я систематизирую в другую сводную таблицу с формулами. И если там стоят = или - или точка, то формулы не считаются. Может кто знает как запретить ввод таких значений. Уже устал коллегам про это говорить. Заранее спасибо.
Приветствую всех. Отправляю в АУ файлик с мониторингом. Каждый раз внизу указываю, что запрещено вводить числа в таком виде как: 20= или 20-00 или 20.00, а также если цены нет слова НЕТ не писать. Но все равно они умудряются это делать. Данные я систематизирую в другую сводную таблицу с формулами. И если там стоят = или - или точка, то формулы не считаются. Может кто знает как запретить ввод таких значений. Уже устал коллегам про это говорить. Заранее спасибо. Mark1976 К сообщению приложен файл:
__.xls
(32.5 Kb)
Ответить
Сообщение Приветствую всех. Отправляю в АУ файлик с мониторингом. Каждый раз внизу указываю, что запрещено вводить числа в таком виде как: 20= или 20-00 или 20.00, а также если цены нет слова НЕТ не писать. Но все равно они умудряются это делать. Данные я систематизирую в другую сводную таблицу с формулами. И если там стоят = или - или точка, то формулы не считаются. Может кто знает как запретить ввод таких значений. Уже устал коллегам про это говорить. Заранее спасибо. Автор - Mark1976 03.09.2016 в 14:33
китин
Дата: Суббота, 03.09.2016, 15:04 |
Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7035
Репутация:
1079
±
Замечаний:
0% ±
не знаю так надо или нет? в файле поиграетесь с колонкой F. Если чё в проверке данных формула
=ИЛИ(ЕЧИСЛО(ПОИСК(",";F3 ));ЕПУСТО(F3 ))
не знаю так надо или нет? в файле поиграетесь с колонкой F. Если чё в проверке данных формула
=ИЛИ(ЕЧИСЛО(ПОИСК(",";F3 ));ЕПУСТО(F3 ))
китин Не судите очень строго:я пытаюсь научиться
Ответить
Сообщение не знаю так надо или нет? в файле поиграетесь с колонкой F. Если чё в проверке данных формула
=ИЛИ(ЕЧИСЛО(ПОИСК(",";F3 ));ЕПУСТО(F3 ))
Автор - китин 03.09.2016 в 15:04
Udik
Дата: Суббота, 03.09.2016, 15:46 |
Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
можно через макрос в модуле листа
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Then "Нельзя вводить -=." , 48 , "Запрещённый символ" End If End Sub
можно через макрос в модуле листа
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Then "Нельзя вводить -=." , 48 , "Запрещённый символ" End If End Sub
Udik К сообщению приложен файл:
0t.xls
(46.5 Kb)
вот вам барабан
Сообщение отредактировал Udik - Суббота, 03.09.2016, 15:58
Ответить
Сообщение можно через макрос в модуле листа
Private Sub Worksheet_Change(ByVal Target As Range )Dim rng1 As RangeDim str1 As Stringstr1 = "*[-=.]*"Set rng1 = Range("d2:f16")If Target.Cells.Count > 1 Then Exit SubIf Intersect(Target , rng1 ) Is Nothing Then Exit SubIf Target Like str1 ThenApplication.UndoMsgBox "Нельзя вводить -=.", 48, "Запрещённый символ"End IfEnd Sub
Автор - Udik 03.09.2016 в 15:46
Mark1976
Дата: Суббота, 03.09.2016, 15:55 |
Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, привет. У меня не срабатывает. Ввожу 25= или 25.00 ничего не происходит.
Udik, привет. У меня не срабатывает. Ввожу 25= или 25.00 ничего не происходит. Mark1976
Ответить
Сообщение Udik, привет. У меня не срабатывает. Ввожу 25= или 25.00 ничего не происходит. Автор - Mark1976 03.09.2016 в 15:55
Mark1976
Дата: Суббота, 03.09.2016, 15:58 |
Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
китин, спасибо. ввожу 25,00 выходит ошибка, ввожу 25= выходит ошибка, ввожу 25 выходит ошибка. на любое значение ошибка.
китин, спасибо. ввожу 25,00 выходит ошибка, ввожу 25= выходит ошибка, ввожу 25 выходит ошибка. на любое значение ошибка. Mark1976
Ответить
Сообщение китин, спасибо. ввожу 25,00 выходит ошибка, ввожу 25= выходит ошибка, ввожу 25 выходит ошибка. на любое значение ошибка. Автор - Mark1976 03.09.2016 в 15:58
Udik
Дата: Суббота, 03.09.2016, 16:00 |
Сообщение № 6
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Ввожу 25= или 25.00 ничего не происходит.
Ввожу 25= или 25.00 ничего не происходит.
Udik вот вам барабан
Сообщение отредактировал Udik - Суббота, 03.09.2016, 16:01
Ответить
Сообщение Ввожу 25= или 25.00 ничего не происходит.
Автор - Udik 03.09.2016 в 16:00
Mark1976
Дата: Суббота, 03.09.2016, 16:01 |
Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, макрос из предыдущего поста?
Udik, макрос из предыдущего поста? Mark1976 Сообщение отредактировал Mark1976 - Суббота, 03.09.2016, 16:03
Ответить
Сообщение Udik, макрос из предыдущего поста? Автор - Mark1976 03.09.2016 в 16:01
Udik
Дата: Суббота, 03.09.2016, 16:02 |
Сообщение № 8
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
вот вам барабан
Ответить
Сообщение Автор - Udik 03.09.2016 в 16:02
Mark1976
Дата: Суббота, 03.09.2016, 16:06 |
Сообщение № 9
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, я ошибся. Я про макрос хотел сказал. Скачал новый файл, все работает. Спасибо.
Udik, я ошибся. Я про макрос хотел сказал. Скачал новый файл, все работает. Спасибо. Mark1976
Ответить
Сообщение Udik, я ошибся. Я про макрос хотел сказал. Скачал новый файл, все работает. Спасибо. Автор - Mark1976 03.09.2016 в 16:06
Mark1976
Дата: Суббота, 03.09.2016, 16:09 |
Сообщение № 10
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, спасибо. Главное, чтобы опен офис понял этот макрос.
Udik, спасибо. Главное, чтобы опен офис понял этот макрос. Mark1976
Ответить
Сообщение Udik, спасибо. Главное, чтобы опен офис понял этот макрос. Автор - Mark1976 03.09.2016 в 16:09
Mark1976
Дата: Суббота, 03.09.2016, 16:12 |
Сообщение № 11
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, есть прикол. ввожу в колонку E9 12-20 получил 44 166,00. Что это может быть?
Udik, есть прикол. ввожу в колонку E9 12-20 получил 44 166,00. Что это может быть? Mark1976
Ответить
Сообщение Udik, есть прикол. ввожу в колонку E9 12-20 получил 44 166,00. Что это может быть? Автор - Mark1976 03.09.2016 в 16:12
Udik
Дата: Суббота, 03.09.2016, 16:26 |
Сообщение № 12
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
вожу в колонку E9 12-20 получил 44 166,00.
вожу в колонку E9 12-20 получил 44 166,00.
Udik вот вам барабан
Ответить
Сообщение вожу в колонку E9 12-20 получил 44 166,00.
Автор - Udik 03.09.2016 в 16:26
Mark1976
Дата: Суббота, 03.09.2016, 16:31 |
Сообщение № 13
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, СПАСИБО!!!
Ответить
Сообщение Udik, СПАСИБО!!! Автор - Mark1976 03.09.2016 в 16:31
Mark1976
Дата: Суббота, 03.09.2016, 16:38 |
Сообщение № 14
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Добавил НЕТ.
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.нет]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Then "Нельзя вводить -=.нет" , 48 , "Запрещённый символ" End If End Sub
Добавил НЕТ.
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.нет]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Then "Нельзя вводить -=.нет" , 48 , "Запрещённый символ" End If End Sub
Mark1976
Ответить
Сообщение Добавил НЕТ.
Private Sub Worksheet_Change(ByVal Target As Range )Dim rng1 As RangeDim str1 As Stringstr1 = "*[-=.нет]*"Set rng1 = Range("d2:f16")If Target.Cells.Count > 1 Then Exit SubIf Intersect(Target , rng1 ) Is Nothing Then Exit SubIf Target Like str1 ThenApplication.UndoMsgBox "Нельзя вводить -=.нет", 48, "Запрещённый символ"End IfEnd Sub
Автор - Mark1976 03.09.2016 в 16:38
Udik
Дата: Суббота, 03.09.2016, 16:49 |
Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1588
Репутация:
192
±
Замечаний:
0% ±
Для нет надо по-другому, иначе будет реагировать на любой из символов етн
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Or UCase (Target) Like "НЕТ" Then "Нельзя вводить -=. слово НЕТ" , 48 , "Запрещённый символ" End If End Sub
Для нет надо по-другому, иначе будет реагировать на любой из символов етн
Private Sub Worksheet_Change(ByVal Target As Range)Dim rng1 As RangeDim str1 As String "*[-=.]*" Set rng1 = Range("d2:f16" )If Target.Cells.Count > 1 Then Exit Sub If Intersect(Target, rng1) Is Nothing Then Exit Sub If Target Like str1 Or UCase (Target) Like "НЕТ" Then "Нельзя вводить -=. слово НЕТ" , 48 , "Запрещённый символ" End If End Sub
Udik вот вам барабан
Ответить
Сообщение Для нет надо по-другому, иначе будет реагировать на любой из символов етн
Private Sub Worksheet_Change(ByVal Target As Range )Dim rng1 As RangeDim str1 As Stringstr1 = "*[-=.]*"Set rng1 = Range("d2:f16")If Target.Cells.Count > 1 Then Exit SubIf Intersect(Target , rng1 ) Is Nothing Then Exit SubIf Target Like str1 Or UCase(Target ) Like "НЕТ" ThenApplication.UndoMsgBox "Нельзя вводить -=. слово НЕТ", 48, "Запрещённый символ"End IfEnd Sub
Автор - Udik 03.09.2016 в 16:49
Mark1976
Дата: Суббота, 03.09.2016, 17:00 |
Сообщение № 16
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Udik, спасибо. Напишу про реакцию коллег...:)
Udik, спасибо. Напишу про реакцию коллег...:) Mark1976
Ответить
Сообщение Udik, спасибо. Напишу про реакцию коллег...:) Автор - Mark1976 03.09.2016 в 17:00
_Boroda_
Дата: Суббота, 03.09.2016, 17:55 |
Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 16913
Репутация:
6617
±
Замечаний:
±
Николай, если Ваши коллеги из АУ такие тупорылые, то макрос точно не поможет - они просто не будут нажимать "Разрешить макросы" и всё. Можно, конечно, сделать отдельный лист с большими буквами "Разреши макросы"; при открытии файла будет виден только он, а после разрешения макросов этот лист скрывается, а лист с таблицей становится доступным. Но зачем?
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D2 ;"=";",");"-";",");".";",")
Николай, если Ваши коллеги из АУ такие тупорылые, то макрос точно не поможет - они просто не будут нажимать "Разрешить макросы" и всё. Можно, конечно, сделать отдельный лист с большими буквами "Разреши макросы"; при открытии файла будет виден только он, а после разрешения макросов этот лист скрывается, а лист с таблицей становится доступным. Но зачем?
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D2 ;"=";",");"-";",");".";",")
_Boroda_ К сообщению приложен файл:
87665.xls
(39.0 Kb)
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Николай, если Ваши коллеги из АУ такие тупорылые, то макрос точно не поможет - они просто не будут нажимать "Разрешить макросы" и всё. Можно, конечно, сделать отдельный лист с большими буквами "Разреши макросы"; при открытии файла будет виден только он, а после разрешения макросов этот лист скрывается, а лист с таблицей становится доступным. Но зачем?
=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(D2 ;"=";",");"-";",");".";",")
Автор - _Boroda_ 03.09.2016 в 17:55
Mark1976
Дата: Суббота, 03.09.2016, 18:11 |
Сообщение № 18
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
_Boroda_, спасибо. Вот, что получается. Ввожу 5=50, ругается, потом ставится число 43952. Ввожу 5-50, вводится май.50. Формат ячеек общий.
_Boroda_, спасибо. Вот, что получается. Ввожу 5=50, ругается, потом ставится число 43952. Ввожу 5-50, вводится май.50. Формат ячеек общий. Mark1976
Ответить
Сообщение _Boroda_, спасибо. Вот, что получается. Ввожу 5=50, ругается, потом ставится число 43952. Ввожу 5-50, вводится май.50. Формат ячеек общий. Автор - Mark1976 03.09.2016 в 18:11
Mark1976
Дата: Суббота, 03.09.2016, 18:14 |
Сообщение № 19
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
_Boroda_, сорь за глупый вопрос, но если у меня диапазон расширится как тогда быть? Формула прописывается в каждую ячейку? Я просто в D2 не вижу формулы.
_Boroda_, сорь за глупый вопрос, но если у меня диапазон расширится как тогда быть? Формула прописывается в каждую ячейку? Я просто в D2 не вижу формулы. Mark1976
Ответить
Сообщение _Boroda_, сорь за глупый вопрос, но если у меня диапазон расширится как тогда быть? Формула прописывается в каждую ячейку? Я просто в D2 не вижу формулы. Автор - Mark1976 03.09.2016 в 18:14
Mark1976
Дата: Суббота, 03.09.2016, 18:16 |
Сообщение № 20
Группа: Проверенные
Ранг: Ветеран
Сообщений: 815
Репутация:
3
±
Замечаний:
0% ±
Николай, если Ваши коллеги из АУ такие тупорылые
Николай, если Ваши коллеги из АУ такие тупорылые
Mark1976
Ответить
Сообщение Николай, если Ваши коллеги из АУ такие тупорылые
Автор - Mark1976 03.09.2016 в 18:16 
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
.
