Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Условие проверки ячейки на пустоту и ноль - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие проверки ячейки на пустоту и ноль (Макросы/Sub)
Условие проверки ячейки на пустоту и ноль
Сергей13 Дата: Суббота, 23.06.2018, 22:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Есть некое условие, которое проверяет ячейки диапазона на пустату и выводит на печать ячейки с заполненными данными,
[vba]
Код
        If arr2(lr2, 1) <> "" And arr2(lr2, 2) <> "" Then
        End If
[/vba]
но есть ячейки с нулями которые тоже печатаются, пытался вставить в условие нули но при таком варианте печатается ячейки с данными и с пустатой.
[vba]
Код
        If arr2(lr2, 1) <> "0" And arr2(lr2, 2) <> "0" Then
        End If
[/vba]
Помогите изменить условие чтобы проверялись и нули и пустота.
 
Ответить
СообщениеЗдравствуйте.
Есть некое условие, которое проверяет ячейки диапазона на пустату и выводит на печать ячейки с заполненными данными,
[vba]
Код
        If arr2(lr2, 1) <> "" And arr2(lr2, 2) <> "" Then
        End If
[/vba]
но есть ячейки с нулями которые тоже печатаются, пытался вставить в условие нули но при таком варианте печатается ячейки с данными и с пустатой.
[vba]
Код
        If arr2(lr2, 1) <> "0" And arr2(lr2, 2) <> "0" Then
        End If
[/vba]
Помогите изменить условие чтобы проверялись и нули и пустота.
Автор - Сергей13
Дата добавления - 23.06.2018 в 22:26
_Boroda_ Дата: Суббота, 23.06.2018, 22:51 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 13421
Репутация: 5507 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
If arr2(lr2, 1) <> "" And arr2(lr2, 2) <> "" and arr2(lr2, 1) <> "0" And arr2(lr2, 2) <> "0"  Then
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
If arr2(lr2, 1) <> "" And arr2(lr2, 2) <> "" and arr2(lr2, 1) <> "0" And arr2(lr2, 2) <> "0"  Then
[/vba]
Автор - _Boroda_
Дата добавления - 23.06.2018 в 22:51
Сергей13 Дата: Суббота, 23.06.2018, 23:25 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Нет рядом принтера, завтра попробую.
Благодарю.
 
Ответить
Сообщение_Boroda_, Нет рядом принтера, завтра попробую.
Благодарю.
Автор - Сергей13
Дата добавления - 23.06.2018 в 23:25
doober Дата: Воскресенье, 24.06.2018, 11:03 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 503
Репутация: 229 ±
Замечаний: 0% ±

Excel 2007
Можно короче[vba]
Код
If Val(Replace(arr2(lr2, 1), ",", ".")) * Val(Replace(arr2(lr2, 2), ",", ".")) <> 0 Then
[/vba]

 
Ответить
СообщениеМожно короче[vba]
Код
If Val(Replace(arr2(lr2, 1), ",", ".")) * Val(Replace(arr2(lr2, 2), ",", ".")) <> 0 Then
[/vba]
Автор - doober
Дата добавления - 24.06.2018 в 11:03
Сергей13 Дата: Воскресенье, 24.06.2018, 21:49 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
_Boroda_, Работает как надо.
Еще раз большое спасибо.
 
Ответить
Сообщение_Boroda_, Работает как надо.
Еще раз большое спасибо.
Автор - Сергей13
Дата добавления - 24.06.2018 в 21:49
Сергей13 Дата: Воскресенье, 24.06.2018, 21:52 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 27
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
doober, Спасибо. Уже поставил код от _Boroda_, он повторяется для тридцати кодов, работает.
 
Ответить
Сообщениеdoober, Спасибо. Уже поставил код от _Boroda_, он повторяется для тридцати кодов, работает.
Автор - Сергей13
Дата добавления - 24.06.2018 в 21:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Условие проверки ячейки на пустоту и ноль (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!