Определить что ячейка не пустая vba excel

Перейти к содержимому

Макрос проверки заполнения ячеек.

Периодически при создании различных макросов в VBA Excel возникает потребность  в том, чтобы алгоритм макроса самостоятельно определял, пуста ли ячейка или заполнена данными.

Далее приведем несколько простых макросов  для определения заполнения ячейки данными и разберем принцип их работы. Фрагменты этих макросов вы можете добывать в свой код для реализации проверки заполнения ячеек.

Рассмотрим несколько вариантов VBA алгоритмов:Макро VBA Excel

Алгоритм для строго определенной ячейки с применением её адреса.

Пример для ячейки с адресом B6:

  •     Private Sub CommandButton1_Click() ‘наименование алгоритма
  •      If IsEmpty(Range(«B6»)) = True Then  ‘условие, если ячейка пустая, то
  •      MsgBox («В ячейке нет данных») ‘вывод сообщения, что в ячейке нет данных
  •      Else  ‘в противном случае
  •      MsgBox («Данные внесены в ячейку»)  ‘вывод сообщения, что в ячейке есть данные
  •      End If  ‘конец блока «если»
  •     End Sub ‘конец алгоритма

Алгоритм для выделенной (активной)  ячейки :

    • Private Sub CommandButton1_Click() ‘наименование алгоритма    
    • If IsEmpty(ActiveCell) = True Then ‘условие, если активная ячейка (ActiveCell)  пустая, то
    •      MsgBox («В ячейке нет данных»)  ‘вывод сообщения, что в ячейке нет данных
    •      Else  ‘в противном случае
    •      MsgBox («Данные внесены в ячейку»)  ‘вывод сообщения, что в ячейке есть данные
    •      End If  ‘конец блока «если»
    •     End Sub ‘конец алгоритма

    Еще один способ определения в примере для активной ячейки, но можно использовать  и для конкретной ячейки с адресом.

      • Private Sub CommandButton1_Click() ‘наименование алгоритма    
      • If Len(ActiveCell) Then ‘если активная ячейка заполнена данными (имеет объем информации)
      • MsgBox («Данные внесены в ячейку»)  ‘вывод сообщения, что в ячейке есть данные
      • Else  ‘в противном случае
      • MsgBox («Ячейка пустая») ‘вывод сообщения, что в ячейке нет данных
      • End If  ‘конец блока «если»
      •  End Sub  ‘конец алгоритма

      Источник

      МЕНЮ САЙТА

      • 1
      • 2
      • 3

        • Информация о сайте

        • Развите сайта

      • Excel

        • Приемы работы

        • Инструменты и настройки

        • Интеграция

      • Готовые решения

        • Excel

        • VBA

      • Форумы

        • Вопросы и решения

        • Работа и общение

        • Работа форума и сайта

      • Библиотека

        • Книги по Excel

        • Книги по VBA

        • Разное

      • Видеосалон

      • Справочники

      • Разработчик

      КАТЕГОРИИ РАЗДЕЛА

      ОПРОСЫ

      Определить пустая ячейка или нет

      20.07.2013, 12:03
      Для конкретной ячейки (в примере используется A1):

      Sub excample()
 If IsEmpty(Range("A1")) = True Then
 MsgBox "Ячейка пустая"
 Else
 MsgBox "Ячейка непустая"
 End If
End Sub

      Для активной ячейки:

      Sub excample()
 If IsEmpty(ActiveCell) = True Then
 MsgBox "Ячейка пустая"
 Else
 MsgBox "Ячейка непустая"
 End If
End Sub
      • 1
      • 2
      • 3
      • 4
      • 5

      Добавил: Serge_007 |

      | Теги: vba, Епусто, IsEmpty, определить наличие в ячейке

      Просмотров: 62959

      | Рейтинг: 5.0/6
      Всего комментариев: 2

      Порядок вывода комментариев:

         еще можно так
      Sub test()
      If Len(ActiveCell) Then
      MsgBox «Ячейка не пустая»
      Else
      MsgBox «Ячейка пустая»
      End If
      End Sub

      Добавлять комментарии могут только зарегистрированные пользователи.

      [

      Регистрация

      |

      Вход

      ]
      Источник
       

      Подскажите как при помощи VBA определить наличие пустой ячейки (не заполненной = «» ;)  в диапазоне (например А1:С300) или ячейки с значением = 0 ?
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле

      Нашли, дальше что? Перебрать диапазон/массив и при нахождении пустой/нулевой выйти из цикла с сообщением.
       

      Антон

      Пользователь

      Сообщений: 617
      Регистрация: 01.01.1970

      #3

      28.01.2014 01:20:21

      посредством перебора каждого значения массива и сравнением )

      Код 
      'перебираем строки 
