Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2010, 19:29   #1
PashaNastya
Пользователь
 
Аватар для PashaNastya
 
Регистрация: 25.03.2010
Сообщений: 32
По умолчанию Ограничения вариация ручного ввода в ячейку.

Можно ли как-то ограничить диапазон возможности ручного ввода числа в ячейку ограничив, например, двумя числами. Т.е. в этой ячейке может быть число только 3 или только 99,9.
PashaNastya вне форума Ответить с цитированием
Старый 28.03.2010, 19:41   #2
kim2
Форумчанин
 
Регистрация: 23.03.2010
Сообщений: 101
По умолчанию

Сервис-Данные-Проверка данных
Два варианта:
Или выбрать список и вручную забить нужные числа, или Другое и формулу: =(A1=3)+(A1=99,9)
kim2 вне форума Ответить с цитированием
Старый 28.03.2010, 19:45   #3
Dophin
Форумчанин
 
Аватар для Dophin
 
Регистрация: 13.01.2010
Сообщений: 410
По умолчанию

данные-проверка данных
Dophin вне форума Ответить с цитированием
Старый 29.03.2010, 06:40   #4
maksim_serg
Форумчанин
 
Аватар для maksim_serg
 
Регистрация: 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
maksim_serg вне форума Ответить с цитированием
Старый 29.03.2010, 06:51   #5
maksim_serg
Форумчанин
 
Аватар для maksim_serg
 
Регистрация: 25.03.2010
Сообщений: 417
По умолчанию

msg = MsgBox("В ячейку " & adr & " можно ввести только " & n1 & " или " & n2 & "!", vbCritical, Title:="Значение не верно!")
maksim_serg вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Событие ввода данных в ячейку 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