powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сводная таблица на VBA
6 сообщений из 6, страница 1 из 1
Сводная таблица на VBA
    #37844050
maccen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как сделать так:
Суть задачи, есть много файлов, которые все одинаковые у каждого по четыре листа с разными таблицами.
Например есть:

Файл 1, лист1 Ячейка А1 (100)
Файл 2, лист1 Ячейка А1 (30)

Нужно свести все в кучу, так чтобы в сводном файле был результат: Файл 1, лист1 Ячейка А1 (100) + Файл 2(30), лист1 Ячейка А1 = 130

Чтобы макрос из файла R/1.xls копировал ячейку А1 в файл Z.xls в ячейку А1
Дальше открывал файл R/2.xls плюсовал ячейку из файла 2.xls в ячейку А1, которая находится в файле Z.xls
...
Рейтинг: 0 / 0
Сводная таблица на VBA
    #37844054
maccen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Public Sub r1() 
FilePath = ActiveWorkbook.Path + "\"
Workbooks.Open (FilePath + "R/1.xls")
'лист 1
Workbooks("Z.xls").Worksheets("Лист1").Range("C15:S15").Value = Workbooks("1.xls").Worksheets("Лист1").Range("C15:S15").Value

Workbooks("1.xls").Close (False)
End Sub



Суть этого макроса простая, он все данные с листа в диапазоне копирует в сводный файл Z, а как сделать чтобы данные плюсовались не знаю, сам не силен в макросах :(
...
Рейтинг: 0 / 0
Сводная таблица на VBA
    #37844429
Денис Б.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В файле Z делаешь таблицу: НазваниеФайла,ЛистФайла,{Столбцы данных файла}
По порядку заливаешь сюда данные, а потом или сводной таблицей или через СУММЕСЛИ агрегируешь результаты.
...
Рейтинг: 0 / 0
Сводная таблица на VBA
    #37844506
maccen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я так думал только как-то затратно по времени написания :)
хотя за идею спасибо!
...
Рейтинг: 0 / 0
Сводная таблица на VBA
    #37844703
maccen
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сделал так:
с каждого файла скопировал листы все в один, потом сделал сводным один лист в конце, применил "трехмернаяссылка", формулу и все получилось довольно таки быстро, хотя такое действует если не слишком много файлов и вложенных листов.

Трехмернаяссылка:
Если у вас например:

5 листов, и вам нужно с каждого листа просуммировать ячейку A1, то как правило делается так:

Вариант 1:

=Лист1!A1+Лист2!A1


Вариант 2:


А если таких листов много, то делаем так:
=СУММ(Лист1:Лист2!A1)

Второй вариант проще и удобнее.
...
Рейтинг: 0 / 0
Сводная таблица на VBA
    #37844888
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
я так понял
Каждая книга это отдельный месяц????
и
Каждая яйчейка А(n) это первый день месяца или товара????

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


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