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