Подсчёт ячеек в выделенном диапазоне с учетом пустых (незаполненных).

Предположим ситуацию, что у вас есть план объекта, выполненный на координатной сетке, расчерченной в программе Excel.

Известен масштаб: Сторона клетки равна 10 см.

Необходимо посчитать площадь объекта или его отдельной части (комнаты).

Если объект прямоугольной формы всё довольно просто достаточно посчитать ячейки, вдоль вертикально нарисованной и горизонтально нарисованной стен и перемножить значения. Полученное произведение перевести из квадратных дециметров в метры квадратные.

Сложности возникают, если объект не прямоугольной формы. Для такого объекта необходимо считать площадь каждого отдельного прямоугольного участка, потом складывать полученные результаты. Процедура довольно долгая и скучная.

Для упрощения работы по подсчету ячеек в выделенном диапазоне, можно написать следующий макрос, который будет считать количество ячеек (клеток) во всём выделение и выводить значения в виде появляющегося окна (MsgBox).

Макрос подсчета количества ячеек в выделенном диапазоне выглядит следующим образом:

Sub Счет_ячеек() ‘название макроса

Dim b as integer ‘ вводим переменную b

b=0 ‘присваиваем переменной значение «0»

for each cell in selection ‘записываем цикл подсчета

b=b+1

next

MsgBox «количество ячеек » & b ‘ выводим сообщение с количеством ячеек

End sub ‘конец макроса

 

Присваиваем созданный макрос кнопке или сочетанию клавиш для удобства использования.

После того, как макрос посчитать количество ячеек переведите значения площади в дециметрах в метры квадратные.