Как да проверите дали клетка или диапазон от множество клетки е празен с 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 и се уверете, че визуализаторът за Immediate (CTRL+G) е видим – тъй като методът Debug.Print в кода ще изведе резултата си в този прозорец.
Натиснете F5, за да стартирате кода си.
Вижте резултатите в непосредствения прозорец.

Всички празни клетки ще бъдат идентифицирани.

Възможни разширения на кода: Очевидно можете да разширите този код според нуждите, в случай че се интересувате да пропуснете празни стойности или просто да не правите нищо, в случай че клетките не са пълни. По същия начин можете да проверите дали самият диапазон е празен, т.е. – не се съдържат черни клетки.

Проверка на непразни полета

По същия начин можете да използвате свойството 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 & "."

Оставете коментар

Шаблон за PowerPoint за годишен отчет на организация с нестопанска цел: Безплатни опции за изтегляне и контролен списък със слайдове

Създайте ясен годишен отчет за организация с нестопанска цел в PowerPoint с безплатен шаблон, практична структура на слайдовете, показатели за въздействие, финансови данни и съвети за презентации, подходящи за дарители.

Шаблон за PowerPoint за минималистични инвеститорски презентации за технологични стартиращи компании: Какво да включите и какво да пропуснете

Създайте презентация за инвеститори в технологичен стартъп в PowerPoint с практична структура на слайдовете, послания, фокусирани върху доказателствата, достъпен дизайн и по-малко разсейващи фактори.

Шаблон за проста матрица за делегиране на задачи за Word: Практическа версия за мениджъри на малки екипи

Използвайте този прост шаблон за матрица за делегиране на задачи в Word, за да зададете собственици, ограничения за решения, крайни срокове и контролни точки, без да усложнявате прекалено малкия екип.

Шаблон за прост лист за посещаемост на детски градини: Вход и отход за печат за домашни грижи за деца

Използвайте този лесен за печат лист за посещаемост на детски градини за домашни грижи, с имена на децата, часове на пристигане/заминаване, подписи и съвети за съответствие.

Шаблон за маркетингова стратегия на една страница за печат за местни фирми

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

Как да спрете Excel да променя автоматично числата в дати

Спрете Excel да конвертира стойности като 1/2, 11-53 или JAN1 в дати. Научете надеждни решения за въвеждане, поставяне, импортиране на CSV файлове и вече конвертирани клетки.

Шаблон за презентация на PowerPoint за модерна обява за недвижими имоти (безплатен): Какво да включите

Създайте изискан PowerPoint за обява за недвижими имоти безплатно с практичен план на слайдовете, снимка, брандиране, достъпност, съответствие и съвети за експорт.

Как да поправите грешката „Outlook не може да изпраща имейли, но може да получава“

Поправете Outlook, когато получавате имейли, но не можете да изпращате. Проверете Изпращача, офлайн режима, влизането, SMTP настройките, профили и промените в Microsoft 365.

Опростен шаблон на Excel за двуседмично проследяване на заплатите за малки екипи: Практическо ръководство за настройка

Създайте прост двуседмичен трекер на заплатите в Excel за малък екип, включващ работно време, възнаграждения, удръжки, маркери за преглед, обобщения и насоки за водене на записи.

Printable Event Planning Checklist & Budget Template for Word: What to Include and When to Use Excel Instead

Build or customize a printable event planning checklist and budget template in Microsoft Word, with practical sections, tradeoffs, and tips for Word vs. Excel.