Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Ограничение символов вводимых в ячейку
 
Здравствуйте. Подскажите как можно реализовать такую задумку:
Пример: Есть ячейка в которую вносим перечень статей "105-2 / 137-3", нужно что бы пользователь мог вносить в ячейку только цифры и применялись только два символа "-" и "/". Другие символы и буквы он не смог туда внести.

Возможно ли такое вообще?
Изменено: Gremlen - 14 Апр 2015 11:47:02
 
Данные по шаблону? Если нет, покажите в файле примеры данных.
Можно использовать инструмент Проверка данных (Данные-Проверка_данных)
 
Вот примерное сожержание
 
попробуйте с помощью проверки данных ячейка контролируется на ввод цифр - и / в каком порядке с и пробелы не контролируются
Лень двигатель прогресса, доказано!!!
 
кстати еще можете сходить сюда  
Лень двигатель прогресса, доказано!!!
 
Сергей, да то что нужно спасибо. А можете объяснить как эта штука работает и мне нужно туда будет добавить еще что бы можно было вводить слово "смерть" и "б/п".
 
Цитата
Gremlen написал: вводить слово "смерть"
Страшно советовать даже вы тама не звезду смерти разрабатываете
Лень двигатель прогресса, доказано!!!
 
в проверке данных находится формула, в которой мы с начало заменяем "-" потом заменяем "/", затем убираем лишние пробелы и по итогу этих действий у нас в ячейке должны остаться только циферы которые и проверяем функцией ЕЧИСЛО которая дает нам результат проверки ИСТИНА если такового результата нет значит в ячейке присутствуют иные знаки и символы
Код
=ЕЧИСЛО(--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"-";"");"/";"")))
Лень двигатель прогресса, доказано!!!
 
Нет, к сожалению не звезду смерти, а всего лишь список уголовных дел.  
 
по поводу смерти и б/п в формулу добавить еще две функции Подставить попробуйте не проверял не на чем
Код
=ЕЧИСЛО(--СЖПРОБЕЛЫ(подставить(подставить(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"б/п";"");"смерть";"");"-";"");"/";"")))
Лень двигатель прогресса, доказано!!!
 
Спасибо огромное Сергей. Все разобрался, все работает.  
 
На основе предложенного кода у меня вот так получилось, но почему-то глючит с символами подстановки
Код
Function Validate(txt As String, mask As String, Optional CaseSensitive As Boolean = True) As Boolean
Dim S As String
Validate = True
    If Not CaseSensitive Then
        txt = UCase(txt)
        mask = UCase(mask)
    End If
For i = 1 To Len(txt)
S = Mid(txt, i, 1)

If Not S Like mask <> 0 Then
Validate = False
Exit Function
End If
Next i
End Function

Страницы: 1
Читают тему (гостей: 1)