Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA определить наличие в диапазоне пустой ячейки или ячейки с значением - 0
 
#1
28.01.2014 01:10:27
Подскажите как при помощи VBA определить наличие пустой ячейки (не заполненной = "" ;)  в диапазоне (например А1:С300) или ячейки с значением = 0 ?
 
 
 
#2
28.01.2014 01:16:41
Нашли, дальше что? Перебрать диапазон/массив и при нахождении пустой/нулевой выйти из цикла с сообщением.
 
 
 
#3
28.01.2014 01:20:21
посредством перебора каждого значения массива и сравнением )
Код
'перебираем строки 
For i=1 to 300 
'перебираем столбцы 
For y=1 to 3 
If cells(i,y).Value="" then 
Msgbox("пустая ячейка") 
Exit for
End if 
If cells(i,y).Value=0 then 
Msgbox("нуль.")  
Exit for 
End if    
Next y   
Next i
Изменено: Антон - 28.01.2014 01:25:02
 
 
 
#4
28.01.2014 01:21:56
Да, если такие ячейки имеются вывести сообщение и прекратить дальнейшее выполнение макроса, если таких ячеек нет продолжить выполнение макроса.
 
 
 
#5
28.01.2014 01:28:51
Код
Sub Test()
Dim Rng As Range, rCell As Range
    Set Rng = Range("A1:C300")
    For Each rCell In Rng
        If IsEmpty(rCell) Or rCell = 0 Then
            MsgBox "Найдено в ячейке " & rCell.Address(0, 0), 64, "Для сведения"
            Exit For
        End If
    Next
End Sub
 
 
 
#6
28.01.2014 01:41:46
Спасибо!!! то что надо!
 
 
 
#7
28.01.2014 02:01:36
Без цикла, но и без адресов:
Код
Sub Test2()
Dim Rng As Range
    Set Rng = Range("A1:C300")
    x = Application.WorksheetFunction.CountA(Rng)
    y = Application.WorksheetFunction.CountIf(Rng, 0)
    If Rng.Cells.Count <> x Then MsgBox "Есть пустые."
    If y > 0 Then MsgBox "Есть нули."
End Sub
 
 
 
#8
28.01.2014 02:19:50
Похожее, вчера:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=1&TID=53550&PAGEN_1=282
Я сам - дурнее всякого примера! ...
 
 
 
#9
27.05.2019 23:03:41
Юрий М, Юрий, добрый вечер. Развивая тему, если нужно проверить несколько ячеек, к примеру А3, Т16 и Т22, если они пустые - залить эту ячейку красным цветом. Если в ней есть что-то , пропустить. Если во всех ячейках есть данные, то просто прекратить выполнение макроса без вывода сообщения.
Спасибо  
 
 
 
#10
27.05.2019 23:17:40
А УФ не подойдёт?
 
 
 
#11
27.05.2019 23:20:26
Юрий М,Нет, т.к. проверка должна осуществляться после макроса.  
 
 
 
#12
27.05.2019 23:24:08
УФ сработает и после макроса. А макрос написать не смогу: нет у меня файла, где имеются перечисленные Вами ячейки ))
Вы бы уточнили: три ячейки - это только для примера? А по факту? И как макрос должен понять, какие именно ячейки проверять? Где-то есть список этих ячеек?
 
 
 
#13
27.05.2019 23:32:23
Нет ответа...
Код
Dim rCell As Range
    For Each rCell In Range("A3, T16, T22")
        If rCell = "" Then
            rCell.Interior.ColorIndex = 3
        Else
            rCell.Interior.ColorIndex = xlNone
        End If
    Next
 
 
 
#14
27.05.2019 23:39:10
Цитата
Max.il написал:
к примеру
Код
Sub qq()
    Dim r As Range
    Set r = [a1:c3]
    On Error Resume Next
    r.SpecialCells(4).Interior.ColorIndex = 3
End Sub
 
 
 
#15
28.05.2019 07:54:01
RAN,  Юрий М, Мужчины, спасибо, что помогаете . Искренняя благодарность.  
 
 
 
#16
17.12.2021 13:26:01
Цитата
написал:
Подскажите как при помощи VBA определить наличие пустой ячейки
Такая конструкция не работает: If cells(i,y).Value="" then....

А так - должно работать:
If IsEmpty(cells(i,y).Value) = True Then ......., где К - переменная содержащая или несодержащая значение, или переменная, содержащая адрес ячейки Cell, которую проверяем.
Изменено: Николай Китаев - 17.12.2021 14:07:17
 
 
 
#17
17.12.2021 14:01:06
Николай Китаев, с момента создания темы прошло почти 8 лет, а ТС был последний раз почти 2 года назад - в курсе?  :D
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#18
17.12.2021 14:09:29
Ничего страшного. Можно считать, что памятка для себя. Тем более проверка вида cells(i,y).Value="" не работает.
 
 
 
#19
17.12.2021 14:19:40
Цитата
Николай Китаев написал:
Тем более проверка вида cells(i,y).Value="" не работает.
докажите.
По вопросам из тем форума, личку не читаю.
 
 
 
#20
17.12.2021 14:23:39
Если вас что-то не устраивает, то не нужно поднимать со дна старую тему, тем более, что спросить автора не получится — создайте свою и там всё подробно опишите и/или спросите

И тут гляньте: VBA. UDF. Функция для проверки значения на строку нулевой длины «=""»
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#21
17.12.2021 23:29:31
Цитата
Николай Китаев написал: If IsEmpty(cells(i,y).Value) = True Then ......., где К - переменная
И где К? )
 
 
 
Страницы: 1
Читают тему
Наверх