В БД необходимо создать макрос, суть которого расчет итоговой строки по условию

[mex32]

Существует БД поставщиков с кучей признаков, которые являются (тавтология) поставщиками одного функционального подразделения. В данное подразделение (Дирекция) входит несколько предприятий.
Суть проблемы в том, чтобы создать макрос который позволил бы делать вычисления (см. файл/логика в серых ячейках) итоговых значений по конкретному показателю. При этом учитывая структурное деление (по заводам и в целом по Дирекции) и тот факт, что количество записей переменно, но всегда начинаются с 85 строки.

Вообще! Возможно написать в первой ячейке строки слово «Итого», выбрать в колонке необходимую Дирекцию (далее предприятие, или группу) и получить в соседних расчетных клетках результат?

Задача очень сложная, для меня не решаемая. Помогите, пожалуйста, добрые программеры!

P.S. Как удаль макрос, который ты уже удалил. Excel при загруске предлагает отключить вроде как уже удаленный макрос-призрак ?

[IFRSoff]

Это очень просто! Макросы не нужны здесь. В конце каждого необходимого столбца напиши формулу "=ПРОМЕЖУТОЧНЫЕ.ИТОГИ(109;`ДИАП АЗОН- НАПРИМЕР` S87:S121)". Выдели таблицу, невключая итоговую строку, включи автофильтр. Теперь можно выбирать фильтром, что нужно и получать нужные итоги

[EducatedFool]

P.S. Как удаль макрос, который ты уже удалил. Excel при загруске предлагает отключить вроде как уже удаленный макрос-призрак ?

В Вашем файле осталась пустая форма, и 2 пустых модуля:



Когда Вы их удалите, и сохраните файл, вопросы про макросы исчезнут.

PS: С формулами помочь не могу - не разбираюсь в них.

[mex32]

Спасибо, я не знал. Что касается объемов - полезная формула, для расчета суммы сгруппированных данных подходит, но вот что касается расчета средней цены - уже нет. Средняя цена рассчитывается через объем по средствам =суммпроизв(массив1;массив2)/сумм(массив1). Как в этом случае?

[mex32]

Сообщение от EducatedFool

В Вашем файле осталась пустая форма, и 2 пустых модуля:



Когда Вы их удалите, и сохраните файл, вопросы про макросы исчезнут.

PS: С формулами помочь не могу - не разбираюсь в них.

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

[Юнлинг]

Сообщение от mex32

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

Создай кнопку на форме
и на реакцию нажатой кнопки вставь макрос

For Each iVBcomponent In ThisWorkbook.VBProject.VBComponents
With iVBcomponent
Select Case .Type
Case 1 To 3: .Collection.Remove iVBcomponent
Case 100: .Codemodule.deletelines 1, .Codemodule.countoflines
End Select
End With
Next

войди в безопасность макроса
выбери закладку надежные издатели
поставь крыжек на Доверять доступ к Visual Basic Project
после чего запусти этот макрос.
И радуйся

[EducatedFool]

Сообщение от Юнлинг

Создай кнопку на форме
и на реакцию нажатой кнопки вставь макрос
...
И радуйся

Весьма оригинальный способ избавиться от кода...

Сообщение от mex32

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

Зато в контекстном меню есть команда Remove Module1
которая по сути ничем не отличается от Delete.

Выбираете Remove, и нажимаете Нет в диалоговом окне (Excel предложит экспортировать содержимое модуля в файл перед удалением)

[mex32]

Большое спасибо EducatedFool. У меня к Вам будет еще одна просьба, по макросам. Задача серьезная, точнее задумка. Даже задачу сформировать не просто. Вы поможите мне?

[EducatedFool]

Сообщение от mex32

Задача серьезная, точнее задумка. Даже задачу сформировать не просто. Вы поможите мне?

Если Вы не можете даже сформулировать задачу, то вряд ли кто-то сможет её решить...

Прикрепите к сообщению файл + подробное описание задания.

[mex32]

Сообщение от EducatedFool

Прикрепите к сообщению файл + подробное описание задания.

Есть БД, в которой куча поставщиков с такой же кучей признаков (в файле только одна функц-я единица - Дирекция, к которой скоро присоединяться еще 7), огромный массив. Пользователям захочется разворачивать ее как им угодно, группируя поставщиков по признакам. При этом, по уму, по данной группе должно рассчитываться итоговое поле. Суммарный объем, средневзвешенная цена и прочие усредненные показатели.
По средствам автофильтра это можно сделать, но как быть с построением итоговой строки (с расчетом средневзвешенной цены по группе)?
Я понимаю, что мне это не по силам, поэтому искал человека способного помочь в данном вопросе. На данном форуме вы многим уже помогли, для вас многие задачи не проблема. Я постепенно разберусь, но пройдет немало времени. EducatedFool, помогите.
Описание задачи я постарался изобразить графически (в приложении) с моими комментариями. Логика в файле и достаточно прозрачна. Наличие представленного интерфейса - большое дело.