Макрос проверки заполнения ячеек.
Периодически при создании различных макросов в 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 ‘конец алгоритма