|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.03.2010, 19:29 | #1 |
Пользователь
Регистрация: 25.03.2010
Сообщений: 32
|
Ограничения вариация ручного ввода в ячейку.
Можно ли как-то ограничить диапазон возможности ручного ввода числа в ячейку ограничив, например, двумя числами. Т.е. в этой ячейке может быть число только 3 или только 99,9.
|
28.03.2010, 19:41 | #2 |
Форумчанин
Регистрация: 23.03.2010
Сообщений: 101
|
Сервис-Данные-Проверка данных
Два варианта: Или выбрать список и вручную забить нужные числа, или Другое и формулу: =(A1=3)+(A1=99,9) |
28.03.2010, 19:45 | #3 |
Форумчанин
Регистрация: 13.01.2010
Сообщений: 410
|
данные-проверка данных
|
29.03.2010, 06:40 | #4 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
Или так:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim n1 As String Dim n2 As String Dim adr As String adr = "$A$1" n1 = "3" n2 = "99,9" With Range(adr) If .Value = "" Then Exit Sub If .Value = n1 Or .Value = n2 Then Exit Sub Else: .Value = "" msg = MsgBox(" ÿ÷åéêó " & adr & " ìîæíî ââîäèòü òîëüêî " & n1 & " èëè " & n2 & "!", vbCritical, Title:="Çíà÷åíèå íå âåðíî!") End If End With End Sub |
29.03.2010, 06:51 | #5 |
Форумчанин
Регистрация: 25.03.2010
Сообщений: 417
|
msg = MsgBox("В ячейку " & adr & " можно ввести только " & n1 & " или " & n2 & "!", vbCritical, Title:="Значение не верно!")
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Событие ввода данных в ячейку | tae1980 | Microsoft Office Excel | 15 | 23.05.2019 15:01 |
Ограничения | Flatterer | Фриланс | 1 | 08.03.2010 20:16 |
Как сделать запрет ввода букв в поле для ввода input | zvezda_t | PHP | 1 | 27.12.2009 22:02 |
Случайная вариация исходных чисел. | Рокот | Помощь студентам | 2 | 06.12.2008 17:27 |
Ограничения панели инструментов | wnuks | Microsoft Office Excel | 5 | 01.07.2008 22:39 |