Како проверити да ли је ћелија или опсег од више ћелија празан помоћу Екцел ВБА?

Данас ћемо научити како лако да проверимо да ли је једна или више ћелија празна користећи Висуал Басиц за апликације. Садржај је релевантан за Екцел 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