Как исследовать ячейки с помощью макроса
Хотите оценить ячейки и определить, сколько ячеек заполнено в диапазоне, а какое нет? На следующем рисунке показан пример:
Маркер A1: B7 содержит несколько пустых ячеек и несколько заполненных ячеек. Если вы хотите оценить это в макросе, вы можете использовать следующий программный код:
Sub CountsFilledCells ()
Тусклое число до тех пор, пока
Тусклое число2 по длине
Тусклая область как диапазон
Уменьшить размер строки
Установить область = Выбор
Number = Application.CountA (площадь)
Count2 = area.Cells.Count - число
a = MsgBox ("В текущем выделении есть" _
& Число & "заполненные ячейки и" & число2 _
& «Ячейки пустые.», VbOKOnly, «Оценить ячейки»)
Конец подписки
Макрос устанавливает функцию CountA для подсчета количества непустых ячеек в диапазоне. Результат сохраняет переменную количество. Чтобы определить количество заполненных ячеек, это значение вычитается из общего числа исследованных ячеек. Макрос сохраняет это значение в Номер 2.
После запуска программный код определяет количество заполненных и пустых ячеек в активной разметке и отображает результат в окне:
Если вы хотите обработать диапазон по вашему выбору, а не текущий выбор, адаптируйте присвоение значения переменной площадь в. Используется в макросе со свойством Выбор связаны. Если вместо этого вы хотите определить диапазон самостоятельно, замените установленный-Присвоение переменной площадь выражением следующего вида:
Установить диапазон = Диапазон ("A1: B5")
Спецификация диапазона всегда относится к активному рабочему листу. Если вы хотите обратиться к другому листу, поставьте перед ДиапазонУкажите ссылки на методы Рабочие тетради а также Таблицы фиксированный.
