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

Найти: построить гистограмму, на которой по месяцам будут выводиться средние значения параметров. Соответственно, на каждом листе-месяце надо выдернуть столбец-среднее, кусок столбца с наименованием параметров (ну, его можно один раз выдернуть, получается), сунуть в сводную на новом листе, добавить строку с наименованиями листов-месяцев, откуда сдернуто, и по этой табличке построить гистограмму.

Очень прошу помощи в реализации. На vba, естественно. В идеале, чтобы оно само туда подтягивалось по мере обновления данных, а не генерилось каждый раз по кнопке, хотя такой вариант тоже приемлем. Идей, как реализовать это при динамическом количестве листов, особо не имею. Только если записывать куда-то в левое место названия новых листов и вытягивать их потом оттуда. Готовые коды, которые попадались мне в интернетах, используют ADODB или ODBC, вследствие чего малопонятны и вызывают опасения при перетаскивании файла с одной версии Excel на другую, например. как выдергивать только кусок столбца - тоже затрудняюсь, поскольку лобовое задание диапазона не знаю, куда прицепить, при условии, что при формировании сводной нужно указывать названия столбцов.

При необходимости приложу файлик с примером листа-месяца.

Egoр,

И чего с этим знанием делать, когда количество листов для обработки изменяется? Как мне каждый раз добавлять туда новые? Беглый гугл пояснил, что ДВССЫЛ используется для изменения адреса ячейки в формуле, но если мне надо добавить новые элементы в нее? Простите, пожалуйста, я немного чайник.

hclubmk,

Спасибо огромное!
Пара уточняющих вопросов: мне нужно среднее по строке, а не по столбцу, соответственно строка


Поменяется на


Правильно? И единственное, мне нужно не до конца строки, а до определенного столбца, вместо End(xlDown) можно подставить тот же target.Column(111)?

И гистограмма из вашего кода строит получается по какому-то одному параметру гистограмму средних его значений по месяцам, правильно понимаю?

Тьфу, прошу прощения, вместо End(xlDown) будет WS.Range(Cells(target.Row, target.Column(111)) же, да?

hclubmk,

для теста программка требует пары доработок, так что по итогу отпишусь позже :)
И еще раз большое спасибо!

Не получается, не то. Этот синтаксис пробегает строку до последнего заполненного столбца, а мне надо не до последнего, до определенного. Пробовала заменить на указание конкретной ячейки через Ws.Range.Cells, пробовала тупо указать столбец, не получается. Стильно туплю.

И еще, подскажите, пожалуйста, как результирующую гистограмму вставить на лист? Нужен ли для этого синтаксис .charts, или можно просто засунуть результат функции в переменную и вставить в какую-то ячейку на листе?

hclubmk,

1. И еще раз спасибо!
2. Интересует вариант обновления графика, построенного на таблице, наверное. Чтобы добавил новую сточку месяца, добавился новый столбик в гистограмму. Если пересоздавать таблицу, график будет же обновляться? Или упадет?