SAPфорум.RU • Просмотр темы - Выборочное суммирование

Регистрация

FAQ пользователя

Текущее время: Ср, окт 29 2025, 12:09

Просмотр нерешенных тем
Сообщения без ответов | Активные темы

Список форумов » Прочие SAP-приложения » Форум по SAP BI

Часовой пояс: UTC + 3 часа

Выборочное суммирование

Модераторы: MakcuM, LadyWind, Dimarik

Начать новую тему

Ответить на тему

Страница 1 из 1

[ Сообщений: 3 ]

Для печати

Пред. тема | След. тема ->

Автор

Сообщение

DemoN

Заголовок сообщения: Выборочное суммирование

Добавлено: Вт, май 22 2007, 11:00

Младший специалист

Зарегистрирован:
Ср, апр 12 2006, 11:54
Сообщения: 61
Откуда: ХМАО

Всем привет.

Есть BEx отчет по продажам различных материалов по месяцам с годовой суммой:

Материал1 | Потребитель1 | штуки | Количество | Цена | НДС
...................| Потребитель2 | штуки | Количество | Цена | НДС
...........................................................| Сумма_1 | Средн_2 | Сумма_3
Материал2 | Потребитель1 | метры | Количество | Цена | НДС
...................| Потребитель2 | метры | Количество | Цена | НДС
...........................................................| Сумма_4 | Средн_4| Сумма_6
...........................................................| Сумма_7 | Средн_8| Сумма_9

Нужно, чтобы не считались Сумма_7 и Средн_8 (т.к. материалы с разными ед.измерения), а остальные - считались.
Выводить рядом с показателем ед.измерения и сделать это автоматически - заказчик категорически против. Пробовали "поиграться" с подавлением результата расчетов - не получилось.
Как победить?
P.S. с VBA - проблемы.

Вернуться к началу

Профиль

MakcuM

Заголовок сообщения:

Добавлено: Вт, май 22 2007, 11:19

Модератор

Зарегистрирован:
Ср, авг 18 2004, 10:59
Сообщения: 754
Откуда: Moscow

Code:

Sub Remove0Units(queryID As String, resultArea As Range)
' Форматирует ячейки так, чтобы не показывались единицы измерения

    Dim Col As Integer, Row As Integer
    Dim CellFormat As String
    
    For Col = 1 To resultArea.Columns.Count
      For Row = 1 To resultArea.Rows.Count
        CellFormat = resultArea.Cells(Row, Col).NumberFormat
        If Left(CellFormat, 5) = "#,##0" Then
          resultArea.Cells(Row, Col).NumberFormat = "#,##0"
        End If
      Next Row
    Next Col

End Sub

_________________
Фарш невозможно провернуть назад,
И мясо из котлет не восстановишь

Вернуться к началу

Профиль

DemoN

Заголовок сообщения:

Добавлено: Вт, май 22 2007, 13:13

Младший специалист

Зарегистрирован:
Ср, апр 12 2006, 11:54
Сообщения: 61
Откуда: ХМАО

2 MakcuM:
Огромное спасибо!
Все получилось.

Вернуться к началу

Профиль

Начать новую тему

Ответить на тему

Страница 1 из 1

[ Сообщений: 3 ]

Список форумов » Прочие SAP-приложения » Форум по SAP BI

Часовой пояс: UTC + 3 часа

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

Сейчас этот форум просматривают: Google [Bot]

Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Русская поддержка phpBB