Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 09 июля 2019, 12:41

Название: Excel VBA Макросы: Как проверить, что заполнены все указанные ячейки?
Отправлено: Посетитель от 09 июля 2019, 12:41
Как с помощью макроса проверить, что эти ячейки непустые: B2, B4, B6, B8?
Название: Re: Excel VBA Макросы: Как проверить, что заполнены все указанные ячейки?
Отправлено: Администратор от 09 июля 2019, 12:47
Sub Макрос()

    If WorksheetFunction.CountA(Range("B2,B4,B6,B8")) <> 4 Then
        MsgBox "Заполните все ячейки.", vbExclamation
        Exit Sub
    End If

End Sub
Название: Re: Excel VBA Макросы: Как проверить, что заполнены все указанные ячейки?
Отправлено: Посетитель от 09 июля 2019, 12:50
спасибо