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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 19.06.2010, 18:03   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Условие для диапазона ячеек, при вводе числовых значений.

Здравствуйте.

Есть условие необходимо дополнить.

В диапазоне =Расход!$BL$4:$BL$125 в проверки данных, уже установлено условие, вводить данные не меньше 1 и не больше 40000. Необходимо еще одно условие если ячейка BL1 чистая, то ввести данные в данный диапазон какой либо ячейки не возможно, или они удаляются на основании сообщения установленного условия в проверки данных.
То есть, как объединить два условия в проверке данных?
segail вне форума Ответить с цитированием
Старый 19.06.2010, 23:19   #2
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Здравствуйте.

Стандартными средствами эту задачу не решить.
Можно макросом.
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 19.06.2010, 23:42   #3
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
Сообщение от Serge 007 Посмотреть сообщение
Здравствуйте.

Стандартными средствами эту задачу не решить.
Можно макросом.
Ребята решили:
=И(BL4>=1;BL4<=4000;$BL$1<>"")Флажок "Игнорировать пустые..."необходимо снять.
Надо проверить различные ситуации. Пока не уверен. Но работает.
Бал макрос он глючит. Почему не знаю…
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("BL4:BL125")) Is Nothing Then
If Range("BL1") = "" Or Target < 1 Or Target > 40000 Then
Target.ClearContents
End If
End If
End Sub
segail вне форума Ответить с цитированием
Старый 20.06.2010, 00:14   #4
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Извиняюсь, ступил. Перепутал форумы, ответил не туда...
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автоматическое вычитание при вводе определенных значений DIMONRUS Microsoft Office Excel 11 17.06.2010 20:06
Выделение диапазона по условию тестовых значений ячеек as-is Microsoft Office Excel 1 08.03.2010 14:45
Макрос для обработки диапазона значений в цикле as-is Microsoft Office Excel 5 08.03.2010 12:39
Найти значение функций для всех целых значений из диапазона -8..3 Goldberg Паскаль, Turbo Pascal, PascalABC.NET 5 13.11.2008 00:05
Цикл для просмотра диапазона и выбора нужных ячеек. Dorvir Microsoft Office Excel 8 21.07.2008 06:33