Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Ограничение символов вводимых в ячейку
 
#1
14.04.2015 11:46:18
Здравствуйте. Подскажите как можно реализовать такую задумку:
Пример: Есть ячейка в которую вносим перечень статей "105-2 / 137-3", нужно что бы пользователь мог вносить в ячейку только цифры и применялись только два символа "-" и "/". Другие символы и буквы он не смог туда внести.

Возможно ли такое вообще?
Изменено: Gremlen - 14.04.2015 11:47:02
 
 
 
#2
14.04.2015 11:48:38
Данные по шаблону? Если нет, покажите в файле примеры данных.
Можно использовать инструмент Проверка данных (Данные-Проверка_данных)
 
 
 
#3
14.04.2015 11:57:02
Вот примерное сожержание
 
 
 
#4
14.04.2015 12:12:07
попробуйте с помощью проверки данных ячейка контролируется на ввод цифр - и / в каком порядке с и пробелы не контролируются
Лень двигатель прогресса, доказано!!!
 
 
 
#5
14.04.2015 12:23:44
кстати еще можете сходить сюда  
Лень двигатель прогресса, доказано!!!
 
 
 
#6
14.04.2015 12:29:45
Сергей, да то что нужно спасибо. А можете объяснить как эта штука работает и мне нужно туда будет добавить еще что бы можно было вводить слово "смерть" и "б/п".
 
 
 
#7
14.04.2015 12:31:53
Цитата
Gremlen написал: вводить слово "смерть"
Страшно советовать даже вы тама не звезду смерти разрабатываете
Лень двигатель прогресса, доказано!!!
 
 
 
#8
14.04.2015 12:37:15
в проверке данных находится формула, в которой мы с начало заменяем "-" потом заменяем "/", затем убираем лишние пробелы и по итогу этих действий у нас в ячейке должны остаться только циферы которые и проверяем функцией ЕЧИСЛО которая дает нам результат проверки ИСТИНА если такового результата нет значит в ячейке присутствуют иные знаки и символы
Код
=ЕЧИСЛО(--СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"-";"");"/";"")))
Лень двигатель прогресса, доказано!!!
 
 
 
#9
14.04.2015 12:38:53
Нет, к сожалению не звезду смерти, а всего лишь список уголовных дел.  
 
 
 
#10
14.04.2015 12:46:25
по поводу смерти и б/п в формулу добавить еще две функции Подставить попробуйте не проверял не на чем
Код
=ЕЧИСЛО(--СЖПРОБЕЛЫ(подставить(подставить(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A2;"б/п";"");"смерть";"");"-";"");"/";"")))
Лень двигатель прогресса, доказано!!!
 
 
 
#11
14.04.2015 13:02:13
Спасибо огромное Сергей. Все разобрался, все работает.  
 
 
 
#12
14.04.2015 13:08:51
На основе предложенного кода у меня вот так получилось, но почему-то глючит с символами подстановки
Код
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
Наверх