[Iska]

pavsem7, образец Рабочей книги с примерами и наглядными пояснениями приветствуется.

[pavsem7]

образец Рабочей книги с примерами и наглядными пояснениями приветствуется. »

Прилагаю начальный кусок рабочей книги http://rgho.st/6YJ2gFYcy

Строк в книге много, несколько тысяч, поэтому вручную ничего не получится.
Видно, что колонка Стоимость, которая должна быть произведением Цены на КонРезерв посчитана по разным товарам неправильно, некоторые клетки вообще пустые, в 15-ой строке результат завышен и т.п. Подсчет результата(итога) по колонке Стоимость нужен только по верхнему слою, а спрятанные слои под крестиками, т.е., например, строки 16, 17, 19,20,21,23,24 и т.д. не должны давать слагаемых в эту сумму. Если же просто перемножить столбцы Цена и КонРезерв, то эти спрятанные строки дают слагаемые, сумма по товарам получается завышенной.

Цель - удалить нижние слои из книги, т.е. те самые спрятанные строки. Тогда итог стоимости правильно посчитается.

[okshef]

pavsem7, а нельзя ли то же, но с формулами?

[Iska]

Достаточно странная организация структуры…

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

Код:

Option Explicit

Sub Sample()
    Dim objRange As Range
    
    For Each objRange In ThisWorkbook.Worksheets.Item("TDSheet").Range("G6:G117").Cells
        Debug.Print objRange.Address, objRange.Rows.Item(1).OutlineLevel
        
        If objRange.Rows.Item(1).OutlineLevel = 2 Then
            objRange.Value = objRange.Offset(0, -2).Value * objRange.Offset(0, -1).Value
        Else
            objRange.ClearContents
        End If
    Next
End Sub

Можно и формулой.

Это то, что Вы хотели? Главный вопрос — в определении размеров диапазона (в примере — «G6:G117») на реальных данных, «ручками» ведь не будете задавать всякий раз. На что можем ориентироваться?

pavsem7, а нельзя ли то же, но с формулами? »

Сдаётся мне, что это явно результат выгрузки из какой-то внешней программы. И, по-хорошему, править надо код там.

[pavsem7]

Это то, что Вы хотели? Главный вопрос — в определении размеров диапазона (в примере — «G6:G117») на реальных данных, «ручками» ведь не будете задавать всякий раз. На что можем ориентироваться? »

Спасибо, работает. Да, надо на 2 уровне считать и до ячейки G122, придется вручную.
Почему Вы называете лист TDSheet?

pavsem7, а нельзя ли то же, но с формулами? » Сдаётся мне, что это явно результат выгрузки из какой-то внешней программы. И, по-хорошему, править надо код там. »

Это выгрузка из 1С8.2 СКД, там формул нет, все галочками настраивается, а те, что есть, считают неправильно. Разбирался несколько дней, не понять, почему не считает.
А результат начальству быстрее нужен.

У меня попутный вопрос по применению: я записал Вашу процедуру в макрос и запустил, при этом файл надо сохранять как xlsm.
Но можно ли запускать этот макрос-процедуру внешним образом, чтоб просто обрабатывать файл xlsx, а внутри процедура не хранилась?

[okshef]

можно ли запускать этот макрос-процедуру внешним образом »

Как создать свою надстройку?

[Iska]

Почему Вы называете лист TDSheet? »

Потому что таково его имя. Ухватитесь за разделитель-ползунок:



(когда курсор мышки примет двунаправленную форму) и тяните его вправо — сами увидите.

Это выгрузка из 1С8.2 »

Я так и предполагал, что 1С. Родимые пятна — ничего, зараза, не изменилось .

там формул нет, все галочками настраивается, а те, что есть, считают неправильно. »

Там надо в саму обработку, в код лезть и править, как я понимаю.

У меня попутный вопрос по применению: я записал Вашу процедуру в макрос и запустил, при этом файл надо сохранять как xlsm. Но можно ли запускать этот макрос-процедуру внешним образом, чтоб просто обрабатывать файл xlsx, а внутри процедура не хранилась? »

Можно. Вроде как хранитель персональных макросов Personal.xls всё ещё работает в новых версиях Office в виде Personal.xlsm. Только поменяйте в коде «ThisWorkbook» на «ActiveWorkbook».

придется вручную. »

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

[pavsem7]

Там надо в саму обработку, в код лезть и править, как я понимаю. »

Там кода нет, кроме a*b, все настраивается через GUI, а если не настраивается, то надо писать в дополнение код более ветвистый чем в VBA.

Можно. Вроде как хранитель персональных макросов Personal.xls всё ещё работает в новых версиях Office в виде Personal.xlsm. Только поменяйте в коде «ThisWorkbook» на «ActiveWorkbook». »

Я думал есть, что-нибудь типа командной строки excel file.xlsx /key macros.vbs ? Чтоб постоянно не хранилось.

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

Граница очевидна - первая пустая строка, но макрос работает, даже если вручную задать заведомо завышенную верхнюю границу G10000.

[Iska]

Там кода нет, кроме a*b, »

В сказки не верю, коллега.

то надо писать в дополнение код более ветвистый чем в VBA. »

С этим не спорю.

Я думал есть, что-нибудь типа командной строки excel file.xlsx /key macros.vbs ? Чтоб постоянно не хранилось. »

Нету.

Граница очевидна - первая пустая строка, »

Это нижняя. А верхняя граница? И всегда ли это будет столбец «G», а не какой-либо другой?!