Страницы: 1
RSS
Создания формулы с условием, завязанной на значение отступа в ячейке
 
Делается выгрузка из 1с, иерархия задается отступом в ячейке. Необходимо добавить столбец, в который бы проставлялись значения уровня (1,2,3...) Попытка написать макрос потерпела неудачу!
 
а файлик можно?
 
Если "отступ" - это который Формат ячеек - Выравнивание - отступ, то так, работает с выделенным столбцом:  
 
Sub Макрос1()  
Dim c As Range  
For Each c In Selection  
   c(, 2) = c.IndentLevel  
Next  
End Sub
 
Казанский  
 
Спасибо огромное) Я не думал, что код окажется таким маленьким!    
А помогите разобраться: в скобках после "С" указывается расположение выводимого значения?
 
Да, c(, 2) это краткая запись от c.Cells(1, 2)  
Сама ячейка считается за (1, 1).
Страницы: 1
Читают тему
Наверх