Як перевірити, чи є клітинка або діапазон із кількох клітинок порожніми за допомогою Excel VBA?

Сьогодні ми дізнаємося, як легко перевірити, чи є одна або кілька клітинок порожніми, за допомогою Visual Basic для додатків. Вміст актуальний для Excel 2019 / 365, 2016 та попередніх версій Microsoft Office.

Підготовчі роботи

Перш ніж розпочати кодування за допомогою VBA в Excel, вам потрібно переконатися, що ваша вкладка розробка увімкнена. Якщо це не так, перегляньте цей короткий посібник .

Перевірка, чи порожній діапазон клітинок Excel за допомогою VBA

• У Excel відкрийте середовище Visual Basic, натиснувши Alt+F11
• Вставте наступний код як процедуру у свій робочий аркуш або, як альтернатива, у виділений модуль VBA.

Sub Check_Cell_is_empty_alt()

Dim rng As Range
Set rng = Selection

For Each Cell In rng

    If IsEmpty(Cell.Value) = True Then
        
    Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell


End Sub

• Перейдіть до електронної таблиці та виберіть довільний діапазон комірок.
• Поверніться до редактора Visual Basic і переконайтеся, що засіб перегляду безпосереднього перегляду (CTRL+G) є видимим, оскільки метод Debug.Print у коді виведе результат у це вікно.
• Натисніть F5, щоб запустити свій код.
• Подивіться на результати безпосередньо у вікні.

• Усі порожні клітинки будуть ідентифіковані.

Можливі розширення коду: Ви, очевидно, можете розширити цей код за потреби, якщо хочете пропустити порожні значення або просто нічого не робити, якщо клітинки не заповнені. Аналогічно можна перевірити, чи порожній сам діапазон, тобто чи немає чорних клітинок.

Перевірка непорожніх полів

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

 If Not IsEmpty(Cell.Value) = True Then
        Debug.Print ("Not Empty")
    Else
        Debug.Print ("Empty")
    End If