Если диапазон содержит 0, тогда конец sub в VBA - PullRequest
Новая
       47

Если диапазон содержит 0, тогда конец sub в VBA

0 голосов
/ 03 мая 2020 
    If WorksheetFunction.CountA(Range("$G:$G")) = 0 Then
        MsgBox "One of the cell contains 0"
        Exit Sub
    End If

Выше, кажется, не работает через диапазон. Если я наберу «G1», это сработает.

Диапазон G может меняться в зависимости от того, сколько данных он извлекает из другого листа. Когда одна из ячеек на исходном листе пуста, на новом листе вместо нее стоит 0.

1 Ответ

0 голосов
/ 03 мая 2020

Основываясь на заголовке этого поста и комментарии, я думаю, вы хотите сделать что-то подобное 

If WorksheetFunction.CountIf(Range("$G:$G"), "=0") > 0 Then
    MsgBox "One of the cell contains 0"
    Exit Sub
End If
...