Данас ћемо научити како лако да проверимо да ли је једна или више ћелија празна користећи Висуал Басиц за апликације. Садржај је релевантан за Екцел 2019 / 365, 2016 и старије верзије Мицрософт Оффице-а.
Припремни рад
Пре него што почнете да кодирате помоћу ВБА у Екцел-у, мораћете да се уверите да је картица за развој омогућена. Ако то није случај, погледајте овај кратки водич .
Провера да ли је опсег Екцел ћелија празан помоћу ВБА
- У Екцел-у отворите своје Висуал Басиц окружење притиском на Алт+Ф11
- Уметните следећи код као процедуру у свој радни лист, или алтернативно у наменски ВБА модул.
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
- Идите у своју табелу и изаберите произвољан опсег ћелија.
- Вратите се у уређивач Висуал Басиц-а и уверите се да је Иммедиате виевер (ЦТРЛ+Г) видљив – пошто ће метод Дебуг.Принт у коду послати резултат у тај прозор.
- Притисните Ф5 да покренете свој код.
- Погледајте резултате у непосредном прозору.

- Све празне ћелије ће бити идентификоване.
Могућа проширења кода: Очигледно можете проширити овај код по потреби у случају да сте заинтересовани да прескочите празне вредности или једноставно не урадите ништа у случају да ћелије нису пуне. Слично, можете проверити да ли је сам опсег празан, односно – нема црних ћелија.
Провера непразних поља
На исти начин можете користити својство ИсЕмпти да проверите поља која нису празна.
If Not IsEmpty(Cell.Value) = True Then
Debug.Print ("Not Empty")
Else
Debug.Print ("Empty")
End If