VBA в XL

LadyWind

G написал:

Попробуй закоментируй блок

Code:

If resultArea.Cells(i, 1).Value = Empty Then

и раскоментируй

Code:

'    If  resultArea.Cells(i, 1).Value = _
'       resultArea.Cells(i - 1, 1).Value Then n

Я уже догадалась и сама мучала.. Никак

G написал:

LadyWind написала:

Насчет

Цитата:

ЗЫ Удаление внутри циклов for делать НЕЛЬЗЯ. А если надо, то только while.

Всегда делала и работало. Только ме-е-едленно

Не верю! (с)
У тебя в отчете, например 100 строк, в цикл for от 1 до 100, если в процессе происходит удаление, то 100 строка вне отчета, но цикл ее обработает. Поэтому и нельзя, поэтому и скорость не при чем.

тот макрос, который я выложила - работает. Если задаешь узкие параметры.

perishkin

2 All

Удалять строки из Excel? Я вот пытался корректно удалять в свое время строки из отчета с иерархией. Все красиво получается, пока не начинаешь разворачивать детальные уровни - все форматирование съезжает, какие-строки пропадают и т.п. В итоге отказался.

Наверное работоспособный вариант - создание либо еще одного показателя, рассчитываемого в момент загрузки, либо построение вообще новой цели данных с таким показателем. BEX - [censored] по сути? Надо смириться :cry:

Еще можно попробовать вставить отчет в книгу, скрыть лист с отчетом, а макрос написать таким образом, чтобы он копировал после обновления отчет со скрытого листа все нужное на заранее подготовленный. Трудоемкое решение и тоже говеное!

Еще можно выполнить отчет на сервере, результат досчитать, лишнее повыкидывать и вернуть, что осталось в Excel через RFC-соединение посредством вызова ФМ. В Excel останется только вывести полученное безобразие на экран. Естественно ни о какой навигации речи не идет после этого. Это еще более трудоемкий и говеный способ. :cry:

perishkin

Я делал так. Паролем открыл BEX (здесь он уже приводился), VB-отладчиком прошелся по процедурам, проанализировал параметры вызова процедур, связанных с выполнением запроса. Перенес по аналогии эти вызовы в ABAP. Потестировал немного. Результат возвращается как набор таблиц. Можно склеить их в XML или просто проанализировать в ABAP-коде и перегнать в более удобные структуры (под себя так сказать приспособить). Написать нечто относительно универсальное, чтобы разные отчеты можно было получать. Затем написать ФМ, который будет возвращать результат в Excel. При этом соедиение можно устанавливать вообще без Analyzer-а. При таком подходе дорасчет отчета можно делать либо на ABAP-е, либо на VB в Excel-е, либо вообще на чем захочется. Основной проблемой в данном случае будет потеря возможности выполнять навигацию - то есть будет обычный статический отчет

G

Рабочий пример в почте из профиля.

У меня все работает.

BW - ник

perishkin написал(а):

Я делал так. Паролем открыл BEX (здесь он уже приводился), VB-отладчиком прошелся по процедурам, проанализировал параметры вызова процедур, связанных с выполнением запроса. Перенес по аналогии эти вызовы в ABAP. Потестировал немного. Результат возвращается как набор таблиц. Можно склеить их в XML или просто проанализировать в ABAP-коде и перегнать в более удобные структуры (под себя так сказать приспособить). Написать нечто относительно универсальное, чтобы разные отчеты можно было получать. Затем написать ФМ, который будет возвращать результат в Excel. При этом соедиение можно устанавливать вообще без Analyzer-а. При таком подходе дорасчет отчета можно делать либо на ABAP-е, либо на VB в Excel-е, либо вообще на чем захочется. Основной проблемой в данном случае будет потеря возможности выполнять навигацию - то есть будет обычный статический отчет

Уважаемый perishkin!
Вашу бы энергию да в мирных целях.... :mrgreen:

PS: Ничего личного

perishkin

