powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Pivot с двух страниц
9 сообщений из 9, страница 1 из 1
Pivot с двух страниц
    #36146955
andrey1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем доброе время суток!

Есть две станицы с одинаковыми столбцами, нужно построить одну сводную таблицу- перерыл все справки- ответа нет. Помогите.

Спасибо
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36147081
anor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
andrey1981,

Мастер сводных таблиц -> в нескольких диапазонах консолидации

чем не устраивает?
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36147250
andrey1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
anor,

Да ерунда получается, только 3 поля- Row, Column и Value, а надо полноценную

спасибо
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36147349
anor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
andrey1981,

По другому стандартная сводная таблица работать не будет.

Значит придётся все диапазоны руками или макросом объёдинять в один.
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36147513
Andrey 1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
anor,

Жалко, диапазоны и разделил из-за того, что все данные в один лист не влазят.

Будем руками

спасибо
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36148644
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну делайте запрос к двум таблицам и стройте сводную.
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36148989
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот такой пример.

1) Сохраните файл в папке на жестком диске, откройте, разрешив макросы, и скопируйте в него листы с базой данных

2) Если у вас Office2007, то в коде макроса удалите апостроф из начала следующей строки (она необходима и будет работать только в Office2007):

Код: plaintext
1.
2.
3.
4.
    '   This line won't work and wouldn't be necessary
    '   in the versions older than 2007
    '*****************************************************************************
    On Error Resume Next: ThisWorkbook.Connections( 1 ).Delete: On Error GoTo  0 
    '*****************************************************************************

3) Перечислите имена листов содержащих базу данных здесь:

Код: plaintext
1.
2.
3.
    '   Sheets to consolidate
    '*****************************************************************************
    arrSheets = Array("Ontario", "Alberta")
    '*****************************************************************************

4) Вот тут задается ячейка на активном листе, где будет помещена таблица:

Код: plaintext
1.
2.
3.
4.
5.
    With PC
        .Connection = strCon
        .CommandType = xlCmdSql
        .CommandText = strSQL
        Set PT = .CreatePivotTable(TableDestination:=ActiveSheet.Name & "!R1C1")
    End With

5) После нажатия кнопки Recreate Table, будет создана болванка сводной таблицы подсоединенной к нужным листам. Поля можно добавлять, распределять и удалять как в нормальной сводной таблице:

6) При изменении директории местонахождения или имени файла не забывайте восстанавливать связь нажатием кнопки Refresh Connection (если файл не переназывался и не перемещался, то обновление можно осуществлять стандартным способом через контекстное меню)
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36149733
KL (XL)
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот доработанная версиия, полностью совместимая как с XL2003 так и с XL2007
...
Рейтинг: 0 / 0
Pivot с двух страниц
    #36154803
andrey1981
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо!

все работает.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Pivot с двух страниц
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]