For i=1 to 300 
'перебираем столбцы 
For y=1 to 3 
If cells(i,y).Value="" then 
Msgbox("пустая ячейка") 
Exit for
End if 
If cells(i,y).Value=0 then 
Msgbox("нуль.")  
Exit for 
End if    
Next y   
Next i

      Изменено: Антон — 28.01.2014 01:25:02
       

      Да, если такие ячейки имеются вывести сообщение и прекратить дальнейшее выполнение макроса, если таких ячеек нет продолжить выполнение макроса.
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле

      #5

      28.01.2014 01:28:51

      Код 
      Sub Test()
Dim Rng As Range, rCell As Range
    Set Rng = Range("A1:C300")
    For Each rCell In Rng
        If IsEmpty(rCell) Or rCell = 0 Then
            MsgBox "Найдено в ячейке " & rCell.Address(0, 0), 64, "Для сведения"
            Exit For
        End If
    Next
End Sub
       
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле

      #7

      28.01.2014 02:01:36

      Без цикла, но и без адресов:

      Код 
      Sub Test2()
Dim Rng As Range
    Set Rng = Range("A1:C300")
    x = Application.WorksheetFunction.CountA(Rng)
    y = Application.WorksheetFunction.CountIf(Rng, 0)
    If Rng.Cells.Count <> x Then MsgBox "Есть пустые."
    If y > 0 Then MsgBox "Есть нули."
End Sub
       

      KuklP

      Пользователь

      Сообщений: 14868
      Регистрация: 21.12.2012

      E-mail и реквизиты в профиле.

      Я сам — дурнее всякого примера! …

       

      Max.il

      Пользователь

      Сообщений: 64
      Регистрация: 05.12.2018

      Юрий М, Юрий, добрый вечер. Развивая тему, если нужно проверить несколько ячеек, к примеру А3, Т16 и Т22, если они пустые — залить эту ячейку красным цветом. Если в ней есть что-то , пропустить. Если во всех ячейках есть данные, то просто прекратить выполнение макроса без вывода сообщения.
      Спасибо  
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле
       

      Max.il

      Пользователь

      Сообщений: 64
      Регистрация: 05.12.2018

      Юрий М,Нет, т.к. проверка должна осуществляться после макроса.  
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле

      УФ сработает и после макроса. А макрос написать не смогу: нет у меня файла, где имеются перечисленные Вами ячейки ))
      Вы бы уточнили: три ячейки — это только для примера? А по факту? И как макрос должен понять, какие именно ячейки проверять? Где-то есть список этих ячеек?
       

      Юрий М

      Модератор

      Сообщений: 60585
      Регистрация: 14.09.2012

      Контакты см. в профиле

      #13

      27.05.2019 23:32:23

      Нет ответа…

      Код 
      Dim rCell As Range
    For Each rCell In Range("A3, T16, T22")
        If rCell = "" Then
            rCell.Interior.ColorIndex = 3
        Else
            rCell.Interior.ColorIndex = xlNone
        End If
    Next
       

      RAN

      Пользователь

      Сообщений: 7091
      Регистрация: 21.12.2012

      #14

      27.05.2019 23:39:10

      Цитата
      Max.il написал:
      к примеру
      Код 
      Sub qq()
    Dim r As Range
    Set r = [a1:c3]
    On Error Resume Next
    r.SpecialCells(4).Interior.ColorIndex = 3
End Sub
       

      Max.il

      Пользователь

      Сообщений: 64
      Регистрация: 05.12.2018

      RAN,  Юрий М, Мужчины, спасибо, что помогаете . Искренняя благодарность.  
       

      Николай Китаев

      Пользователь

      Сообщений: 2
      Регистрация: 01.01.1970

      #16

      17.12.2021 13:26:01

      Цитата
      написал:
      Подскажите как при помощи VBA определить наличие пустой ячейки

      Такая конструкция не работает: If cells(i,y).Value=»» then….

      А так — должно работать:
      If IsEmpty(cells(i,y).Value) = True Then ……., где К — переменная содержащая или несодержащая значение, или переменная, содержащая адрес ячейки Cell, которую проверяем.

      Изменено: Николай Китаев — 17.12.2021 14:07:17
       

      Jack Famous

      Пользователь

      Сообщений: 10852
      Регистрация: 07.11.2014

      OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

      Николай Китаев, с момента создания темы прошло почти 8 лет, а ТС был последний раз почти 2 года назад — в курсе?  :D

      Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

       

      Ничего страшного. Можно считать, что памятка для себя. Тем более проверка вида cells(i,y).Value=»» не работает.
       

      БМВ

      Модератор

      Сообщений: 21385
      Регистрация: 28.12.2016

      Excel 2013, 2016

      #19

      17.12.2021 14:19:40

      Цитата
      Николай Китаев написал:
      Тем более проверка вида cells(i,y).Value=»» не работает.

      докажите.

      По вопросам из тем форума, личку не читаю.

       

      Jack Famous

      Пользователь

      Сообщений: 10852
      Регистрация: 07.11.2014

      OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

      Если вас что-то не устраивает, то не нужно поднимать со дна старую тему, тем более, что спросить автора не получится — создайте свою и там всё подробно опишите и/или спросите

      И тут гляньте:

      VBA. UDF. Функция для проверки значения на строку нулевой длины «=»»»

      Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

       

      vikttur

      Пользователь

      Сообщений: 47199
      Регистрация: 15.09.2012

      #21

      17.12.2021 23:29:31

      Цитата
      Николай Китаев написал: If IsEmpty(cells(i,y).Value) = True Then ……., где К — переменная

      И где К? )
      Источник

      Home / VBA / VBA Check IF a Cell is Empty + Multiple Cells

      To check if a cell is empty you can use VBA’s ISEMPTY function. In this function, you need to use the range object to specify the cell that you want to check, and it returns true if that cell is empty, otherwise false. You can use a message box or use a cell to get the result.

      1. Start with the function name “IsEmpty”.
      2. Specify the cell that you want to check.
      3. Use a message box or a cell to get the result value.
      4. In the end, run the code.
      MsgBox IsEmpty(Range("A1"))

      Check IF Multiple Cells Empty

      If you want to check and count the empty cells from a range when you need to loop through each cell in the range.

      Sub vba_check_empty_cells()

Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range

