расчет мощности в заданые часы

[boa]

Добрый день,
попробую в картинках объяснить на вашем примере.
После преобразования ваших таблиц в умные(ниже я писал как это делается) формируем сводную таблицу (Clip1.jpg)
В качестве источника данных выбираем коннекты (Clip2.jpg)
В открывшемся окне окне выбираем вкладку Таблицы (Clip3.jpg)
В ней вы увидите имеющиеся в данной книге "Умные таблицы"
Выбираем любую, это сейчас не столь важно.

[boa]

нажимаем "ОК" и расставляем поля.
В свойствах таблицы выбираем "Все" (Clip4.jpg) и у Вас появятся все умные таблицы.
После добавления поля из второй таблицы, появится окно установки связей.
Не доверяйте автоматической установке и нажмите "Создать"
Выберите связи как на рисунке Clip5.jpg
Дальше смотрите в файле.
Формулы, которые я переписал, выделил зеленым.
На странице "отчет" показал как использовать ссылки на умные таблицы и пользоваться именованными диапазонами, которые предварительно создал на странице "СН2"

[mixail64]

Огромное спасибо за такое подробное объяснение!!!!!

[mixail64]

Уважаемый boa. Я думаю причина моего непонимания в Excel 2010. Я делаю умные таблицы, перехожу в формирование сводных таблиц, выбираю внешний источник данных, выбираю подключение, а там пусто. И на этом останавливаюсь. Создание модели с помощью Power Query тоже не дало результата. В каком Excel делаете вы?

[boa]

я работаю в 2013 и 365-м офисах
завтра попробую сделать для вас другим способом. Но там надо будет немного знать SQL и VBA
ну нет у меня 2010-го не могу проверить

[boa]

выбираю внешний источник данных, выбираю подключение, а там пусто.

А вкладка Таблицы у вас есть(Clip3.jpg)? она тоже пустая?

[mixail64]

Нет даже вкладки "Таблица" только "Существующие подключения"

[mixail64]

это фото экранов

[boa]

Добавил в файл макрос и форму
Для создания нового коннекта запустите макрос AddCoonectToTables

после этого создайте на основе созданного коннекта сводную таблицу

[boa]

А вот и сам файл
    Следующая строка должна создавать сводную таблицу на основе созданного коннекта, но не работает
    выдает ошибку "Потеряна связь с Microsoft Excel для просмотра присоединенных листов". Причину нагуглить не смог
    Может кто-то знает причину и поможет отредактировать.
   

Код Выделить Развернуть

ThisWorkbook.PivotCaches.Create(SourceType:=xlExternal, SourceData:=NewConn).CreatePivotTable TableDestination:=Selection(1)

P.S.

Такие вещи проще делать сводной таблицей

Да уж, не получилось "проще"

[mixail64]

Да все совсем не просто. Сделал как написано, все получилось и пришел к той же ошибке

[boa]

...все получилось и пришел к той же ошибке

что опять не так?

[mixail64]

Нет все получилось, то компьютер глюкнул. А так при смене часов все пересчитывает, т.е. то что мне хотелось. Благодаря Вам я узнал много нового. Огромное Вам спасибо!!!

[mixail64]

А вообще это для сравнения стоимости электроэнергии по ценовым категориям, может еще кому то понадобится.

[boa]

А вообще, суть решения была в построение сводной таблицы из двух диапазонов
тема избитая...
может, как-то я этот макрос доработаю..., выложу в готовые решения. Идей много.
сейчас у меня есть макрос который создает OLEDB-коннекты для экселевских, текстовых и аксесовских файлов. sql'ку я потом дописываю ручками. а вот вариант с программным созданием sql-запроса, думаю, имеет путевку в жизнь...
если тема интересна - пишите комменты или в личку