Я просто не люблю недоделанные решения. ABAP в SAP-е еще ничего, а все остальное - сплошной компромисс (денег и нервов) :wink:

G

2 BW-ник
+2
2 perishkin
ты маньяк, причем не один такой на свете https://www.sdn.sap.com/irj/sdn/weblogs ... b/wlg/2772
я тоже это дело использовал, но последние несколько месяцев прошли под лозунгом "Скажи ABAP-у "НЕТ"!"

LadyWind

+3
Мы все маньяки...
Завтра еще помучаю, расскажу.. Несколько текущих задач - сия не приоритет.

LadyWind

G написал:

Рабочий пример в почте из профиля.

У меня все работает.

У меня вместо удаления строчек рассчитываются % рядом с макросом. (это дома, без бекса)
Что я делаю не так?

G

Не обращаешь внимания на код:

Code:

       'DelRng.Delete Shift:=xlUp
       DelRng.Select

Т.е. там стоит просто выделение строк без удаления, чтобы было проще экспериментировать (можешь даже навставлять строк из своего отчета, главное, чтобы они находились в именованном диапазоне "QUERY")

Дополнительно:
1) BEx для примера не нужен
2) Код без изменений будет работать в BEx (только нужно убрать строку, где определяется resultArea и мои экзерсисы на тему процентов)

ЗЫ (для остальных):
В книжке представлен вот такой

Code:

Sub Modify()


Dim i As Integer
 
Dim resultArea: Set resultArea = Range("QUERY")

    Dim CurRow As Range
    Dim DelRng As Range

    For i = 2 To resultArea.Rows.Count - 1
    ' Условие для подавленных повтороений ключа
    '    If resultArea.Cells(i, 1).Value = Empty Then
    ' Условие для разрешенных повтороений ключа
        If resultArea.Cells(i, 1).Value = resultArea.Cells(i - 1, 1).Value Then
            If DelRng Is Nothing Then
                Set DelRng = resultArea.Rows(i)
            Else
               Set DelRng = Union(resultArea.Rows(i), DelRng)
            End If
        End If
    Next i

    If Not DelRng Is Nothing Then
       'DelRng.Delete Shift:=xlUp
       DelRng.Select
    End If


    ''Результаты
    
    ' MsgBox Range("C1").FormulaR1C1
    '---------------------------
    'Microsoft Excel
    '---------------------------
    '=IF(RC[-1]<>0,TEXT(RC[-2]/RC[-1],"0,00%"), "-")
    '---------------------------
    '??
    '---------------------------
    
    Dim FormulaRng As Range
    On Error GoTo ExitSub
    Set FormulaRng = Range(resultArea.Cells(2, 5), resultArea.Cells(resultArea.Rows.Count - 1, 6))
    FormulaRng.FormulaR1C1 = "=IF(RC[-2]<>0,TEXT(RC3/RC[-2],""0,00%""), ""-"")"
    

ExitSub:

End Sub

Bkmz

Клуб любителей VBA, скоро ветку нужно будет открывать в BI аля VBA in BI

LadyWind

2G - спасибо, весь массив данных отработал за 5 минут, в макросе правда ма-аленький косяк - самую последнюю строчку не удаляет (но не беда, это сама уж подправлю).

G

Не за что.
Все равно не понятно, почему так долго.

perishkin

Лучше бы попробовали скрыть строки в отчетах, где иерархии присутствуют с сохранением возможности выполнять навигацию.
Причем скрывать надо строки и с "треугольными кнопочками" и без них - вот это действительно геморрой! Я сдался (а ведь я обычно не сдаюсь) :wink:

G

perishkin написал(а):

Лучше бы попробовали скрыть строки в отчетах, где иерархии присутствуют с сохранением возможности выполнять навигацию.
Причем скрывать надо строки и с "треугольными кнопочками" и без них - вот это действительно геморрой! Я сдался (а ведь я обычно не сдаюсь) :wink:

Да там, скорее всего, прогнать цикл по объектам и все. Их удаляешь...

VBA в XL

Кто сейчас на конференции