Суммирование из разных книг

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

jut

Дата: Вторник, 12.04.2011, 13:46 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 1

Репутация: 0 ±

Замечаний: 0% ±

Добрый всем день!

Есть 203 одинаковых файла - 001.xls, 002.xls, .... 203.xls
В каждом есть по 6 одинаковых таблиц (українська, іноземна, математика....)
Надо просуммировать
=[001.xls]Українська!$C$9+[002.xls]Українська!$C$9 и так далее до +[203.xls]Українська!$C$9

Убил на это субботу и воскресенье, перечитал форумы и не пойму...
С косолидацией и сводными таблицами тоже не получаеться.
Может кто поможет из мастеров?

Владимир.

Ответить

Serge_007

Дата: Вторник, 12.04.2011, 15:22 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16475

Репутация: 2749 ±

Замечаний: ±

Excel 2016

Здравствуйте.
С консолидацией всё получится, только все файлы надо будет открыть. Проще макросом.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Саня

Дата: Вторник, 12.04.2011, 15:27 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

нужна консолидация только одной ячейки C9?
напиши подробнее и книгу в студию...

Ответить

nilem

Дата: Вторник, 12.04.2011, 15:46 | Сообщение № 4

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

На Планете пытался сделать... Можно попробовать.
Положите этот файлик в одну папку со своими двумястами тремя файлами. Нажмите синюю кнопку.
[vba]

Код

Sub GetValue2()
Dim pth$, f$, wsh As Worksheet
Dim x#: Application.ScreenUpdating = False

pth = ThisWorkbook.Path & "\["

f = Dir(ThisWorkbook.Path & "\" & "*.xls*", vbNormal)
Do While f <> ""
     If f <> ThisWorkbook.Name Then

         For Each wsh In ThisWorkbook.Worksheets
             With wsh
                 x = .Range("C9").Value
                 [m9].Formula = "='" & pth & f & "]" & .Name & "'!C9"
                 x = x + [m9].Value
                 .Range("C9").Value = x
             End With
         Next wsh

     End If: f = Dir()
Loop

[m9].Value = "": Application.ScreenUpdating = True
End Sub

[/vba]

К сообщению приложен файл: 6082610.zip (23.7 Kb)

Яндекс.Деньги 4100159601573

Ответить

Гость

Дата: Суббота, 23.04.2011, 15:29 | Сообщение № 5

Группа: Гости

Спасибо большое! Получилось! Результат выложил на www.kontr.at.ua для школ города. Может и я когда-то помогу...

Ответить

nilem

Дата: Суббота, 23.04.2011, 18:36 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

Репутация: 563 ±

Замечаний: 0% ±

Excel 2013, 2016

Quote (Гость)

Результат выложил на www.kontr.at.ua для школ города.

Посмотрел по ссылке. Так, наверное, тоже будет работать, но, имхо, много лишнего Вы там накрутили. Надо бы поконкретнее сформулировать задачу - можно сделать с таким же подходом, но короче.

Яндекс.Деньги 4100159601573

Ответить

Суммирование из разных книг

Страница 1 из 1
1