Post #515

Вычисляем отступ в ячейке Выгружал я тут список всех муниципальных образований с сайта статистического ведомства, чтобы поиграть с этими данными для курса по визуализации. А там понадобилось фильтровать и убирать строки не по каким-то значимым признакам, а только по форматированию, причем по отступу (есть такие кнопки — "Увеличить отступ" и "Уменьшить" на вкладке "Главная"). А когда-то давно клиент просил переделывать выгрузку из 1С, где нужно было данные с разными отступами, которые были в одном столбце, раскидывать по разным столбцам. Тут понадобится VBA, но в случае с вычислением отступа будет одна строчка кода. Открываем редактор VBA — Alt + F11 Вставляем новый модуль в текущую книгу, если задача "на один раз". Если функция нужна будет в разных файлах: создаем новую книгу, вставляем модуль там, сохраняем как надстройку Excel (формат .XLAM) и добавляем эту надстройку в Параметрах (Параметры — Надстройки — Надстройки Excel). В модуле в любом случае вводим такой код: Function ОТСТУП(cell As Range) ОТСТУП = cell.IndentLevel End Function Мы даем функции в качестве аргумента ячейку, а возвращает она значение отступа (IndentLevel) этой ячейки.