Если ячейка не пустая то Excel

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

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

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

Пример для ячейки с адресом 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 ‘конец алгоритма

Похожее: