Vba: як використовувати "якщо не пусто"

Ви можете використовувати Not IsEmpty у VBA, щоб перевірити, чи клітинка не порожня.

Ось приклад того, як ви можете використовувати цей синтаксис у макросі:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

У цьому конкретному прикладі перевіряється, чи кожна комірка в діапазоні A2:A13 не порожня, а потім друкується «Комірка не порожня» або «Комірка порожня» для кожної відповідної комірки в діапазоні B2:B13 .

У наступному прикладі показано, як використовувати цей синтаксис на практиці.

Приклад: як використовувати «Якщо не пусто» у VBA

Припустімо, що в Excel є такий список назв баскетбольних команд:

Припустімо, ми хочемо перевірити, чи кожна клітинка в діапазоні A2:A13 не порожня, а потім відобразити результати у відповідних клітинках в діапазоні B2:B8 .

Для цього ми можемо створити такий макрос:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Not Empty ”
        Else
        Result = “ Cell is Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Стовпець B повідомляє нам, чи кожна з відповідних клітинок у стовпці A порожня чи ні.

Ви також можете використати наступний макрос, щоб просто повернути саму назву команди в стовпці B, якщо значення в стовпці A не пусте:

 Sub IfNotBlank()
    Dim i As Integer

    For i = 2 To 13
        If Not IsEmpty(Range(" A " & i)) Then
        Result = Range(" A " & i).Value
        Else
        Result = " Empty "
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Коли ми запускаємо цей макрос, ми отримуємо такий результат:

Стовпець B тепер повертає назву команди в стовпці A, якщо клітинка не порожня.

Примітка . Ви можете знайти повну документацію для методу VBA IsEmpty тут .

Додаткові ресурси

У наступних посібниках пояснюється, як виконувати інші типові завдання у VBA:

VBA: як підрахувати випадки появи символів у рядку
VBA: як перевірити, чи містить рядок інший рядок
VBA: формула для «Якщо» клітинка містить»