Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

Главное меню

Суммировать данные по группам

Автор tgm, 13.02.2011, 13:47

« назад - далее »

tgm

Добрый день! Возможно ли заменить формулы макросом? 1) Просуммировать данные на листе " Свод нед" по группам и вставить суммы на лист "Группы". 2)Посчитать долю продаж по каждому наименованию в его группе. Если это возможно,помогите пожалуйста...

kimtan

Может просто формулу написать, которую можно растягивать на весь диапазон?
Webmoney: E350157549801 Z116603216205 R268084006579

iron priest

Цитата: kimtan от 13.02.2011, 15:54
Может просто формулу написать, которую можно растягивать на весь диапазон?

и защитить лист например

tgm

kimtan, iron priest, спасибо большое за помощь.Просто формул на 2 листах будет много,вот и была мысля маленько облегчить файл макросом :)

С.М.

Цитата: tgm от 13.02.2011, 13:47
Возможно ли заменить формулы макросом?
Вот:
Эксель изощрён, но не злонамерен.

tgm

Добрый вечер С.М.,макрос супер - спасибо огромнейшее! :D Возникла только одна проблемка,когда я пытаюсь добавлять новую группу выскакивает ошибка..  :-\  Что в макросе нужно изменить?

С.М.

tgm, замените блок:

    For K = 1 To GCnt
        GName = ListГруппы(K, 1)
        TableГруппы(K, 1) = GName
        For I = 1 To N
            If TableСвод(I, 2) = GName Then
                For J = 2 To M - 1
                    If Not IsEmpty(TableСвод(I, J + 1)) Then
                        TableГруппы(K, J) = TableГруппы(K, J) + TableСвод(I, J + 1)
                    End If
                Next
            End If
        Next
    Next
    For K = 1 To GCnt
        GName = ListГруппы(K, 1)
        For I = 1 To N
            If TableСвод(I, 2) = GName Then
                For J = 2 To M - 1
                    If Not IsEmpty(TableСвод(I, J + 1)) Then
                        TableДП(I, J + 1) = TableСвод(I, J + 1) / TableГруппы(K, J)
                    End If
                Next
            End If
        Next
    Next
Эксель изощрён, но не злонамерен.

tgm

Все отлично! :) С.М.,спасибо большое!