Страницы: 1
RSS
Как с помощью макроса получить уровень отступа в строке и записать в ячейку
 
Добрый день уважаемые форумчане.

Искал вариант макроса, который бы позволил бы проанализировать столбец А, в котором записаны названия строк, и определить уровень каждой записи в ячейке.
Полученный номер уровень отступа записать в столбец G напротив соответствующей строки. Хотел решить этот вопрос с помощью свойства .IndenLevel, но к сожалению из сводной таблицы вытащить уровень отступа не удалось.

Прошу подсказать, чем можно заменить .IndentLevel или как можно решить задачу.
 
Цитата
Хотел решить этот вопрос с помощью свойства .IndenLevel, но к сожалению
Вроде получается
Код
Sub Tablica()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
  For i = 4 To iLastRow
    Cells(i, 8) = Cells(i, 1).IndentLevel
  Next
End Sub
 
Цитата
АналитикБУ написал:
из сводной таблицы вытащить уровень отступа не удалось
У меня на Вашем файле получилось:
Код
Debug.Print ActiveCell.IndentLevel
 
Kuzmich, благодарю за помощь.
И правда получается.  
 
У вас наверно неправильная сводная таблица и дает неправильные отступы
Код
Function GetIdentLevel(ByRef Cell As Range)
    GetIdentLevel = Cell(1).IndentLevel
End Function
Изменено: БМВ - 09.02.2020 13:45:40
По вопросам из тем форума, личку не читаю.
Страницы: 1
Наверх