Условие проверки ячейки на пустоту и ноль
Сергей13
Дата: Суббота, 23.06.2018, 22:26 |
Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
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
Ответить
Сообщение Здравствуйте. Есть некое условие, которое проверяет ячейки диапазона на пустату и выводит на печать ячейки с заполненными данными, [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
Группа: Модераторы
Ранг: Местный житель
Сообщений: 14093
Репутация:
5688
±
Замечаний:
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]
Так нужно? [vba]Код
If arr2(lr2, 1) <> "" And arr2(lr2, 2) <> "" and arr2(lr2, 1) <> "0" And arr2(lr2, 2) <> "0" Then
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
_Boroda_, Нет рядом принтера, завтра попробую. Благодарю.
_Boroda_, Нет рядом принтера, завтра попробую. Благодарю. Сергей13
Ответить
Сообщение _Boroda_, Нет рядом принтера, завтра попробую. Благодарю. Автор - Сергей13 Дата добавления - 23.06.2018 в 23:25
doober
Дата: Воскресенье, 24.06.2018, 11:03 |
Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 534
Репутация:
235
±
Замечаний:
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
Ответить
Сообщение Можно короче[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
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
_Boroda_, Работает как надо. Еще раз большое спасибо.
_Boroda_, Работает как надо. Еще раз большое спасибо. Сергей13
Ответить
Сообщение _Boroda_, Работает как надо. Еще раз большое спасибо. Автор - Сергей13 Дата добавления - 24.06.2018 в 21:49
Сергей13
Дата: Воскресенье, 24.06.2018, 21:52 |
Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 52
Репутация:
0
±
Замечаний:
0% ±
Excel 2016
doober, Спасибо. Уже поставил код от _Boroda_, он повторяется для тридцати кодов, работает.
doober, Спасибо. Уже поставил код от _Boroda_, он повторяется для тридцати кодов, работает. Сергей13
Ответить
Сообщение doober, Спасибо. Уже поставил код от _Boroda_, он повторяется для тридцати кодов, работает. Автор - Сергей13 Дата добавления - 24.06.2018 в 21:52