Set myRange = Range("A1:A10")

For Each myCell In myRange
    c = c + 1   
    If IsEmpty(myCell) Then
        i = i + 1
    End If   
Next myCell   

MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."

End Sub

      The above code loops through each cell in the range A1:A10 and check each cell one by one using the ISEMPTY function if it’s empty or not.

      And for each empty cell it takes a count, and in the end, shows a message box with the total number of cells and empty cells out of that.

      Use the following code if you want to highlight empty cells as well.

      Dim i As Long
Dim c As Long
Dim myRange As Range
Dim myCell As Range

Set myRange = Range("A1:A10")

For Each myCell In myRange '
    c = c + 1
    If IsEmpty(myCell) Then
        myCell.Interior.Color = RGB(255, 87, 87)
        i = i + 1
    End If
Next myCell

MsgBox _
"There are total " & i & " empty cell(s) out of " & c & "."

      More Tutorials

        • Count Rows using VBA in Excel
        • Excel VBA Font (Color, Size, Type, and Bold)
        • Excel VBA Hide and Unhide a Column or a Row
        • Excel VBA Range – Working with Range and Cells in VBA
        • Apply Borders on a Cell using VBA in Excel
        • Find Last Row, Column, and Cell using VBA in Excel
        • Insert a Row using VBA in Excel
        • Merge Cells in Excel using a VBA Code
        • Select a Range/Cell using VBA in Excel
        • SELECT ALL the Cells in a Worksheet using a VBA Code
        • ActiveCell in VBA in Excel
        • Special Cells Method in VBA in Excel
        • UsedRange Property in VBA in Excel
        • VBA AutoFit (Rows, Column, or the Entire Worksheet)
        • VBA ClearContents (from a Cell, Range, or Entire Worksheet)
        • VBA Copy Range to Another Sheet + Workbook
        • VBA Enter Value in a Cell (Set, Get and Change)
        • VBA Insert Column (Single and Multiple)
        • VBA Named Range | (Static + from Selection + Dynamic)
        • VBA Range Offset
        • VBA Sort Range | (Descending, Multiple Columns, Sort Orientation
        • VBA Wrap Text (Cell, Range, and Entire Worksheet)

        ⇠ Back to What is VBA in Excel

        Helpful Links – Developer Tab – Visual Basic Editor – Run a Macro – Personal Macro Workbook – Excel Macro Recorder – VBA Interview Questions – VBA Codes

        Источник

        I’m trying to make a form on excel so that when people don’t fill in certain cells, they will get pop-up error messages. So far, I made this code:

        If Len(I8) = 0 Then
MsgBox "Please enter Required Date", vbExclamation
Exit Sub
ElseIf Len(D11) = 0 Then
MsgBox "Please enter your name", vbExclamation
Exit Sub
ElseIf Len(H11) = 0 Then
MsgBox "Please enter Work Phone", vbExclamation
Exit Sub
ElseIf Len(L11) = 0 Then
MsgBox "Please enter Home Phone", vbExclamation
Exit Sub
End If
MsgBox "All mandatory fields have been entered", vbExclamation
End Sub

        Which seemed to work, but when I added text to the cell I8, the «Please enter Required Date» msgbox popped up anyways.

        I’ve also tried using Count(I8) = 0, and IfEmpty(I8) = True, but neither were recognized properly in vba.

        Also, if I want a pop-up message to appear when a cell is not filled out if they picked «YES» from a drop-down list, what would the function be? So far I’ve written

        ElseIf Range("D28") = "P16" And Len(Range("M30")) = 0 Then
MsgBox "Please Select whether this file is classified as confidential", vbExclamation
Exit Sub

        But I need a defined function and I’m not sure what to pick. Is there a longer way to do it to ensure that both cells are filled out if they pick yes in the first cell?

        Источник

        Like this post? Please share to your friends:
      • Определить число символов word
      • Определить число дней в месяце excel
      • Определить цвет заливки в ячейке excel
      • Определить формулу в строке excel
      • Определить уровень знаний excel