Як перевірити, чи є клітинка або діапазон із кількох клітинок порожніми за допомогою 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, щоб запустити свій код.
  • Подивіться на результати безпосередньо у вікні.

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

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

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

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

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

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

Бонус: використовуйте наступний код, якщо ви також хочете виділити порожні клітинки.

Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") Для кожної myCell у myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "Є всього " & я & " пусті комірки з " & c & "."

Залишити коментар

Шаблон тижневого графіка прибирання для друку для хостів Airbnb (Word та PDF)

Шаблон тижневого графіка прибирання для друку для хостів Airbnb (Word та PDF)

Використовуйте цей друкований тижневий графік прибирання для хостів Airbnb, щоб організувати прибирання між гостями, глибоке очищення, поповнення запасів, перевірки безпеки та друк із Word у PDF.

Безкоштовний шаблон органайзера місячного календаря рахунків для Excel: практичне налаштування на 2026 рік

Безкоштовний шаблон органайзера місячного календаря рахунків для Excel: практичне налаштування на 2026 рік

Організуйте місячні рахунки в Excel за допомогою безкоштовного макета календаря платежів, відстеження термінів оплати, формул статусу, полів автоплатежів та практичних порад щодо грошового потоку.

Формули Excel не обчислюються автоматично? Виправте це за 3 прості кроки

Формули Excel не обчислюються автоматично? Виправте це за 3 прості кроки

Виправте формули Excel, які не обчислюються автоматично, за три кроки: увімкніть автоматичне обчислення, виконайте перерахунок і виправте комірки з формулами.

Шаблон трекера витрат для незалежних підрядників у США: що відстежувати у 2026 році

Шаблон трекера витрат для незалежних підрядників у США: що відстежувати у 2026 році

Створіть практичний трекер витрат для фрілансерів у США з категоріями для Schedule C, полями для чеків, відстеженням пробігу та оновленнями правил IRS на 2026 рік.

Найкращі безкоштовні додатки для виставлення рахунків для малих сервісних компаній у США (2026)

Найкращі безкоштовні додатки для виставлення рахунків для малих сервісних компаній у США (2026)

Порівняйте найкращі безкоштовні додатки для виставлення рахунків для сервісних компаній у США у 2026 році, включаючи Zoho Invoice, Wave, Square, PayPal та Invoice Ninja.

Безкоштовний шаблон Excel для обліку витрат і доходів від орендної нерухомості: Посібник для початківців

Безкоштовний шаблон Excel для обліку витрат і доходів від орендної нерухомості: Посібник для початківців

Використовуйте безкоштовний трекер орендної нерухомості в Excel для організації доходів, витрат, об’єктів нерухомості та щомісячного грошового потоку. Дізнайтеся, що записувати, як налаштувати шаблон і яких помилок уникати.

Безкоштовний шаблон презентації звіту про статус проєкту для Agile-команд: що варто включити?

Безкоштовний шаблон презентації звіту про статус проєкту для Agile-команд: що варто включити?

Використовуйте цей безкоштовний готовий до копіювання шаблон презентації звіту про статус Agile-проєкту, щоб демонструвати прогрес, ризики, рішення та наступні кроки, не перетворюючи оновлення на шум.

Як виправити проблему «Не працює звук під час запису екрана в PowerPoint»

Як виправити проблему «Не працює звук під час запису екрана в PowerPoint»

Запис екрана в PowerPoint має відео, але немає звуку? Перевірте керування звуком, доступ до мікрофона в Windows, налаштування вводу, сумісність відтворення, оновлення та відновлення.

Безкоштовний шаблон графіка змін для працівників у Excel із калькулятором годин

Безкоштовний шаблон графіка змін для працівників у Excel із калькулятором годин

Створіть безкоштовний графік змін у Excel з автоматичним підрахунком годин, обробкою нічних змін, вирахуванням перерв, тижневими підсумками, прапорцями планування надурочних та друкованою версією для команди.

Безкоштовний шаблон рахунку-фактури для малого бізнесу в Excel з автоматичним розрахунком податку з продажів

Безкоштовний шаблон рахунку-фактури для малого бізнесу в Excel з автоматичним розрахунком податку з продажів

Створіть безкоштовний шаблон рахунку-фактури в Excel, який автоматично розраховує оподатковувані суми, податок з продажів та загальні підсумки. Порівняйте варіанти налаштування з єдиною ставкою, таблицею пошуку та ставкою для кожного рядка, і дізнайтеся, коли можливостей Excel вже недостатньо.