TG Telegram Group & Channel
Магия Excel | United States America (US)
Create: Update:

Вычисляем отступ в ячейке

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

А там понадобилось фильтровать и убирать строки не по каким-то значимым признакам, а только по форматированию, причем по отступу (есть такие кнопки — "Увеличить отступ" и "Уменьшить" на вкладке "Главная").
А когда-то давно клиент просил переделывать выгрузку из 1С, где нужно было данные с разными отступами, которые были в одном столбце, раскидывать по разным столбцам.

Тут понадобится VBA, но в случае с вычислением отступа будет одна строчка кода.

Открываем редактор VBA — Alt + F11
Вставляем новый модуль в текущую книгу, если задача "на один раз".
Если функция нужна будет в разных файлах: создаем новую книгу, вставляем модуль там, сохраняем как надстройку Excel (формат .XLAM) и добавляем эту надстройку в Параметрах (Параметры — Надстройки — Надстройки Excel).

В модуле в любом случае вводим такой код:

Function ОТСТУП(cell As Range)
ОТСТУП = cell.IndentLevel
End Function

Мы даем функции в качестве аргумента ячейку, а возвращает она значение отступа (IndentLevel) этой ячейки.

Вычисляем отступ в ячейке

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

А там понадобилось фильтровать и убирать строки не по каким-то значимым признакам, а только по форматированию, причем по отступу (есть такие кнопки — "Увеличить отступ" и "Уменьшить" на вкладке "Главная").
А когда-то давно клиент просил переделывать выгрузку из 1С, где нужно было данные с разными отступами, которые были в одном столбце, раскидывать по разным столбцам.

Тут понадобится VBA, но в случае с вычислением отступа будет одна строчка кода.

Открываем редактор VBA — Alt + F11
Вставляем новый модуль в текущую книгу, если задача "на один раз".
Если функция нужна будет в разных файлах: создаем новую книгу, вставляем модуль там, сохраняем как надстройку Excel (формат .XLAM) и добавляем эту надстройку в Параметрах (Параметры — Надстройки — Надстройки Excel).

В модуле в любом случае вводим такой код:
Function ОТСТУП(cell As Range)
ОТСТУП = cell.IndentLevel
End Function

Мы даем функции в качестве аргумента ячейку, а возвращает она значение отступа (IndentLevel) этой ячейки.
👍22🔥9👏3🤩2


>>Click here to continue<<

Магия Excel






Share with your best friend
VIEW MORE

United States America Popular Telegram Group (US)