Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA, Проверка диапазона на наличие определенных значений в ячейках
 
#1
25.03.2019 20:35:18
Добрый вечер, Нужен vba код. Если хотя бы одна ячейка в диапазоне A1:D25 имеет значение меньше 0 и больше 14, тогда макрос не выполняется, но если есть пустые ячейки, и нет ячеек со значением меньше 0 и больше 14, тогда выполняется. Спасибо.
 
 
 
#2
25.03.2019 20:42:16
Цитата
OSA913 написал: хотя бы одна ячейка в диапазоне A1:D25 имеет значение меньше 0 и больше 14
Может ИЛИ?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
25.03.2019 20:47:48
Нужно чтобы макрос выполнялся если ячейки содержат числа от 0 до 14 и могут быть пустые ячейки, но если хоть одна ячейка будет иметь число вне диапазона-макрос не выполняется
 
 
 
#4
25.03.2019 21:02:09
Решение.

Код
Sub Кнопка2_Щелчок()
    If WorksheetFunction.CountIf(Range("A1:D25"), "<0") + WorksheetFunction.CountIf(Range("A1:D25"), ">14") > 0 Then
        MsgBox "Не выполняем"
        Exit Sub
    End If
End Sub
Код
Sub Кнопка1_Щелчок()
    factor = 0
    For Each cc In Range("A1:D25")
        If cc < 0 Or cc > 14 Then factor = 1
    Next
    If factor Then
        MsgBox "Не выполняем"
        Exit Sub
    End If
End Sub
Изменено: skais675 - 25.03.2019 21:10:39
Мой канал
 
 
 
#5
25.03.2019 21:03:06
Код
with worksheetfunction
  if .countif(Диапазон , ">14") +.countif(Диапазон , "<0") = 0 then ВыполнитьМакрос
end with
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
25.03.2019 21:32:57
Спасибо вам друзья, оба кода работают.
 
 
 
Страницы: 1
Наверх