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

Регистрация

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

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

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

Список форумов » Прочие 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 часа

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

Сейчас этот форум просматривают: нет зарегистрированных пользователей

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

Перейти:

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