Макрос определяющий пустая ли ячейка или заполненная в 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  ‘конец алгоритма

 

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *